obligatorisk

Me.Undo

Du kan specificere det lidt nærmere ved hjælp af en fejlhåndtering og Masbox:

OnError GoTo ErrorHandler
her følger din kode
ErrorHandler:
MsgBox "Posten ikke gemmes, da du ikke har indtastet data i alle felter."
Me.Undo
End Sub

Du kan også i formularens OnClose hændelse måle på oblæogatoriske felter:

If IsNull(Me.felt1) then
MsgBox "bla bla"
Me.Undo

hmmm hvor vil du putte onerror goto ... kode ind ?

Private Sub kommandoknap1_Click()
OnError GoTo Errorhandler
noget kodeværk
ErrorHandler:
MsgBox "bla bla2
End sub

ja men problemet er at det er når "cykler" mellem posterne med fx Pgup, eller sroll

jeg er klar over alt det med at "fange" en fejl problemet er bare at hvis de fx med TAB eller en kommer til at cykle for langt, så kommer den skod meddelse som man ikke kan "fange" og laver mere brugervenlig eller kan man ?

Vent - roder lige lidt med det.

takker r lige væk i ½ t

Indsæt denne i formularens VedAktuel hændelse (OnCurrent):

If Me.NewRecord Then
MsgBox "Du er ved at oprette en ny post." & vbNewLine & "Du skal udfylde alle felter."
End If

Og denne i formularens førOpdatering (BeforeUpdate):

On Error GoTo ErrorHandler
ErrorHandler:
MsgBox "bla bla"
Me.Undo
DoCmd.GoToRecord acForm, "form1", acPrevious, 1

Koderne er afprøvet i en Access97 Db. Læg din e-mail hvis du vil have den tilsendt.

perfekt.