Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

VBA Check Box

dlutondluton Member Posts: 1
Hi,
I work for an educational charity and we have had a VBA Database designed for us to store our data.
One of the cpabilities of the DB is exporting data using various functions and commands. However, some of the coding for one of the check boxes in the database is incorrect. Currently, the checkbox references a prebuilt query (SchoolRecordProgrammes) looking up a child's dropout status in SchoolDroppedOut column. So if there is a value in the column the box is checked if not it remains unchecked. However, what it should do is check the value, if it is not equal to 1 or 4 then check the box, otherwise don't... Can this be done? Below is the code that is relevant for the checkbox, specifically the IIF command:

strSQL = strSQL & _
"WHERE qrySchoolRecordProgrammes.SchoolIDX IN (" & trSelectedSchools & ")" & _
" AND qrySchoolRecordProgrammes.FormIDX IN (" & strSelectedForms ")" & _
" AND qrySchoolRecordProgrammes.SchoolYear IN (" & strSelectedSchoolYears & ")" & _
" AND qrySchoolRecordProgrammes.EventIDX IN (" & strSelectedEP & ")" & _
" AND " & IIf(chkDroppedOut, "", "NOT ") & _
" ( qrySchoolRecordProgrammes.SchoolDroppedOut = 3 OR " & _
" qrySchoolRecordProgrammes.SchoolDroppedOut = 255 ) " & _
Sign In or Register to comment.