Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String
On Error Resume Next
** اختيار البيانات المطلوبه
SQL1 = "SELECT * FROM Fcust WHERE add like '" & combo1.Text & "%' and buildno =
'" & combo2.Text & "%' "
الغاء البيانات القديمه من الملف المطلوب نقل البيانات المختاره بعاليه اليه
SQL2 = "delete* from Ftrans_pr where custid>0"
نقل البيانات التى تم اختيارها الى الملف الجديد
SQL3 = "insert into Ftrans_pr select* from Fcust where WHERE add '" & combo1.Text &
"%' and buildno LIKE '" & combo2.Text & "%' "
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 SQL1
DB.Execute SQL2
DB.Execute SQL3
Fprbuild_sel.Show 1
النتيجه صفر .... لم يتم اختيار البيانات من جملة Select الأولى .... فين الغلط ؟؟؟؟؟ ارجو التصحيح