فیلتر یک کوئری از طریق دستورات vb

[AHMAD-AHMAD]

با سلام
آیا میتوان شروط مربوط به فیلتر نمودن یک کوئری را به متغیری ارجا داد که بوسیله vb تعریف شده است . بعنوان مثال در رویداد on open یک فرم متغیری با نام cod تعریف شود و مقدار 100 بگیرد و بعد دستور اجرای کوئری صادر شود. و در شروط کوئری یک ستون برابر با cod قید شده باشد.
با تشکر از همه دوستان

[mazoolagh]

Private Sub Form_Open(Cancel As Integer)
Dim QRY As QueryDef
Set QRY = CurrentDb.QueryDefs("query name")
QRY![parameter] = value
Set Me.Recordset = QRY.OpenRecordset
End Sub

[AHMAD-AHMAD]

Private Sub Form_Open(Cancel As Integer)
Dim QRY As QueryDef
Set QRY = CurrentDb.QueryDefs("query name")
QRY![parameter] = value
Set Me.Recordset = QRY.OpenRecordset
End Sub


با تشکر از لطف شما
این دستور در ابتدا """Dim QRY As QueryDef""" ارور میده.
اگر این کوئری سورس یک فرم باشه و بخواهم فرم را باز کنم با همین دستور قابل اجراست

[davood-ahmadi]

شاید بتوانید از این مثال استفاده کنید: Private Sub Form_Load() Dim cod As Integer cod = 100 Me.RecordSource = "SELECT kol.id, kol.nam, kol.fam FROM kol WHERE (((kol.id)=" & cod & ")); " End Sub