Passing information from a form to SQL

[Delores]

I am a novice with SQL - I usually work in the query grid. However I
am trying to find a way to change a field name depending upon what I
select from a combo box on a form. I created an unbound form allows me
to select any one of 20 field names from the Questionnaire table. When
I select a new one, for example "Discharges ", I want to replace the
field "Admissions " (in the SQL below) with it. I have a button on my
form that Runs Query. Can I insert some code in the On Click of that
button to change my SQL statement?
SELECT Questionnaire.[Fiscal Year], Questionnaire.Q uarter,
Count(Questionn aire.[ID Code]) AS [Admissions Questions Samples]
FROM Questionnaire
WHERE (((Questionnair e.Admissions) Is Not Null And
(Questionnaire. Admissions)<>0) AND
((Questionnaire .OmitFromAnalys is)=False))
GROUP BY Questionnaire.[Fiscal Year], Questionnaire.Q uarter;
Any help is very much appreciated.

[Darryl Kerkeslager]

"Delores" <de******@shaw. ca> wrote

However I
am trying to find a way to change a field name depending upon what I
select from a combo box on a form. I created an unbound form allows me
to select any one of 20 field names from the Questionnaire table. When
I select a new one, for example "Discharges ", I want to replace the
field "Admissions " (in the SQL below) with it. I have a button on my
form that Runs Query. Can I insert some code in the On Click of that
button to change my SQL statement?

Dim src As String
dim fName As String

fName = Me!cboFieldName .Value

src = "SELECT Questionnaire.[Fiscal Year], Questionnaire.Q uarter, " & _
"Count(Question naire.[ID Code]) AS [Admissions Questions Samples] " & _
"FROM Questionnaire " & _
"WHERE Questionnaire." & fName & " Is Not Null And " & _
"(Questionnaire ." & fName & "<>0) AND " & _
"(Questionnaire .OmitFromAnalys is=False) " & _
"GROUP BY Questionnaire.[Fiscal Year], Questionnaire.Q uarter"

--
Darryl Kerkeslager