Tjek om medarbejder ID eksistere -

Hej Maria, hvis medarbejderID er den primær nøgle tillades dubletter jo ikke, vil access ikke give en fejl automatisk når du forlader feltet medarbejderID, hvis du har indtastet et medarbejderid der allerede findes?

Nej da back end er My SQL

Okay, ved ikke så meget om My SQL som backend, mon ikke der dukker et mere klogt hoved op senere :)

Private Sub IndtastFelt_AfterUpdate()
   
    If IndtastFelt.Value = DLookup("[MedarbejderID]", "tblMedarbejderregister") Then
      MsgBox ("Match")
    Else
      MsgBox ("No Match")
    End If
   
End Sub

Den giver en fejl der hedder object reguries

Tabellen hedder medarbejder id´et hedder MedarbejderId -

No match har jeg sagt medarbejder eksistere allerde - og det siger den selvom medarbejderid er der eller ej!!

Benytter du et ubundet felt ( IndtastFelt ) til at kontrollere ?

Private Sub IndtastFelt_AfterUpdate()
   
    If IndtastFelt.Value = DLookup("[MedarbejderId]", "Medarbejder") Then
      MsgBox ("Match")
    Else
      MsgBox ("No Match")
    End If
   
End Sub

IndtastFelt og MedarbedderId skal begge være enten nummerisk eller alfanummerisk

min felter hedder medarbejderid som er = Indtastfelt

de er nummeriske

Private Sub MedarbejderId_AfterUpdate()
   
    If MedarbejderId.Value = DLookup("[MedarbejderId]", "Medarbejder") Then
      MsgBox ("Medarbejderid kan anvendes")
    Else
      MsgBox ("Medarbejder eksistere allerede")
    End If
   
End Sub

Den skriver selvom jeg ved at medarbejderenr ikke eksistere så skriver det gør!!

Else
      MsgBox ("Medarbejder eksistere allerede")
    End If


DEnne meddelse får jeg uanset hvad!!

Mit forslag forudsætter, at IndtastFelt er et ubundet felt

Hmm har du ikke en kode hvr det er et bundet felt??

Som AAndersen nævner, giver den automatisk fejlmeddelelse, hvis du forsøger at indtaste den samme værdi direkte i tabellen

jamen det gør det ikke når det er my sql

Hvis du benytter den løsning jeg har skitseret, kan du efterfølgende indsætte værdien i tabellen i de tilfælde hvor medarbejderId ikke findes i forvejen :

Private Sub IndtastFelt_AfterUpdate()
   
    If IndtastFelt.Value = DLookup("[MedarbejderId]", "Medarbejder") Then
      MsgBox ("Medarbejderid kan anvendes")
        MedarbejderId.Value = IndtastFelt.Value
    Else
      MsgBox ("Medarbejder eksistere allerede")
    End If
   
End Sub

Okay men det skal stadig være ubundet ik´

Ja ... den skal være ubundet

Så kan jeg ikke bruge den desværre

Denne kontrollerer, at en ny post ikke oprettes med eksisterende id:

Dim VARa As Long
If Me.NewRecord Then
VARa = Me.medarbejderid
If DCount("*", "medarbejder", "[medarbejderid] =" & VARa) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
Exit Sub
End If
End If

Og hvis det ikke er en ny post:

Dim VARa As Long
VARa = Me.medarbejderid
If DCount("*", "medarbejder", "[medarbejderid] =" & VARa) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
Exit Sub
End If

mugs skal jeg sætte begge ind og hvor

Kun den ene afhængig om det er en ny post som jeg skriver. Indledningsvis sæt den ind på en kommandoknap for atr se om den fungerer. Senere kan du flytte den til feltet medarbejderid i BeforeUpdate.

perfekt mugs

jeg takker

Selv tak.