Message

[Alex Motilal]

Hello everyone,
I do have a database in which cotton processing data is entered. It has a Form in which Factories are added with the following Fields:


ID, Factory Name, Factory Type (Combo Box), Address, City (Combo Box), State (Combo Box), Contact #, Pin Code #, E Mail ID
It is a single Form.
What I need is, if the user closes the Form without selecting data either from all the Combo Boxes or any one of the Combo Boxes, a Message should appear and when the Message Box is closed the cursor should go to the particular Combo Box.
Please inform the VBA code for this.
Regards
Alex

[Bob Fitz]

Something like this code in the forms BeforeUpdate event:

If Nz([Factory Type],0) = 0 Then
   Cancel = True
   Msgbox"Select Factory Type"
   Me.[Factory Type].SetFocus
ElseIf Nz([City],0) = 0 Then
   Cancel = True
   Msgbox"Select a City"
   Me.[City].SetFocus
ElseIf Nz([State],0) = 0 Then
   Cancel = True
   Msgbox"Select a State"
   Me.[State].SetFocus
End If

[ranman256]

put in all your checks into the ISVALIDFORM routine.
then if all are good, close the form in the UNLOAD event.

Private Sub Form_Unload(Cancel As Integer)
  cancel =not IsValidForm()
End Sub


'------------
Private Function IsValidForm() As Boolean
'------------
Dim vMsg
Select Case True
   Case IsNull(dtpWeekOf)
      vMsg = "Date field missing"
   Case IsNull(cboUser)
      vMsg = "Teacher name is missing"
   Case IsNull(cboSubj)
      vMsg = "Subject field is missing"
End Select
If vMsg <> "" Then MsgBox vMsg, vbCritical, "Required Field"
IsValidForm = vMsg = ""
End Function

[Alex Motilal]

Thanks Bob & Ranman.
However, not working.

[Alex Motilal]

Sorry Bob & Ranman, I made a mistake in the controls spelling. Now it works perfectly.

[ranman256]

always use OPTION EXPLICIT in every module and it will eliminate spelling errors.