[WAEL ABED]

PHP كود :

Private Sub List1_DblClick()
On Error Resume Next: Err.Clear

If Trim$(Text6.Text) = "" Then Exit Sub

Dim gBookMark As Variant

gBookMark = RS.Bookmark

Adodc1.Recordset.Find "[na_pat] = '" & Trim$(List1.List(List1.ListIndex)) & "'", 0, adSearchForward, 1

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.Bookmark = gBookMark
MsgBox "لاتوجد نتائج للبحث", vbOKOnly + vbExclamation, "تنبيه"
Exit Sub
End If

Enable_Disable_Buttons True, False, True, True, True, True

ViewRecord
End Sub