VBA Recordset / Parameters

[Gunner 1]

Hello,
Here I would like to use data from a query parameter as a date that the person entered on a form. I am dealing with the recordset and parameters.
Here's the code:

Private Sub BT_GEN_CONSTAT_Click()
 
Sun qdf As DAO.QueryDef
Sun rcs As DAO.Recordset
Sun strLigneText As String
Sun strConstante As String
Sun schm As String
Sun infr As Integer
Sun db As DAO.Database

infr = FreeFile()
    schm = "C: \ test.txt"
    Open schm For Output As # infr


Set db = CurrentDb()
Set qdf = db.QueryDefs("para_const")
qdf.Parameters("Forms! F_GEN_CONSTAT! DATE_CONSTAT") = Forms! F_GEN_CONSTAT![DATE_CONSTAT]
Set rcs = qdf.OpenRecordset
...

When I try to run the following code , i get an error, do you have any idea about the error and please let me know why my code is giving an error.

[Linux-Us]

Hello,
In the VBA it should be used Forms instead of the one which you have used in your code. Please check the following.

qdf.Parameters("Forms! F_GEN_CONSTAT! DATE_CONSTAT") = Forms! F_GEN_CONSTAT![DATE_CONSTAT]

Hope the following correction will help you. If you have any more queries regarding this then please post back and we will try to solve your queries.

[New ID]

Hello,
Even I am trying a similar kind of a code and I have done some coding part also. I still have the same problem using "Forms"! In the above post you said to correct the usage of the Form, even when correcting the code I am getting the same error, because i had done the same mistake that you had done. At the request must he said parameters in "query parameters? If this can be done then please let be know , How? And any more information on this is appreciated.

[Gunner 1]

Hello,
Here is my modified code, please have a look at it

Private Sub BT_GEN_CONSTAT_Click()
 
Sun qdf As DAO.QueryDef
Sun rcs As DAO.Recordset
Sun strLigneText As String
Sun strConstante As String
Sun schm As String
Sun infr As Integer
Sun db As DAO.Database

infr = FreeFile()
schm = "C: \ test.txt"
Open schm For Output As # infr


Set db = CurrentDb()
Set qdf = db.QueryDefs("R_PREPA_CONSTAT")
qdf.Parameters("Forms! F_GEN_CONSTAT! DATE_CONSTAT") = Forms! F_GEN_CONSTAT![DATE_CONSTAT]
Set rcs = qdf.OpenRecordset
...

[InterNetWorKed]

Hello,
It is not mandatory but is better. Especially because it allows "typing" parameter. In the column "Parameter" You know the name of the parameter you wish to use later in your application. It is not useful to, as a parameter name, an expression based on a form (like what you use). In the column "Type", you choose the type of data. Then a stroke continued it. Then, still in your query displayed in design mode, you use your argument, such a criterion. Hope this information will help you.

[NetworkeR]

Hello,
I have a small code with me, I think you it will help you.
Here is the part of the code

Set db = CurrentDb()
Set q = db.QueryDefs("R_PREPA_CONSTAT")
q.Parameters("MonPara") = Forms! F_GEN_CONSTAT![DATE_CONSTAT]
Set rs = q.OpenRecordset

Try the above code in your program and see if it works and if not then post back with the error you are getting.