VBA kijken of waarde bestaat in tabel

Status
Niet open voor verdere reacties.
L

LauravT

Gebruiker
Lid geworden
14 jun 2012
Berichten
156
Hallo,

Onderstaande code heb ik.

Code: 
Dim varX As Variant
varX = DLookup("[nummer]", "tblnummers", "[nummer] ='" & Forms![NR]![Textbox1] & "'")

If varX Is Nothing Then
    MsgBox "Nee!"
Else
    MsgBox "Jup!"
End If

De bedoeling is dat ie dus aangeeft of iets voorkomt in de tabel of niet.
Ik wil dus zoeken in het veld nummer in de tabel tblnummers of het opgegeven nummer op het formulier voorkomt.

Kan iemand mij hierbij helpen?
 
Waarom zo ingewikkeld?
Code: 
If DLookup("[nummer]", "tblnummers", "[nummer] =""" & Me.Textbox1 & """") = "" Then
    MsgBox "Nee!"
Else
    MsgBox "Jup!"
End If
 
50 is een getal; jouw oorspronkelijke (en dus ook mijn aangepaste) code filtert op tekst. Pas dat eens aan.
 
Sorry voor de late reactie,..

In de tabel staat het veld op tekst, stel dat ik zoek op hoi dan blijft hij aangeven dat ie bestaat, terwijl deze wel degelijk niet in de tabel staat.
 
Je kunt de lookup nog wat verder verfijnen:
Code: 
    If Nz(DLookup("[nummer]", "Tabel1", "[nummer] =""" & Me.Tekst1 & """"), "") = vbNullString Then
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan