Archief - Dit is compleet onlogisch! Hulp gevraagd!

Ik heb een database met een veld txtInventarisnummer.
Ik probeer nu te regelen dat als er een veld in het veld niet is ingevuld er een foutmelding komt en dat er een setfocus naar dat veld gebeurd, allemaal standaard spul dus.

Private Sub controle()

Select Case True
Case txtinventarisnummer.Value = Null
strfout = "geen waarde ingevuld in het veld inventarisnummer"
blnFoutwaarde = True
Case txtSerienummer.Value = Null
strfout = "geen waarde ingevuld in het veld serienummer"
blnFoutwaarde = True
txtSerienummer.SetFocus
Case Else
blnFoutwaarde = False
End Select

End Sub


Ik krijg steeds de boodschap "Invalid use of Null" op de eerste case al. Maar als ik dan met de muisaanwijzer op txtinventarisnummer.value ga staan, om de waarde hiervan af te lezen, staat er txtinventarisnummer.value = Null.
Dat is dus compleet onlogisch, kent iemand de oplossing voor dit probleem. Ik begin ondertussen al redelijk hard te flippen eigelijk :doh:

hij moet de case kiezen die WAAR is , maar bij uw cases zegt ge dat ze NIET WAAR zijn, da's tegenstrijdig he

ik ken wel enkel visual basic (lijkt er toch wat op) , en het lijkt mij logisch eens te proberen select case null ipv select case true ...

Ben niet zeker of dit werkt maar probeer die Null eens te vervangen door ""

Dus zoiets als

InventarisText.Value := ""

door "" zal niet werken, aangezien het om een waarde gaat , geen tekst

null vervangen door 0 of door false lijkt mij meer kans op slagen te hebben?

punkrockdude zei:

door "" zal niet werken, aangezien het om een waarde gaat , geen tekst

null vervangen door 0 of door false lijkt mij meer kans op slagen te hebben?

Klik om te vergroten...

idd, het was de 0
bedankt punkrockdude

wel raar want ik controleer een string d.m.v. een getal dan

nope, werkt toch ni, en nu hebbek is geprobeert met = Null en dan geeft hem nog altijd die fout

man, dit klopt echt nimeer hé
ik kijk gewoon ofda da null is, ik doe da geen bewerking mee terwijl da da null is, en toch loopt da fucking stoem vba gedoe daarop vast

ok, het is opgelost,
Dit was de oplossing:

Private Sub controle()
Dim strinventnr As String
Dim strserienr As String

blnFoutwaarde = False

txtSerienummer.SetFocus
strserienr = txtSerienummer.Text

txtinventarisnummer.SetFocus
strinventnr = txtinventarisnummer.Text
Select Case True

Case strinventnr = ""
strfout = "foute waarde in het veld inventarisnummer"
blnFoutwaarde = True
Case strserienr = ""
strfout = "foute waarde in het veld serienummer"
blnFoutwaarde = True
txtSerienummer.SetFocus
Case Else
blnFoutwaarde = False
End Select

End Sub