Fejlmeddelelse ved indtastning

Du kan lave en errorhandler i formularens BeforeUpdate:

OnError
MsgBox Err.Number & Err.describtion

Jeg kan ikke lige huske den korrekte syntaks (Har ikke Access på denne maskine). Hvis du vil tælle om den nye post allerede eksisterer, kan du bruge funktionen DCount med et kriterie der refererer til et felt på formularen.

Den ser cirka sådan ud:

Sub ....
  On Error GoTo Fejl
  ' Gør et eller andet
  Exit Sub
   
Fejl:
  MsgBox Err.Number & vbCrLf & Err.Description
  ' .. en eller anden fejlhåndtering
Exit Sub

Heysa,

Tak for svarene, men det virker ikke rigtigt.

Jeg har prøvet med:

Private Sub Form_BeforeUpdate(Cancel As Integer)
  On Error GoTo Fejl
  Exit Sub
Fejl:
  MsgBox Err.Number & vbCrLf & Err.Description
End Sub

Kan i se hvad der er galt?

Hvis der ikke er fejl forlader du jo blot procedüren, ellers viser den fejlnr og beskrivelse.

Men når du skriver, at det ikke fungerer, får du så nogen andre meddelelser?
En mulighed kan være, at du et andet sted i din applikation, har anvendt DocmdsetWarnings false, uden at sætte dem til true igen.

Jeg prøver at fremprovokere en fejl, og det virker ikke. Tabellen som formen gemmer i, den har et felt med navn i, som er unikt. Hvis jeg tilføjer en ny post via formen med samme navn, så lader den bare være med at gemme, men afslutter formen. Uden jeg får en fejlmeddelelse.

Har du mulighed for at sende db:

mugs@mail.dk

Hermed gjort! Mange tak.

db er returneret med flg kode indsat:

Private Sub Firmanavn_BeforeUpdate(Cancel As Integer)
If DCount("*", "T_Firma", "[Firmanavn]= '" & Me.Firmanavn & "'") > 0 Then
MsgBox Prompt:="Der er allerede en post med dette firmanavn.", Title:="Posten kan ikke oprettes", Buttons:=vbCritical
Me.Undo
End If
End Sub

Hvor Firmanavn er det unikke felt

Mange tak!