My Text Boxes are pulling the wrong data 2

[burgerman]

I have a Form that has 12 Text Boxes each one uses the following code to populate the box:
-----------------Beginning of Code------------------------
Text251 = Format(DateAdd("m", -0, Now()), "mmm&quot
Text263 = Format(DateAdd("m", -1, Now()), "mmm&quot
Text262 = Format(DateAdd("m", -2, Now()), "mmm&quot
Text261 = Format(DateAdd("m", -3, Now()), "mmm&quot
Text260 = Format(DateAdd("m", -4, Now()), "mmm&quot
Text259 = Format(DateAdd("m", -5, Now()), "mmm&quot
Text258 = Format(DateAdd("m", -6, Now()), "mmm&quot
Text257 = Format(DateAdd("m", -7, Now()), "mmm&quot
Text256 = Format(DateAdd("m", -8, Now()), "mmm&quot
Text255 = Format(DateAdd("m", -9, Now()), "mmm&quot
Text254 = Format(DateAdd("m", -10, Now()), "mmm&quot
Text253 = Format(DateAdd("m", -11, Now()), "mmm&quot
-----------------end of Code------------------------

I am then using the following code to call information from a query counts the number of records for that month and to display that number in a unbound text box


-----------------Beginning of Code------------------------
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("SELECT * FROM [Month12] WHERE '[Expr2]='& '[Forms]![Active Employee Information]![text251]'&quot
If Not rst.EOF Then
Text163 = rst!CountOfCountOfTimeText
End If

Set rst = dbs.OpenRecordset("SELECT * FROM [Month12] WHERE '[Expr2]='& '[Forms]![Active Employee Information]![text263]'&quot
If Not rst.EOF Then
Text162 = rst!CountOfCountOfTimeText
End If

Set rst = dbs.OpenRecordset("SELECT * FROM [Month12] WHERE '[Expr2]='& '[Forms]![Active Employee Information]![text262]'&quot
If Not rst.EOF Then
Text161 = rst!CountOfCountOfTimeText
End If
-----------------end of Code------------------------

My delima is that when I run the code I get the same information in each one. I have a feeling that the problem lies in the concatenation of my where statement since I can change it to [Expr2]='Dec' and it works fine. But I need the beginning month to float with each new month

Thanks

 

[chrissie1]

this is wrong

Set rst = dbs.OpenRecordset("SELECT * FROM [Month12] WHERE '[Expr2]='& '[Forms]![Active Employee Information]![text251]'&quot

try this

Set rst = dbs.OpenRecordset("SELECT * FROM [Month12] WHERE [Expr2]=" & [Forms]![Active Employee Information]![text251])

you have a problem with you single quotes and double quotes
placing

 

[burgerman]

Now I get a too few parameters error message when I know there is a matching record in the query. Any Ideas?

 

[SgtJarrow]

actually it should read:

Set rst = dbs.OpenRecordset("SELECT * FROM [Month12] WHERE [Expr2]='" & [Forms]![Active Employee Information]![text251] & "'&quot

Only two things are infinite, the universe and human stupidity, and I'm not sure about the former. (Albert Einstein)

Robert L. Johnson III, MCP, Network+, A+
Access Developer/Programmer
robert.l.johnson.iii@citigroup.com

 

[burgerman]

That was it thanks a million....I burned alot of midnight oil trying to figure that one out.

 

[SgtJarrow]

Chrissie deserves a star too...she was almost there....and pointed me and you in the right direction. Only two things are infinite, the universe and human stupidity, and I'm not sure about the former. (Albert Einstein)

Robert L. Johnson III, MCP, Network+, A+
Access Developer/Programmer
robert.l.johnson.iii@citigroup.com