validering / udtryksgenerator

Hej Naima,

Du kan ikke gøre det vha inputmaske eller valideringsreglen. De er ikke avanceret nok.
I stedet er du nødt til at kode dig ud af problemet. Dvs at du skal have en formular, som brugeren benytter (i stedet for direkte i tabellen)

Det er lidt besværligt, da det er svært at kontrollere at de forskellige tegn kommer i den rigtige rækkefølge. Det som man umiddelbart kan gøre, er at kontrollere at der er et @ og et punktum og at punktum kommer før @.

Koden skal placeres på feltets FørOpdatering-hændelse og kan se nogenlunde således ud:

Private Sub email_beforeupdate(cancel as integer)
    Dim posa As Integer
    Dim pospunktum As Integer
    posa = InStr(1, Me!email, \"@\")
    pospunktum = InStr(posa, Me!email, \".\")
    If posa = 0 Or pospunktum = 0 Then
        MsgBox \"Ugyldig email!\", vbCritical
        DoCmd.CancelEvent
    End If
end sub

PS: HUsk at udskifte email hvis dit felt hedder noget andet!

/Thomas
www.makeiteasy.dk