Access vba. Boolean vergeljking werkt niet

[KPTPTT]

Hallo,
Ik heb een probleem met een Boolean vergelijking die voorheen werkte maar zonder aanpassingen nu niet meer werkt. Hoe iets eenvoudigs een kwelling kan zijn.

Dim sStatus1a As Integer
Dim sStatus1b As Integer
Dim sStatusTotal1 As Boolean

           MsgBox sStatus1a
           MsgBox sStatus1b
           If sStatus1a And sStatus1b <> 0 Then
                sStatusTotal1 = True
           End if
           MsgBox sStatusTotal1

Als sStatus1a en sStatus1b allebei <0> zijn dan is waarde van sStatusTotal1 <Waar>, dat kan toch niet. De oorspronkelijke setting van sStatusTotal1 was ook Integer maar dat werkte niet en dan <sStatusTotal1 = 1>. Wat zie ik over het hoofd, wat kan ik doen? Doet de onderliggende Interperter vervelend?

 

[edmoor]

Je vergelijkt 2 Integers als waren het Booleans.
Dit zal beter gaan:

If sStatus1a + sStatus1b > 0 Then
    sStatusTotal1 = True
End if

 

[KPTPTT]

Dank voor je reactie. Je opmerking had ik ook getest, maar maakt het niet beter. Het is zelfs zo, als ik <sStatus1a = 12> maak, dan blijft de uitkomst van <sStatusTotal1 Onwaar>. Ik heb als extra een begingwaarde <sStatusTotal1 = False> van toegevoegd maar ook dat helpt niet.

Intussen na volharding gaat het nu goed. Ik heb vooraf aan de vergelijking sStatus1a en sStatus1b = O en sStatusTotal1 = False gemaakt en nu werkt het. Zo'n kort overleg op het forum dat helpt je weer op weg als je vast zit. Super, bedankt.

 

[edmoor]

Ik denk dat je je nog eens goed moet verdiepen in het concept van Booleans.

 

[KPTPTT]

Dank voor het meedenken. de integers hebben in het programma de waarde bv. 17 en 4, dus groter dan 0 of allebei de waarde 0. Dan klopt de vergelijking toch. Vervolgens mag ik sStatusTotal1 de Boolean waarde True toewijzen. Wat is daar verkeerd aan.? Ik had in eerste instantie sStatusTotal1 ook als interger en de waarde 1 gegeven maar dat werkte ook niet niet.
Inmiddels heb ik het met de oplossing #1 opgelost.

 

[OctaFish]

Waarom niet zo?

     If sStatus1a > 0 And sStatus1b > 0 Then sStatusTotal1 = True

 

[snb]

Of zo

sStatusTotal1 = sStatus1a * sStatus1b > 0

 

[KPTPTT]

Allemaal bedankt. Had ik nog niet bedacht, er zijn veel wegen naar Rome. Ik heb die van OctaFish toegepast en het werkt nu goed en ben weer terug op het rechte pad. Het probleem was de initialisatie. De vergelijking was één van de velen vergelijingen en was aan het vergelijken met voorgaande waarden en dat gaat niet goed.