Conditional code for form

[glen]

Hello all,

I have this form "Orders" with two sub forms "Deliveries" and "Order_Detail".
I want that if combo "Department" and "Location" is empty and I click there in forms "Deliveries" or "Order_Detail" then


it should give me message that "Please select Department and Location first".
So what and where code will be used?
Secondly in form "Deliveries" when I click on New blank record then after entering new record, it should give me message that "Enter Date first".

Thanks in advance.

[orange]

What are the row sources for your combos?
I think you could do a record count on the Row source and display a message depending on the row count.

You might be able to have the some controls be invisible, until a proper value was received???
You could use some instructions on the Form to assist users also.

Tell us more about why and how DEPARTMENT and/or LOCATION could be empty.

[glen]

I want that if user not select Department and Location then he should not able to enter data in sub forms.
and if you want to know more about my database then please visit this thread you will get all information.Thanks
https://www.accessforums.net/forms/form-designing-29111.html
https://www.accessforums.net/forms/f...tml#post145021

[glen]

I put this code in sub form "Deliveries" "before update" event
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Len(Me.ORDERID & vbNullString) = 0 Then
MsgBox "Select Department and Location First"
Cancel = True

End If
End Sub

But there is already one code in sub form "Deliveries" "before insert" event.
which was working fine before this code.
But now it gives error.

[June7]

I've never used form BeforeInsert or BeforeUpdate events but if you want to provide db I will analyse. Could all the code be in one event?

[glen]

as soon as the database load you just try to enter the Delivery date without selection Department and Location.
then see what happening.
I want it as I mentioned in post no. 1.

[DatabaseMakers]

On the Order form not the subform add this:

Private Sub Form_Current()
If Me.NewRecord = True Then
Me.DELIVERIES_Subform.Enabled = False
Else
Me.DELIVERIES_Subform.Enabled = True
End If
End Sub

...and the beforeinsert issue only happens when orderid is null which should be solved with the code above!~)

[glen]

Thanks.
It working.
This Problem solved.
But I want to add error handler to this before insert issue.
Please tell me what will be procedure for this?

[June7]

Review http://allenbrowne.com/ser-23a.html

[glen]

I will check.Thanks