Additional code for close button

[tshudt]

I have a command button that will close a form.(the button is on the main form) I would like to add code to the close button that checks to see if information is entered in the subform and if there is information then check to make sure there is a Date entered on the main form. if there is no date then have a message pop up and tell the user to enter a Date. If when the button is clicked and there is a date entered on the main form then just close the form.

Any help would be greatly appreciated

Tim

 

[Eupher]

Tim,

Something like this could work (substitute YOUR names for the names in blue):

If Not IsNull Me![COLOR=blue][b]MySubform[/b][/color]![COLOR=blue][b]MySubformField[/b][/color] Then
    If IsNull(Me![COLOR=blue][b]MyDateField[/b][/color]) Then
        Cancel = True
        MsgBox "You must enter a date before exiting."
        Me![COLOR=blue][b]MyDateField[/b][/color].SetFocus
        Exit Sub
    End If
End If

HTH,

Ken S.

 

[mguidry5]

Hey there,

I suggest using something like the suggestion above in conjunction with the code found in faq702-2071. It really makes the close button effective.

Good luck,
MJG

 

[TheAceMan1]

How are ya tshudt . . . . .

In the [blue]UnLoad[/blue] event of the form, copy/paste the following:

[blue]   Dim sfrm As Form
   
   Set sfrm = Me!subFormName.Form
   
   If sfrm.RecordsetClone.RecordCount And _
      IsNull(Me!DateCtlName) Then
      MsgBox "YourMessageHere"
      Me!DateCtlName.SetFocus
      Cancel = True
   End If
   
   Set sfrm = Nothing[/blue]

[purple]You did'nt address what to do if the subform has no records![/purple]

See Ya! . . . . . .

 

[tshudt]

If the subform has no records then just close the form.