Subform Problem!

[tramp82]

Hi!

I was wondering if someone can help me with a really small problem which has been driving me mad.



I have a main form (Sales) with a subform (Sales Lines).

In the Sales lines, I have a combo box (Machine ID) to choose the product and a quantity (Qty) text box.

All I want to do is check that when I press the Save Order button on the main form, the subform has at least something in it.

I have tried things like

If Me.Do_Not_Use.Value = "" then
MsgBox("Please Enter At Least One Model")
End If

But this does not recognise and the order line remains empty. It just saves the order with no order lines.

Can someone help?!?!?!

Richard

[hertfordkc]

If so, "me" refers to the main form. You may need to put a data check in the subform events and if the data is insufficient, use me.undo to unwind the update.

[tramp82]

If so, "me" refers to the main form. You may need to put a data check in the subform events and if the data is insufficient, use me.undo to unwind the update.

I think I understand. But the problem is, I don't think the subform is being "triggered". For example. If I were to select something in the combobox and leave the Qty box empty, I do get a message saying the Qty box is empty and vice versa.

Basically I want to it to include at least one record in that subform but I have no idea of how to make sure it does it?

Richard

[Toyman]

I think I understand. But the problem is, I don't think the subform is being "triggered". For example. If I were to select something in the combobox and leave the Qty box empty, I do get a message saying the Qty box is empty and vice versa.

Basically I want to it to include at least one record in that subform but I have no idea of how to make sure it does it?

Richard

I am assuming your main form, "Sales" is unbound, and that is why you are using a "save" button to save the record. If this is so, put this code on the "save" button right before it initiates the "save" codes.

Dim sMacID as Integer 'assuming the Machine ID is a number field. If it is a text field change the declearation to "string"
sMacID = Nz(Me![Sales Lines].Form![Machine ID],0)
if sMacID = 0 then 'no machine id or no record entered
Msgbox "You must enter at least one sales line", vbInformation, "No Sales Entered"
Me![Sales Lines].Form![Machine ID].SetFocus 'sets the focus to the mac ID field
Exit Sub 'exits the code
End if

[tramp82]

I am assuming your main form, "Sales" is unbound, and that is why you are using a "save" button to save the record. If this is so, put this code on the "save" button right before it initiates the "save" codes.

Dim sMacID as Integer 'assuming the Machine ID is a number field. If it is a text field change the declearation to "string"
sMacID = Nz(Me![Sales Lines].Form![Machine ID],0)
if sMacID = 0 then 'no machine id or no record entered
Msgbox "You must enter at least one sales line", vbInformation, "No Sales Entered"
Me![Sales Lines].Form![Machine ID].SetFocus 'sets the focus to the mac ID field
Exit Sub 'exits the code
End if

yOOOOOOOOOOU LEGEND!

Thanks so much! Closing thread now )