Isnull problem

[Rommyke]

hoi allemaal ,
Met anderstaande code laat ik een volledig overzicht uitlopen van een tabel

DoCmd.OpenReport stDocName, acPreview

Om nu een overzicht te laten uitlopen van een geselecteerde criteria gebruik ik onderstaande code

gekozennaam = Me.IstSelection.ItemData(Me.IstSelection.ListIndex)

 DoCmd.OpenReport stDocName, acPreview, , "WerknemersID = " & gekozennaam

als ik nu geen criteria ingeef omdat ik een volledige uitprint wil van alles krijg ik een 'isnull 'fout .
gekozennaam = 0
hoe kan ik dit oplossing dat wanneer ik niks ingeef dat ik terug een volledig rapport krijg zoals de eerste code ?

bedankt

Groeten Romain

 

[maartenf]

je kunt via een case statement het criterium opbouwen

bijvoorbeeld
gekozennaam = Me.IstSelection.ItemData(Me.IstSelection.ListIndex)

select case gekozennaam
case 0
crit = "WerknemersID <> " & 99999
case else
crit = "WerknemersID = " & gekozennaam
end select

of via een if
if gekozennaam = 0 then
crit = "WerknemersID <> " & 99999
else
crit = "WerknemersID = " & gekozennaam
endif

dan rapport openen met crit, dus

DoCmd.OpenReport stDocName, acPreview, , crit

 

[Rommyke]

Hoi maarten ,


Ik krijg mijn isnull error al van in het begin

gekozennaam = Me.IstSelection.ItemData(Me.IstSelection.ListIndex)

op deze regel blijft hem steken

 

[maartenf]

Hoi maarten ,


Ik krijg mijn isnull error al van in het begin

gekozennaam = Me.IstSelection.ItemData(Me.IstSelection.ListIndex)

op deze regel blijft hem steken

en als je dat in een voorwaarde zet?
bijvoorbeeld
if Me.IstSelection.ItemData(Me.IstSelection.ListIndex) = 0 then
exit sub
else
DoCmd.OpenReport stDocName, acPreview, , "WerknemersID = " & Me.IstSelection.ItemData(Me.IstSelection.ListIndex)
endif

 

[Rommyke]

Hoi MaartenF

Dit werk wel .
if Me.IstSelection.ItemData(Me.IstSelection.ListIndex) = 0 then


in volgende code blijft hem ook steken

crit = "WerknemersID <> " & 99999
else
crit = "WerknemersID = " & gekozennaam
end if

moet ik nog extra strings erbij voegen ?

 

[maartenf]

nee hoor. enkel de exit sub veranderen
de volledig code wordt dan als volgt:

if Me.IstSelection.ItemData(Me.IstSelection.ListIndex) = 0 then
DoCmd.OpenReport stDocName, acPreview
else
DoCmd.OpenReport stDocName, acPreview, , "WerknemersID = " & Me.IstSelection.ItemData(Me.IstSelection.ListIndex)
endif

de rest van de code kun je weer verwijderen

uitleg:
als de keuze niet gevuld
dan
open rapport zonder voorwaarde
zo niet
open rapport met voorwaarde

 

[Rommyke]

Hoi MaartenF

Alles werkt perfect nu


Bedankt voor de hulp


groetjes

Romain