Hallo Knopperke,

ik ga even doen alsof ik niet gezien heb dat de bestandsnaam Oefening dlookup en duplicate entries is .

Ik ken niet zoveel van Access, maar ik vond denk'k wel twee foutjes:
1) DLookup verwacht als argumenten tekenreeksen (strings). Jij had DLookUp([ItemDatum];... ipv DLookUp("[ItemDatum]";... . Dat verklaart de 'vreemde' fout die je kreeg. Het is in zo'n geval altijd handig om eens de functie op te zoeken om te kijken of je die qua syntax wel correct gebruikt.

2) DLookup wordt volgens mij verkeerd gebruikt.
Wat jij had als voorwaarde: DLookUp("[ItemNummer]";"tblGegevens";"[ItemNummer]>0") And ... .

Dat zoekt volgens mij gewoon de eerste waarde op in de tabel tblGegevens waarbij ItemNummer > 0. Er staat nergens bij dat er moet gezocht worden naar een specifiek nummer, namelijk het nummer dat je ingevuld hebt .

Daarom dit:

DLookUp("[ItemNummer]"; "tblGegevens"; "[ItemNummer] > 0
and [ItemNummer] = " & CLng([Forms]![frmGegevensinvoer]![ItemNummer])) Is Not Null

Nu wordt er gezocht naar een record met hetzelfde ItemNummer. CLng converteert de tekst (ItemNummer is op de form een tekstvak) naar een geheel getal van type Long.

Ten slotte heb ik nog 'Is Not Null' bij de voorwaarde gezet, omdat DLookup null teruggeeft wanneer er niets gevonden is. Op die manier wordt er geëvalueerd naar een true/false waarde.

Nu hoop ik juist dat de Access experts hier nog iets heel laten van m'n redenering .

Ik had wel die twee velden tegelijk gekozen vooraleer ik "voor bijwerken" koos, zodanig dat in de 2 velden, dezelfde macro stond. Kan dat ook de oorzaak zijn? Of een ervan?

Oorzaak van wat, van die fout? Kan je misschien eens de exacte foutmelding geven die jij krijgt? Degene die ik krijg bij de database zoals ze in bijlage toegevoegd is, werd zoals gezegd verholpen door de dubbele aanhalingstekens te gebruiken bij het eerste argument van DLookup() .

Ik zou een Dcount gebruiken omdat dit altijd een getal teruggeeft.
Dlookup geeft NULL terug als er niets gevonden wordt.

En ook zoals andere het al zeiden. Als Itemnummer een uniek veld is, waarom maak je 'dat' als sleutelveld niet? Een sleutelveld hoeft zeker geen autonummeringveld te zijn.

Ik zou ook in geen geval het formulier koppelen aan tblGegevens maar de velden laten invullen en bij klikken op de knop pas de gegevens wegschrijven.

Private Sub ItemNummer_BeforeUpdate(Cancel As Integer)
   
    'Gebruik een Dcount ipv Dlookup
    'Dcount geeft bij geen gevonden 0 terug
    'Dlookup geeft als waarde null terug --> als je dat ergens probeert in te stoppen krijg je een error die je moet opvangen
    Dim AanTalVanDitItemnummer As Byte
   
    AanTalVanDitItemnummer = DCount("ItemNummer", "tblGegevens", "Itemnummer=" & Me.ItemNummer)
    If AanTalVanDitItemnummer > 0 Then
        'Geef een boodschap dat nummer al bestaat
        MsgBox "Sorry dit nummer is al in gebruik", vbCritical

        'Verlaat de sub
        Exit Sub
    End If
End Sub