Verplichte invoer foutmelding!

[veerle55]

Beste forum'ers,

ik heb deze vba code voor een verplichte invoer te hebben voor mijn velden


strMsg = " niet ingevuld!"

For iTeller = 1 To 10
If IsNull(Me("veld" & CStr(iTeller))) Then
strLblCaption = Me("veld" & CStr(iTeller)).Controls(0).Caption
MsgBox "U heeft " & strLblCaption & strMsg, vbCritical, "Onvolledige gegevensinvoer"
Me("veld" & CStr(iTeller)).SetFocus
Exit Sub
End If
Next iTeller


Nu is het zo dat wanneer ik mijn eerste veld niet invul dat die dan een melding geeft van "U heeft vul hier de naam in niet ingevuld!", dit is dus een verkeerde foutmelding. In al de volgende velden geeft die een juiste foutmelding van "U heeft .... niet ingevuld!"

Ik heb in heel het programma en eigenschappenvensters gezocht maar de fout niet gevonden. Ik heb nergens iets gevonden met "vul hier de naam in". Het zal wel iets zijn met die caption, maar waar zit dan de fout?
Wie heeft een oplossing?

Dank

Mvg

Veerle

 

[thomrob]

heb je niet een validatietekst in je tabelontwerp ingevoerd?

 

[veerle55]

inderdaad, iets met een caption

maar in de eigenschappenvenster(s) heb ik niets gevonden.
dus ik weet niet waar de fout kan liggen.

Dank
Mvg

Veerle

 

[veerle55]

kan ik anders mijn db doorsturen naar jou?

Mvg

Veerle

 

[Bartuls]

Doorsturen is op het forum niet gebruikelijk. Het is heel goed mogelijk dat met het antwoord op jou vraag ook anderen geholpen zijn. Dat lukt natuurlijk nooit als jullie elkaar dingen gaan doorsturen. Je kunt je database posten op dit forum. Daarmee geef je meteen ook anderen de mogelijkheid een antwoord te geven op je vraag.