show a data report with condition

I made data report with condition. I want to input a student id number in a text box and press a button to show all data of this student, but a problem when i input a number in the text box (and press the button) for show the report a msg show.

Run time error 2147217887(80040e21)
[micorsoft][ODBC microsoft access driver] optional feature not implemented.

i write code in the button:
Load DataEnvironment2
With DataEnvironment2
If .rsCommand1.State <> 0 Then .rsCommand1.Close
.Command1 Text2.Text
End With
DataReport2.Show
what problem ? Please help me

help me with this thread

Thread moved to Reporting forum

Did you setup a parameter in the dataenvironment? This is how I use parameters with a DE.

Code:

---

de1.Commands("rsCommand1").Parameters("param1").Value = txtText1.Text

---

please modify my code with your suggestion. and post it.

I would have to see your dataenvironment. What don't you understand?

I write code in sql :
Select * From table1 Where Student_ID = ?
and use parametres "data type = adbigint" & "Host data type = Long(vt_I4)"

What is the problem? Just a guess, try setting "data type = adVariant". What is the parameter name and how do you assign a value to it?

what was the Problem , I said above. actualy I don't know more about it. and what I did I said every thing. so Help me details.

how do you assign a value to it?
how can I do it?

Quote:

---

how do you assign a value to it?

---

see Post #4

Without more information I can't help you any further.

Good Luck

where I write this code:
de1.Commands("rsCommand1").Parameters("param1").Value = txtText1.Text

Private Sub DataEnvironment_Initialize()
End Sub

or

Private Sub rsCommand1_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub

Those both subs are not the real

Quote:

---

Private Sub DataEnvironment_Initialize()
End Sub

or

Private Sub rsCommand1_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub

---

The code

Quote:

---

de1.Commands("rsCommand1").Parameters("param1").Value = txtText1.Text

---

must be entered in your sub where you want to kick these DataReport

After entering the code, you need to do next:

datareport.show because otherwise the datareport wil NOT show automatically :blush:

you mean I write this?

Load DataEnvironment2
With DataEnvironment2
If .rsCommand1.State <> 0 Then .rsCommand1.Close
.Command1 Text1.Text
End With
de1.Commands("rsCommand1").Parameters("param1").Value = Text1.Text
DataReport2.Show