No Current Record Message Access 2003

  • Thread starter Thread starter Mrstacy
  • Start date Start date
M

Mrstacy

When I select "Other" in the Discovered How Field, and attempt to exit
form, I get the message box error. I also get the No Current Record
message. Any help is appreciated.

Access 2003 Windows XP

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.DiscoveredHow = "Other" Then
If Nz(Me.Other, "") = "" Then
Cancel = True
MsgBox "Miscellaneous explanation is required!", vbOKOnly +
vbInformation
Me.Other.SetFocus
End If
End If
End Sub
 
When I select "Other" in the Discovered How Field, and attempt to exit
form, I get the message box error.  I also get the No Current Record
message.  Any help is appreciated.

Access 2003 Windows XP

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.DiscoveredHow = "Other" Then
    If Nz(Me.Other, "") = "" Then
        Cancel = True
        MsgBox "Miscellaneous explanation is required!", vbOKOnly +
vbInformation
        Me.Other.SetFocus
    End If
End If
End Sub
Click to expand...

I copied this similar code to a different button and got a slightly
different message - see below. I"m hoping any fix corrects both:

The setting you entered isn't valid for this property
 
Back
Top