solution
I recently had this problem.
here is the code
Private Sub CustomerID_DblClick(cancel As Integer)
On Error GoTo err_CustomerID_dblclick
Dim lngCustomerID As Long
If IsNull(Me![CustomerID]) Then
Me![CustomerID].txt = ""
Else
lngCustomerID =...