Kontrol af indtastning i formular

Tilføjelse:

Jeg har med vilje fjernet alle de escape chars (\) fra koden i det oprindelige spørgsmål. VB editoren i min access brokkede sig kraftigt over det.

Denne uden "  " ved kriteriet:
Private Sub kontonr_BeforeUpdate(Cancel As Integer)
  If Me.NewRecord Then
      If DCount("*", "Fastrenter", kontonr = Me!kontonr) > 0 Then
        MsgBox "Kontonummer findes i forvejen!", vbCritical
        DoCmd.CancelEvent
        Exit Sub
      End If
  End If
End Sub

Skriver fejlbeskeden, men gør det nærmest konsekvent hver gang, selvom kontonummeret ikke findes i forvejen.

Prøv i stedet at lægge koden her.

Private Sub Form_Current()

Glem mit sidste forslag.
Prøv dette.

Private Sub kontonr_BeforeUpdate(Cancel As Integer)
On Error GoTo Errorhandler
DoCmd.SetWarnings False
  If Me.NewRecord Then
      If DCount("*", "Fastrenter", kontonr = Me!kontonr) > 0 Then
        MsgBox "Kontonummer findes i forvejen!", vbCritical
        DoCmd.CancelEvent
        Exit Sub
      End If
  End If
  Errorhandler:
If Error = 2001 Then
Me.Undo
End If
DoCmd.SetWarnings True
End Sub

End Sub

Samme fejl:

    If DCount("*", "Fastrenter", "kontonr = Me!kontonr") > 0 Then

Du har annuleret den forrige handling.

Tror også mit problem er jeg ikke ved præcis hvordan den DCount kode skal skrives. Formålet med det hele var at den skulle undersøge tabellen for at se om det indtastede i formularen allerede findes i tabellen. Helst ved fokusskifte fra indtastningsfeltet. Men pånuværende tidspunkt er jeg parat til hvad som helst for at få det til at virke :)

Hmmm dit sidste forslag gør bare at fejl teksten kommer frem næsten hele tiden. Eneste tidspunkt jeg ikke får den, er når jeg hopper til ny post, og straks derefter hopper videre fra feltet (kontonr) hvis det er blankt.

Hvis jeg indtaster et tal, som jeg ved ikke findes i tabellen får jeg stadig fejl teksten (kontonummer findes i forvejen).

Jeg har brugt denne til kontrol af on det indtastede leverandørvarenr. ikke allerede var anvendt.Måske det kan hjælpe dig på vej.

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Errorhandler
DoCmd.SetWarnings False
If DCount("*", "tblvareliste", "[Lnummer] = '" & Me!LVnummer & "' AND VareID <> " & Me!VareID) > 0 Then
      MsgBox "Dette leverandør-varenummer findes i forvejen!" & vbNewLine & "", vbCritical
      DoCmd.CancelEvent
      Me.Undo
      DoCmd.GoToRecord , , acNewRec
      Me.Vnr.SetFocus
     
      Exit Sub
  End If
 
Errorhandler:
If Error = 2001 Then
Me.Undo
End If
DoCmd.SetWarnings True
End Sub

Prøv at fjerne koden fra Exit_kontonr.

Jeg sloges med samme problem da jeg endte med at lægge koden (fra forrige kommentar) ved Form_BeforeUpdate , og refresh på et senere felt (ikke på det felt det vedrører).

Nu virker det sq!

Private Sub kontonr_BeforeUpdate(Cancel As Integer)
  If Me.NewRecord Then
      If DCount("*", "Fastrenter", "[kontonr] = '" & Me!kontonr & "' AND Id <> " & Me!Id) > 0 Then
        MsgBox "Kontonummer findes i forvejen!", vbCritical
        DoCmd.CancelEvent
        Exit Sub
      End If
  End If
End Sub

Tror jeg manglede '  ' rundt om Me!kontonr

Mange tak for hjælpen!

Send mig et svar så skal du have point :)

Godt du fik løst problemet.

Ja super lækkert :)

I can see that the problem is solved so this is juts for interest.

The beforeupdate event receives a parameter (cancel) if you want to cancel the update then just set the paramater to true

so instead of DoCmd.CancelEvent

use

Cancel = True