VBA - integer vs. long integer data type

[sueviolet]

I have been using the following VBA code to update the blank records in a field with sequential numbers.



*******
Private Sub Command0_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim InitialNumber As Integer
Dim i As Integer


InitialNumber = 36084


Set db = CurrentDb
Set rs = db.OpenRecordset("FISHSRY_SCCT_MAIN")

i = InitialNumber
Do While Not rs.EOF
If IsNull(rs!Meta_Data_ID) Or rs!Meta_Data_ID = 0 Then
rs.Edit
rs!Meta_Data_ID = i
rs.Update
i = i + 1
End If
rs.MoveNext
Loop

MsgBox "Updated " & i - InitialNumber & " IDs"

Set rs = Nothing
Set db = Nothing

End Sub




******

It have been working fine, but now the initial numbers I am chosing are larger - too large be integer. From reading through Access help files, I know the need to be changed because it is over the integer number range (32,767)


I don't much VBA at all and don't know how to change the above code - could someone please tell me what need to be change so this module can handle larger number?

Thanks


Sue

 

[sueviolet]

wow, for the first time in my life I have answered my own Access question

 

[sueviolet]

answered my own question

wow, for the first time in my life I have answered my own Access question (just need to change "integer" to "long")


All the great help from this board must be rubbing off on me.