06-07-19, 06:09 AM
(آخر تعديل لهذه المشاركة : 23-07-19, 12:45 AM {2} بواسطة princeofislam.)
لقد وجدت الحل لاكن اود ان اضعة هنا للتعديل عليه او ان يكون فائدة لغيري
كود :
Private Sub Text4_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then ' The ENTER key.
Dim str1 As String
Adodc1.Recordset.MoveFirst
str1 = Text4.Text
Adodc1.Recordset.Find "myname='" & str1 & "'"
If Adodc1.Recordset.EOF Then
Text5.SetFocus
SendKeys "{Home}+{End}"
Else
MsgBox " íæÌÏ ÓÌá ÈåÐÇ ÇáÑÞã ", vbInformation + vbMsgBoxRight + vbOKOnly, "ÊäÈíå"
KeyAscii = 0
SendKeys "{Home}+{End}"
End If
End If
End Sub
