[vb access] kan niet null gebruiken in vb?

[BitByter]

jongejonge, ik begin toch even aan mezelf te twijfelen hier
ik zet met het volgende:



ik heb het volgende formuliertje dus
het witte vakje boven hangt aan een query, en die berekend een totaal verkocht bedrag van een datum tot een datum

als je op de knop drukt, gaat hij dus kijken of het bedrag kleiner is als 500

zo niet, krijgt hij geen messagebox
zo wel, krijgt hij wel een messagebox

wat is nou het (grote ) probleem
het kan ook zijn, dat er helemaal geen verkochten producten aanwezig zijn in de tabel. en de query returned naar dat vakje "Null" of "isnull" (dacht ik)

nou dacht ik natuurlijk slim te zijn en het met onderstaande code er gemakkelijk uit te filteren

het lijkt me hele logische code

als expressie 1 kleiner als 500 is, OF hij is null, doe dan dit

anders dat

WAT is de clue mensen

code:

Private Sub Knop2_Click()

If Expr1 < 500 Or Null Then

 
Dim Msg, Style, Title, Response, mystring 'declareert alle benodigde functies
Msg = "Deze klant heeft voor minder dan 500 euro verkocht, er wordt geen rekening afgedrukt"   ' de message die wordt weergegeven
Style = vbOKOnly 'de knoppen van de message box
Title = "Mededeling" 'titel van de message box

Response = MsgBox(Msg, Style, Title) 'message box slaat terug op vorige 3 regels
'If Response = vbYes Then 'De gebruiker kiest ja
Else

End If
End Sub

[ Voor 17% gewijzigd door BitByter op 29-04-2003 01:57 ]

[CrashOne]

als expressie 1 groter als 500 is, OF hij is null, doe dan dit

anders dat

Maar je schrijft:
If Expr1 < 500 Or Null Then

[André]

Yep:

Visual Basic:

if Expr1 < 500 or Expr1 = Null then

[BitByter]

Visual Basic:

if Expr1 < 500 or Expr1 = Null then

werkt niet, bij null laat hij geen msgbox zien

code:

If Expr1 > 1 And Expr1 < 500 Then

Else
Dim Msg, Style, Title, Response, mystring 'declareert alle benodigde functies
Msg = "Deze klant heeft voor minder dan 500 euro verkocht, er wordt geen rekening afgedrukt"   ' de message die wordt weergegeven
Style = vbOKOnly 'de knoppen van de message box
Title = "Mededeling" 'titel van de message box

Response = MsgBox(Msg, Style, Title) 'message box slaat terug op vorige 3 regels
'If Response = vbYes Then 'De gebruiker kiest ja

End If

End Sub

nou heb ik deze code uitgevonden.

hij doet als hij null is zeggen dat het te weinig euro's zijn
maar nou zegt hij ook dat het te weinig euro's zijn bij een bedrag van 30000 euro

ik word gek

[ Voor 14% gewijzigd door BitByter op 29-04-2003 02:39 ]

[BitByter]

code:

Private Sub Knop2_Click()

If Expr1 > 1 And Expr1 < 500 Then

Dim Msg, Style, Title, Response, mystring 'declareert alle benodigde functies
Msg = "Deze klant heeft voor minder dan 500 euro verkocht, er wordt geen rekening afgedrukt"   ' de message die wordt weergegeven
Style = vbOKOnly 'de knoppen van de message box
Title = "Mededeling" 'titel van de message box

Response = MsgBox(Msg, Style, Title) 'message box slaat terug op vorige 3 regels
'If Response = vbYes Then 'De gebruiker kiest ja

End If


If Expr1.Value <> "" And Expr1.Value > 1 And Expr1.Value < 500 Then
MsgBox "Start procedure voor ingevoerd veld die lager is dan 500"
Else
If Expr1.Value <> "" And Expr1.Value > 1 And Expr1.Value > 500 Then
'    MsgBox "Start procedure voor ingevoerd veld die hoger is dan 500"
Else
MsgBox "Geen van beide voldeed dus het moet wel een leeg veld zijn"
End If
End If
End Sub

HE, HE

het werkt

dat dat zo moeilijk moet voor zo'n kleine brakke functie

[Phenomenon]

Je moet isnull gebruiken

Visual Basic:

If isnull(expr1) or expr1 <= 500 then
   msgbox "Kleiner of null"
 else
   msgbox "groter"
end if