[AccessD] Check Only One

You reference the value of fraNature...

Private Sub fraNature_AfterUpdate()    
  'If choice is Other, enter data in field
    If (fraNature = 5) And (IsNull(Me![Other])) Then
        MsgBox "You must enter the reason", _
        vbInformation, "Complete Field"
        Other.SetFocus
    End If
End Sub

Doris Manning

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hollis, Virginia
Sent: Monday, October 23, 2006 1:20 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Check Only One

Great! Thanks.

 

One more question & I will leave you alone.... How do you refer to the
checkbox in the frame?  I tried me.chk5 = True & I also tried me.chk5 =
1. Neither one worked. I get an error.

 

Private Sub fraNature_AfterUpdate()    

  'If choice is Other, enter data in field

    If (Me.chk5 = ) And (IsNull(Me![Other])) Then

        MsgBox "You must enter the reason", _

        vbInformation, "Complete Field"

        Other.SetFocus

    End If

End Sub

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com