Data enter validation on a form

[Secue]

I have a form to capture information, I have a button named "Save" on the form to sabe the information for the current record adn at the same time validate that all fields are not empty.



I have the following code on the after click even of the button:
for each field I have the following validation:


If Nz(Me.Copies.Value, "") = "" Then
Beep
MsgBox "There is missing information - Copies" & Chr(13) & "Hay informacion ausente - Copies", vbExclamation, "MISSING INFORMATION"
Copies.SetFocus



at the end of each validation I have

Else

DoCmd.RunCommand acCmdSave

And the corresponding End If needed, code was working fine and I even used this on other databases, but now I have problems with one especified field, I have a field where user can select a value from a list form another table. It was working fine when I used to select just one value, but I was requested to change to be able to select more tan one value, so when I set to multiselect on this field I have the following issues:

When field is emty, it works fine, If I click on the button, I got the message that the field is empty. but when I select one value, or more tan one value, after I click on the button, I got a mistake message:
Run-Time error '13':
Type mismatch.

What is worng on the code when field is set to acept more tan one value?

Thank you.

[RuralGuy]

Change to this and see if the issue goes away:
If Len(Me.Copies & "") = 0 Then

[June7]

Multi-value fields are a pain in the ...

The reason is they involve a 'hidden' table that actually stores the selected values. Review http://office.microsoft.com/en-us/ac...001233722.aspx

Never run across anyone trying to validate a multi-value field. This field is required to have data? I guess you can handle the error. If you get the error, you know field has data.

[Secue]

RuralGuy:

Thank you for your recomendation, I tried but I get the same mistake.

June7:

I will review the information on the link you provided.

regarding your recomendation, I'm not expert on VBA, how can I catch the error witht he code that way as you said I will ensure the field is not emty and I can move to the next step.

Thank you.

[June7]

Here is an example of error handling code: http://allenbrowne.com/ser-23a.html

Yours could be as simple as:

Sub buttonname_Click()
On Error GoTo ErrProc

'validation code

ExitProc:
Exit Sub

ErrorProc:
If Err.Number = 13 Then
Resume Next
Else
MsgBox Err.Number & " : " & Err.Description
End If

End Sub

[Secue]

Thank you, this solved my problema.