30-04-16, 09:25 PM (آخر تعديل لهذه المشاركة : 30-04-16, 09:51 PM {2} بواسطة amgad525.)
PHP كود :
Private Sub Command2_Click() Set db = OpenDatabase(App.Path & "/db1.mdb", 2) Set rs = db.OpenRecordset("select * from [soft] Where [AcceiD] = " & Val(Text1.Text) & " Or [Name] = '" & Trim(Text2.Text) & "'")
If rs.RecordCount = 0 Then MsgBox "عفواً لايوجد سجل بهذا البحث", vbInformation + vbMsgBoxRtlReading
Private Sub Command2_Click() Set db = OpenDatabase(App.Path & "/db1.mdb", 2) Set rs = db.OpenRecordset("select * from [soft] Where [AcceiD] = " & Val(Text1.Text) & " Or [Name] = '" & Trim(Text2.Text) & "'")
If rs.RecordCount = 0 Then MsgBox "عفواً لايوجد سجل بهذا البحث", vbInformation + vbMsgBoxRtlReading