أريد أن أمرر قيمة متغيره الى إستعلام ليظهر تقرير ولكن فشلت .........

هذا المحاوله الاولى ولكنها لم تضبط

للاني عندما أكتب في TEXT الموجود بالنموذج الخاص بإظهار التقرير تظهرلي رسالة ( لاتوجد قيمة معلمة إفتراضية )

مع العلم أن هذي الجملة وضعتها في command واخترت SQl statment في Dataenviroment

SELECT customers.No_cust, customers.Ename_cust,Boocking.No_b,Boocking.type_b
From customers,Boocking
where customers.No_cust=Boocking.No_cust AND customers.No_cust = ؟

جربت طريقه ثانية

SELECT customers.No_cust, customers.Ename_cust,Boocking.No_b,Boocking.type_b
From customers,Boocking
where customers.No_cust=Boocking.No_cust AND customers.No_cust =' " & Text1.Text & " '

ولكن للاسف ظهر لي التقرير بدون بيانات مالحل

جربت وعملت شيء ثاني

Private Sub Command1_Click()
Dim SQL As String
If Option1 = True Then
DataRep_sev.Show
Else
If Option2 = True Then
DataRep_mea.Show
Else
If Option3 = True Then
DataRep_cust.Show
Else
If Option4 = True Then
SQL = "SELECT customers.No_cust, customers.Ename_cust,Boocking.No_b,Boocking.type_b"
From customers, Boocking
Where customers.No_cust = Boocking.No_cust And customers.No_cust = " & Val(Text1.Text) & """
Rrp_primar_cust.Show
End If
End If
End If
End If
End Sub

ولكن ظهرت لي رسالة خطأ ( sub or function not Defined )