Validation to check only one dropdown box has a value

[Derek_123]

Hi All,



I have 3 drop down boxes on my form for 3 different types . I want to put a validation on the save event that will make sure only one box has a value in it . If the users have typed in value in all 3 boxes or 2 boxes then show an error saying "Only one type must be selected".

Any help will be much appreciated . Thanks.

[ranman256]

this function can be used for various forms

usage:
If IsValidForm() then
SaveData
else
'prevent user from stuff
endif

Private Function IsValidForm() As Boolean
Dim vMsg
dim iTot as integer


if not IsNull(cboBox1) then iTot = iTot + 1
if not IsNull(cboBox2) then iTot = iTot + 1
if not IsNull(cboBox3) then iTot = iTot + 1


Select Case True
   Case iTot >1
      vMsg = "Only fill 1 box"
  case iTot = 0
      vMsg = "Must fill 1 box"
 End Select
If vMsg <> "" Then MsgBox vMsg, vbCritical, "Required Field"
IsValidForm = vMsg = ""
End Function

[Derek_123]

Thanks a lot for your help. It worked fine

[Gicu]

Why three combos and not just one with the combined row sources of the original three?

Cheers,

[Micron]

I have 3 drop down boxes on my form for 3 different types

Is that because you have 3 fields to define the 'type' of one thing? If yes, it's very likely that your tables are not properly designed. You should research db normalization if that is the case.