كود:
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