[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
    
    Else
        Text1.Text = rs("AcceiD").Value
        Text2.Text = rs("Name").Value

    End If
    
    rs.Close
    db.Close
End Sub