VBA Set field data type to number during macro

[jkeyes]

In the following code, during the For/Next loop, I'd like the Fields(2) data when entered to be entered as a number, rather than text which seems to be the default. I'm sure it's simple, I'm just brand new to Access VBA... thanks!

Sub AddToFlat()
Dim db As DAO.Database
Dim fldWide As DAO.Field
Dim fldFlat As DAO.Field
Dim rstWide As DAO.Recordset
Dim rstFlat As DAO.Recordset
Dim I As Long

    Set db = CurrentDb

    Set rstWide = db.OpenRecordset("Wide")
    Set rstFlat = db.OpenRecordset("Flat")

    rstWide.MoveFirst
   
    While Not (rstWide.EOF)
        With rstFlat
            For I = 1 To rstWide.Fields.Count - 1
                .AddNew
                .Fields(0) = rstWide.Fields(0)
                .Fields(1) = rstWide.Fields(I).Name
                .Fields(2) = rstWide.Fields(I)
                .Update
            Next I
        End With
        rstWide.MoveNext
    Wend
End Sub

 

[giacomo]

jkeyes,

Maybe I'm not understanding the question because I thought you already figured this one out. Your code doesn't create the table, so you have to create it ahead of time. When you create the table you can specify the data types (and size) of each field.

hth,
Giacomo

 

[Norie]

jkeyes

Like giacomo says that code doesn't create a table.

PS Did you not see my comment regarding using a Text field to be 'safer'?

There are various different types of number field but a field can only have one data type.

 

[jkeyes]

Thanks... sorry, I was running this again and saw a "Data Type Conversion" error, and didn't think through what you two had told me... I found the problem. So, nevermind, and thanks anyway!