show msg box when form returns no record

[siamandm]

Hi

i would like to show a msg , when a sub form is empty and not return no data ?

regards

[HansV]

You could create a label somewhere on the subform with caption "No Records". Set its Back Style property to Normal and its Visible property to No.

In the On Current event of the subform:

Code: Select all

Private Sub Form_Current()
    Me.lblNoRecords.Visible = (Me.RecordsetClone.RecordCount = 0)
End Sub

where lblNoRecords is the name of the label

[siamandm]

thank you Hand
i have another question please, i tried to make this label on top of sub form but i couldn't i tried many ways any idea how to make a a label on top of sub form?

regards

[HansV]

My suggestion was to create the label in the subform itself, for example on its Detail section. If you want the label to be on the main form, the code would have to be different.

[siamandm]

when i put the lable inside the subform it can cover all the controls except one of the ... I tried all the way but this control comes up on top of the label, that's why i changed the way the first combo box will come over the label always ... any suggestion?

[siamandm]

i found a trick if its ok , i created a tiny text box and make the set focus on form load to that text box ... now the label is cover everything.