"Benspænd" for at sikre korrekt dataindtastning

Du kan lave det dom en simpel Iff Then sætning i stil med dette:

If me.felt1 = "Ja" and me.felt2 = "Nej" then
msgbox "Der er fejl i indtastning"
End If

Og dette sætter jeg ind som en valideringsregel i begge de pågældende spørgsmål?

Når jeg prøver at sætte dette ind som valideringsregel i udtryksgeneratoren

If me.Smertfrie perioder = "1" and me.Antal smertefrie perioder = "0" then
msgbox "Der er fejl i indtastning da der er svaret "ja" til smertefrie perioder"
End If

(Idet der ikke kan være 0 smertefrie perioder hvis der har været smertefrie perioder idet 1 = ja)

Så kommer der besked om at det er en ugyldig syntaks?

Du skal programmere det i VBA.
Du bør undgå mellemrum i objektnavne.

Ok - mange tak for svaret - points til dig

Tak - Så skal du markere mit svar og derefter trykke på accepter.

Jeg plejer at benytte Before_Update event på formularen til at checke at alt er udfyldt korrekt.

Private Sub Form_BeforeUpdate()
  Cancel=Not ValidateForm()

End Sub

Public Function ValidateForm() As Boolean
    Dim strMsg As String
   
    'There must be a title
    If Me.tb_PackName & "" = "" Then
        strMsg = strMsg & vbNewLine & "(*) The name property must be filled in"
    End If
   
    'There must be a date received
    If Me.tb_DateReceived & "" = "" Then
        strMsg = strMsg & vbNewLine & "(*) The Date received must be filled out"
    End If
   
    'The issuer must be selected
    If IsNull(Me.cmb_Issuer) Then
        strMsg = strMsg & vbNewLine & "(*) The issuer must be selected"
    End If
   
    If strMsg & "" <> "" Then
        strMsg = "The record could not be saved for the following reason(s):" & vbNewLine & strMsg & vbNewLine & vbNewLine & _
                "Please correct and try again."
        MsgBox strMsg
        ValidateForm = False
    Else
        ValidateForm = True
    End If

End Function


En fordel ved denne tilgang er at den samler alle fejlene og præsenterer dem på en gang. I mit eksempel checkes der blot at felterne er udfyldt, men det kan jo tilpasses.