Forms - Mandatory field

[Ted]

Hello,

I have 2 fields on a form... FieldA and FieldB.

FieldA is a Yes / No box
FieldB is a Date field

Both fields are not 'required' at table level.

What I want to be able to do is make data-entry into FieldB mandatory, only
IF FieldA = "yes".

Any help / advice would be appreciated.

Ted

 

[Dirk Goldgar]

Hello,

I have 2 fields on a form... FieldA and FieldB.

FieldA is a Yes / No box
FieldB is a Date field

Both fields are not 'required' at table level.

What I want to be able to do is make data-entry into FieldB
mandatory, only IF FieldA = "yes".

Any help / advice would be appreciated.

Ted

You can create an event procedure for the form's BeforeUpdate event to
enforce this rule. It might look like this:

'----- start of example code -----
Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.FieldA = True Then
If IsNull(Me.FieldB) Then
Cancel = True
MsgBox "FieldB is required when FieldA is True."
End If
End If

End Sub
'----- end of example code -----

 

[Brendan Reynolds]

In the BeforeUpdate event of the form ...

If (Me![FieldA]) Then
If Len(Trim$(Me![FieldB])) = 0 Then
MsgBox "Uh-huh"
Cancel = True
End If
End If

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.

 

[Ted]

Many thanks!!

Ted

 

[Dirk Goldgar]

In the BeforeUpdate event of the form ...

If (Me![FieldA]) Then
If Len(Trim$(Me![FieldB])) = 0 Then
MsgBox "Uh-huh"
Cancel = True
End If
End If

I don't think that'll work if FieldB is Null. You could fix it by
concatenating to a zero-length string:

If Len(Trim$(Me![FieldB] & "")) = 0 Then

but if FieldB is bound to a Date field, why force the conversion?

 

[Brendan Reynolds]

Yes, thanks Dirk, I forgot the empty string.

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.

In the BeforeUpdate event of the form ...

If (Me![FieldA]) Then
If Len(Trim$(Me![FieldB])) = 0 Then
MsgBox "Uh-huh"
Cancel = True
End If
End If

I don't think that'll work if FieldB is Null. You could fix it by
concatenating to a zero-length string:

If Len(Trim$(Me![FieldB] & "")) = 0 Then

but if FieldB is bound to a Date field, why force the conversion?

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)