je doet eerst een dcount() als die de waarde 0 geeft dan geef je het bericht


Dim AantalRecords as integer
AantalRecords = Dcount("eenveld","Welketabel","WelkeVoorwaarde")
if AantalRecords <1 then
     msgbox "Geen Records gevonden"
     exit sub
end if

En nu doe je de Dlookup("eenveld","Welketabel","WelkeVoorwaarde")

Math,
Ik heb Formulier1 aangepast met alles wat kan verkeerd gaan.
Ik heb een Formulier2 gemaakt hoe het anders kan zonder deze controles.
Hopelijk heb je er wat aan.
dizzl

Math,

Isnull betekent NIET '=0' maar  betekent 'IS LEEG' vandaar ook nulL (de tweede L)

In sommige voorbeelden kwam ik ook al iets tegen als
if len( txtVelnaam) >0 then ...

In dat geval doen ze het met de lengte van wat in het veld is. Als er niets in zit dan is deze natuurlijk = 0

btw Softaid....jou nick spelt niemand het best in meervoud ;-p

Ik word er DuIZZeLig van... 

Greetings,

SoftAid              

Ik maak zelf een variabele aan die vBTWNummer heet

Dat doe ik met
Dim vBTWNummer As IntegerDit wil zeggen maak een variabele aan die vBTWNummer heet van het type Integer (geheel getal)

De naam is slecht gekozen. We tellen immers het aantal BTWNRs die aan de voorwaarde voldoen. Sorry als ik je daarmee in verwarring bracht.
    'We kijken of de btwnr er in staat
    Dim AantalBTWNummers As Integer
    AantalBTWNummers = DCount("BTWNR", "BTW", "BTWNR=" & Me.BTWNR)
    If AantalBTWNummers = 0 Then 'we hebben er géén
        MsgBox "BTWnummer bestaat niet"
        Exit Sub
    End If
       
    txtBTWPercentage = DLookup("PERCENTAGE", "BTW", "BTWNR=" & Me.BTWNR)

Als je ze één voor één stelt....doe ik mijn best....van 80% van de vragen die je stelt, leer ik ook wat bij.