سؤال فى اجراء استعلام بمعيارين من جدول معين, وتحويل النتيجه الى جدول اخر

[migo702000]

السلام عليكم ورحمة الله وبركاته ؛؛؛؛؛؛؛
الكود التالى هو عباره عن استخلاص بيانات معينه من جدول باستخدام معيارين من اداة combobox ثم تحويل هذه البيانات الى جدول اخر
ولكن للاسف الشديد النتيجه دائما لا شئ .
ارجو التكرم بفحص الكود المرفق وتصحيحه ولكم من جزيل الشكر
مع ملاحظة ان الجدول الذى يتم اختيار البيانات منه اسمه Fcust و الجدول المطلوب تحويل البيانات اليه اسمه Ftrans_pr .... كما انى اعتقد ان المشكله تكمن فى معايير الإختيار التى تلى كلمة where لأنى عندما أزلت احد المعيارين اشتغل الإستعلام ..

ولكم منى كل التحيه






Private Sub OsenXPButton1_Click()
Dim SQL0 As String
Dim SQL2 As String
On Error Resume Next
SQL0 = "INSERT INTO Ftrans_pr ( custid, custname, [add], buildNo, floNo, flaNo, joindate, duedate, joinid, joinst, colid, colst, coldate, cutdate, amt ) SELECT Fcust.custid, Fcust.custname, Fcust.add, Fcust.buildNo, Fcust.floNo, Fcust.flaNo, Fcust.joindate, Fcust.duedate, Fcust.joinid, Fcust.joinst, Fcust.colid, Fcust.colst, Fcust.coldate, Fcust.cutdate, Fcust.amt From Fcust WHERE buildno like '" & combo2.Text & "' and" & Add Like combo1.Text & "'"
SQL2 = "delete* from Ftrans_pr "
If combo1.Text = "" Then
msg = MsgBox("من فضلك اختار العنوان المطلوب", vbInformation, "Organizer Message Center")
Exit Sub
combo1.SetFocus
End If
If combo2.Text = "" Then
msg = MsgBox("من فضلك اختار رقم العقار ", vbInformation, "Organizer Message Center")
Exit Sub
combo2.SetFocus
End If
DB.Execute SQL2
DB.Execute SQL0
Fprbuild_sel.Show 1

[TeamFlex]

جرب تعدل هالسطر بس
SQL0 = ("INSERT INTO Ftrans_pr (custid, custname, add, buildNo, floNo, flaNo, joindate, duedate, joinid, joinst, colid, colst, coldate, cutdate, amt ) values (" & Fcust.custid , Fcust.custname, Fcust.add, Fcust.buildNo, Fcust.floNo, Fcust.flaNo, Fcust.joindate, Fcust.duedate, Fcust.joinid, Fcust.joinst, Fcust.colid, Fcust.colst, Fcust.coldate, Fcust.cutdate, Fcust.amt & ") From Fcust WHERE buildno like '" & combo2.Text & "' and " & Add Like combo1.Text & "'")

وان شاء الله يشتغل