problem with dcount function in my code

[neelesh kumar]

sir,
i am struggling with a problem in my code.The code is

Dim subcode as Variant,intnoofsubquestions(4) as integer,i as integer

subcode = Array("ma","phy","che","ece")
'Msgbox myArray(2) is giving che .up to here no problem
the next line is
For i= 0 to 3
intnoofsubquestions(i)=Dcount("*","tablename","[subcode] = 'subcode(i)' ")
...........It is not taking subcode(0) as ma when i=0. not getting noofsubquestions from table. when i=1,2,3 also like that problem
when i write in Dcount function "[subcode]='ma' " then i am getting.
how to do this
please help me
thanks in advance

[Rabbit]

What this does is tell it to count if [subcode] is equal to the text subcode(i).

Dcount("*","tablename","[subcode] = 'subcode(i)' ")

What you want, assuming that subcode is numeric, is:

Dcount("*","tablename","[subcode] = " & subcode(i))

[neelesh kumar]

dim subcode as variant,i as integer,intAvailablesubQuestions()as integer
subcode = Array("ma", "phy", "che", "ece")
for i=0 to 3
intAvailablesubQuestions(i) = DCount("*", "tblexam", "[subcode] = 'ma'")
with the above line i am getting no. of questions.
But in my code
intAvailablesubQuestions(i) = DCount("*", "tblexam", "[subcode] = " & subcode(i))
with the next line i am not getting no. of questions. it is giving no. of questions as 0.
please help me.

[Rabbit]

That's for numeric variables, if you're looking at a text value, you want:

Dcount("*","tablename","[subcode] = '" & subcode(i) & "'")

[neelesh kumar]

thank u that is working.
But

intNumberOfsubTestQuestions(i) = DLookup("numofques", "Table2", "[subcode] = '" & subcode(i) & "'" And "[tstid]= '" & Combo13 & "'")

numofques is number field in table2,tstid is the combobox.
i am getting type mismatch error
please help me

[Rabbit]

thank u that is working.
But

intNumberOfsubTestQuestions(i) = DLookup("numofques", "Table2", "[subcode] = '" & subcode(i) & "'" And "[tstid]= '" & Combo13 & "'")

numofques is number field in table2,tstid is the combobox.
i am getting type mismatch error
please help me

The And logical operator is outside the string when it should be a part of it:

intNumberOfsubTestQuestions(i) = DLookup("numofques", "Table2", "[subcode] = '" & subcode(i) & "' And [tstid]= '" & Combo13 & "'")