اشکال در دیتارکوردست RST

[wolfstander]

با سلام به همه دوستان
در برنامه ضمیمه ، یه ایرادی من دارم
میخوام با rst روی یه تیبل کاری رو انجام بدم
اشکال کار اینجاست که وقتی دکمه " اجرای دستورات SQL " زده می شود، سیستم ایراد می گیرد.
حال اگر در شرط Where عدد 18 که کد یکی از کاربران است را وارد کنیم، کد درست عمل میکند
در برنامه ، من نیاز دارم تا حتماً از یک تکست باکس یا کمبو باکس اطلاعات را بخواند
حالا اگر جور دیگری راه حل دارد، لطف کنید و بگویید ممنون میشم
البته از راه کوئری نمیخواهم این کار را انجام دهم
زیرا 6 شرط در برنامه هستد که با توجه به اینکه هرکدام دو شرط دیگر وابسته به آن دارند، حتما باید از تکنیک Rst استفاده کنم

[dadsara]

سلام
کدتون را به این شکل تغییر دهید
به نحوه پاس کردن متغیر موجود در فرم به کد SQL دقت کنید

Private Sub Command3_Click()
Dim I As Long
Dim Rst As DAO.Recordset
Dim RecCount As Long
Dim LetterCount As Integer
Dim strSQL As String
'strSQL = "select * from tbl_Routin_Task"
strSQL = " SELECT * from table1 WHERE (((table1.user_id)=" & Combo0 & "))"
Set Rst = CurrentDb.OpenRecordset(strSQL)
If Rst.RecordCount > 0 Then ' شروع کنترل اينکه جدول ديتا دارد يا خير
Rst.MoveLast
RecCount = Rst.RecordCount
Rst.MoveFirst
For I = 1 To RecCount
Select Case Rst.Fields("user_id").Value
Case 18
MsgBox "کاربر 18 وجود دارد"
Case 15
MsgBox "کاربر 15 وجود دارد"
End Select
Rst.MoveNext
Next I
End If ' اتمام وجود اطلاعات در جدول
Rst.Close
Set Rst = Nothing
End Sub