Lige før ny record

F.eks kan du bruge denne:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Fornavn) Then
MsgBox "du skal udfylde feltet fornavn."
End If
End Sub

koden kører en kontrol på feltet Fornavn der ikke må være Null (Tom streng) når formularen forlades inden de nye data bliver lagret i tabellen.

Jeg har en Liste, hvor man kan lave flere valg, men det som er vigtigt er at der bliver lavet et valg, men den synes at være pænt ligeglad.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim i As Integer
Dim warning As Integer
warning = 1

For i = 0 To Stade.ListCount - 1
    If Stade.Selected(i) Then
        If Stade.Column(1, i) = "10 Igangværende" Then
            warning = 0
        ElseIf Stade.Column(1, i) = "20 Option" Then
            warning = 0
        ElseIf Stade.Column(1, i) = "30 Mulig sag" Then
            warning = 0
        ElseIf Stade.Column(1, i) = "40 Afsluttet sag" Then
            warning = 0
        ElseIf Stade.Column(1, i) = "60 Projektmulighed" Then
            warning = 0
        End If
    End If
Next i
If warning = 1 Then
MsgBox "Vælge stade!", vbCritical
DoCmd.CancelEvent
End If
End Sub

Hvis jeg sætter koden i VedUdgang af Stade så checker den og kommer med fejl meddelsen

Mugs'es kode trigges kun, hvis du ændre noget i indholdet - og altså ikke hvis du bare bladre gennem posterne. Kan det være derfor?

PS: Tillykke med førstepladsen Mugs :o)

Morn' Thomas - Øhh førstepladsen :o)

Ha ha - Ja nu ser jeg det. Jeg har godt nok haft travlt iaftes.

Hvis der skal bladres gennem posterne, skal koden indsættes i formularens VedAktuel

joe, men så checker den når den kommer til næste post, ikke ?
Den skal checke når man går vidre til næste post, men så før den går vidre, så checker den om alt er som det skal være.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Fornavn) Then
MsgBox "du skal udfylde feltet fornavn."
docmd.cancelevent
End If
End Sub