Unable to validate combo boxes any help

[nicklewis]

Does anybody know how to validate combo boxes because i cant seem to get this code to work

Dim response As String
Dim response2 As String
Dim Response3 As String
Dim response4 As String
Dim response5 As String


If (IsNull(DateId)) Or DateId = "" Then
response = MsgBox("Date field is empty, Please Select a date", vbOKOnly, Error)
Exit Sub
ElseIf (IsNull(PlantId)) Then
response2 = MsgBox("Plant Code field is empty, Please Select a Code", vbOKOnly, Error)
Exit Sub
ElseIf (IsNull(ShiftTypeId)) Then
Response3 = MsgBox("Shift Type field is empty, Please Select a Shift Type", vbOKOnly, Error)
Exit Sub
ElseIf TotalShiftLength = 0 Or (IsNull(TotalShiftLength)) Then
response4 = MsgBox("Shift Length field is empty, Please add a Shift Length", vbOKOnly, Error)
Exit Sub
End If

response5 = MsgBox("Save Completed", vbOKOnly, "Confirmation")
DoCmd.GoToRecord , , acNewRec

 

[PHV]

The usual way to enforce validation rules is to code all the checks in the BeforeUpdate event procedure of the form, playing with the Cancael argument.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[nicklewis]

would the code still be the same as above because if so wouldnt that on a button be doing thesame thing?

 

[willir]

Here is a post on a related topic...
Custom error msg for Req'd Field

Note the use of Me.ControlName to reference the local form.

Richard

 

[TheAceMan1]

How are ya nicklewis . . . . .

[blue]Are you using the right column[/blue] for the comboboxes?

If the [blue]column of interest[/blue] is the 1st column ([blue]column index starts at zero and includes any Column Widths set to zero[/blue]) then you can use the [purple]implied[/purple] form of referencing the control:

[blue]Me![purple][b]ComboboxName[/b][/purple]
[purple]or[/purple]
Me![purple][b]ComboboxName[/b][/purple].Value[/blue]

If not, you have to specify the column:

[blue]Me![purple][b]ComboboxName[/b][/purple].Column([purple][b]?[/b][/purple])[/blue]

You can also reference the textbox portion of the combobox, just remember the [blue]combobox has to have the focus first:[/blue]

[blue]Me![purple][b]ComboboxName[/b][/purple].Text[/blue]

As for validation:

[blue][purple]For Text use:[/purple]
   If Trim(Me![purple][b]ControlName[/b][/purple] & "") = "" Then
[purple]For numeric use:[/purple]
   If IsNull(Me![purple][b]ControlName[/b][/purple]) Then[/blue]

See Ya! . . . . . .