Conditional required fields

[sunnyday]

Hi I have a split database. The original fe file resides on my pc. Now I would like certain fields as required when an option is selected from a drop down box.


Eg if a Status = "Closed" then certain fields on the form become mandatory for the user to populate in before they can log out or move to another record that is those fields cannot be empty . Else if Status =" Open" field population not required

Thanks in advance

[Bob Fitz]

IMHO The best place for validation code would be in the forms BeforeUpdate event. If the validation fails then the update of the data in the form can be cancelled and the user advised with a message box.

[sunnyday]

So this is the code that actually works on the form. Its going well for Status with "Closed". But it is also asking the required field for if the Status is "Open". That is it is asking the value for the 2nd condition with the msg "Please...close action"
How do I solve this? Also is there a way if users can cancel the req field and log out or close the db in case?

Also for a status being closed multiple fields are required before saving. Can you give me a syntax of the procedure or an example, such that if status is closed ,Field a reqd,Field B reqd,Field C reqd.
If Open then req fields are not reqd.
Can you please point out where is the mistake. I am not a VBA expert
Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.Status = "Closed" _
And Len(Me.Field A & vbNullString) = 0 Then
MsgBox "You need to fill in Field A"
Cancel = True
Me.Field A.SetFocus
Exit Sub

ElseIf Len(Me.Field B & vbNullString) = 0 Then
MsgBox " Please enter link to close our action"
Cancel = True
Me.Field B.SetFocus
Exit Sub
Else
Cancel = False
End If
End Sub

Thanks in advance.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Status = "Closed" _
And Len(Me.FieldA & vbNullString) = 0 Then
MsgBox "You need to fill in Field A"
Cancel = True
Me.FieldA.SetFocus
Exit Sub
ElseIf Len(Me.Field B & vbNullString) = 0 Then
MsgBox " Please enter link to close our action"
Cancel = True
Me.Field B.SetFocus
Exit Sub
Else
Cancel = False
End If

[Missinglinq]

Before we can go into detail we need to know a couple of things.

Is it FieldA or Field A (with the space)?

If Field A (with the space) I assume it's also Field B and Field C, with spaces. Is that correct?

Field names shouldn't have spaces in them, but if they do, you have to let the Access Gnomes know that the space is connecting two parts of the name, and in VBA code, you do that by enclosing the name in Square Brackets, such as:

Me.[Field A].SetFocus

And just to be clear...if Status = "Closed", Fields A, B and C are required, but not if Status = "Open"...is that correct?

Linq ;0)>

[sunnyday]

Umm FieldA, FieldB..are examples from my side. The actual fields have their own individual names..and they do not have spaces. My apologies, it should be FieldA,FieldB,FieldC
Yes if the Status has been chosen as "Open" the fields are not required for user to input before exiting the record or the DB.

Thanks.