Melding bij invoer dubbel serienummer

[firstr]

Hallo,

hoe controleer ik bij access of een nummer reeds bestaat in de tabel/kolom na invoer via een formulier.
Ik wil een melding genereren en een query starten als het ingevoerde nummer reeds eerder ter reparatie is aangeboden.
Het is wel toegestaan om dat dubbele nummer in te voeren.
Ik hoop dat iemand kan helpen.

Groeten Raymond

 

[WimenBeer]

Hallo,

hoe controleer ik bij access of een nummer reeds bestaat in de tabel/kolom na invoer via een formulier.
Ik wil een melding genereren en een query starten als het ingevoerde nummer reeds eerder ter reparatie is aangeboden.
Het is wel toegestaan om dat dubbele nummer in te voeren.
Ik hoop dat iemand kan helpen.

Groeten Raymond

Kijk eens naar de mogelijkheden van DLookup in VBA

Wim

 

[firstr]

Dlookup

Zo goed ben ik niet met vba, hoe moet ik dat precies doen?
Met dlookup zoeken in de tabel reparatie, veld serienr naar het ingevoerde nummer van het formulier en als dat reeds voorkomt een query openen?

Alvast bedankt voor de hulp.

 

[WimenBeer]

Zo goed ben ik niet met vba, hoe moet ik dat precies doen?
Met dlookup zoeken in de tabel reparatie, veld serienr naar het ingevoerde nummer van het formulier en als dat reeds voorkomt een query openen?

Alvast bedankt voor de hulp.

Als je hierop antwoord wilt zal je toch echt even een voorbeeld moeten posten.
LETOP: Er zijn heel wat problemen met .zip bestandjes.

Wim

 

[firstr]

bijlage posten lukt niet

2 keer geprobeerd om een bijlage te posten maar die is na downloaden niet bruikbaar.

 

[firstr]

Ik heb het volgende geprobeerd maar het werkt niet en ik weet niet waarom:

Private Sub serienummer_BeforeUpdate(Cancel As Integer)
If DLookup("[serienummer]", "reparatiebestand", serienummer = Me.serienummer) = Null Then
MsgBox "Dit serienummer is reeds eerder ingevoerd"
End If
End Sub

 

[WimenBeer]

Ik heb het volgende geprobeerd maar het werkt niet en ik weet niet waarom:

Private Sub serienummer_BeforeUpdate(Cancel As Integer)
If DLookup("[serienummer]", "reparatiebestand", serienummer = Me.serienummer) = Null Then
MsgBox "Dit serienummer is reeds eerder ingevoerd"
End If
End Sub

If DLookup("[serienummer]", "reparatiebestand", [COLOR="red"]"[/COLOR]serienummer = Me.serienummer[COLOR="Red"]"[/COLOR]) = Null

Dit zal wel werken

Wim