Runtime error 3075 in Access 2010

[N1WVU]

When ever I run the following code I get the runtime error. The field Device Id is an auto number field and the error points to the Do.Private Sub cmdEditRecord_Click()

Private Sub cmdEditRecord_Click()
Dim intDeviceID As Integer
If Me.lstDevices.ListIndex = -1 Then
MsgBox "Please select a Record"
Exit Sub
End If
intDeviceID = Me.lstDevices.Value
DoCmd.Close acForm, "Warranty Selection Form"
' DoCmd.OpenForm "Warranty Information Form", acNormal, , "DeviceID = " & intDeviceID
DoCmd.OpenForm "Warranty Information Form", acNormal, , "Device Id = " & intDeviceID

End SubOpenForm statement

 

[dhookom]

An autonumber should be Dim'd as Long, not integer. I would use:

If IsNull(Me.lstDevices) Then

Also, it isn't clear whether the DeviceID field has a space in it or not. If it does, you must wrap it in []s.

Duane
Hook'D on Access
MS Access MVP