[v_2017_6]

أخي أحمد منصور Ahmed_Mansoor

[align=left]أخونا كان كاتب فقط هذا الكود ولم ينفذه

PHP كود :

Private Sub Command1_Click()
If Con.State = 1 Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Combo1.Text & ".accdb; Jet OLEDB:Database Password = Ahmed Abdulla"

SQLs = "Delete From Offer Where OfferNo='" & Trim(Text1.Text) & "' and Item=" & Val(Trim$(Text2.Text))
End Sub 


وأنا عدلت له

PHP كود :

Private Sub Command1_Click()
If Con.State = adStateOpen Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Combo1.Text & ".accdb; Jet OLEDB:Database Password = Ahmed Abdulla"

If RSS.State = adStateOpen Then RSS.Close
SQLs = "Delete From Offer Where OfferNo='" & Trim(Text1.Text) & "' and Item=" & Val(Trim$(Text2.Text))
RSS.Open SQLs, Con, adOpenKeyset, adLockPessimistic
End Sub 


---

أخي سندباد تفضل قاعدة البيانات