G
Guest
The following is returning a Type mismatch. I can't see it. Can anyone please
help?
Thanks!
Private Sub City_DblClick(Cancel As Integer)
On Error GoTo Err_City_DblClick
Dim lngCity As Long
If IsNull(Me![City]) Then
Me![City].Text = ""
Else
lngCity = Me![City]
Me![City] = Null
End If
DoCmd.OpenForm "frmCities", , , , , acDialog, "GotoNew"
Me![City].Requery
If lngCity <> 0 Then Me![City] = lngCity
Exit_City_DblClick:
Exit Sub
Err_City_DblClick:
MsgBox Err.Description
Resume Exit_City_DblClick
End Sub
help?
Thanks!
Private Sub City_DblClick(Cancel As Integer)
On Error GoTo Err_City_DblClick
Dim lngCity As Long
If IsNull(Me![City]) Then
Me![City].Text = ""
Else
lngCity = Me![City]
Me![City] = Null
End If
DoCmd.OpenForm "frmCities", , , , , acDialog, "GotoNew"
Me![City].Requery
If lngCity <> 0 Then Me![City] = lngCity
Exit_City_DblClick:
Exit Sub
Err_City_DblClick:
MsgBox Err.Description
Resume Exit_City_DblClick
End Sub