07-10-14, 03:16 PM
On error resume next
Dim name , str as string
("بحث"،"ادخل الاسم المطلوب") name = input
[align=left] if len ( name ) = 0 then
MsgBox " لم تقم بادخال اي بيانات "
Exit sub
End If
('الاسم المطلوب'=str = "name=' " + name + " ' " 'str= ( name
Adodc1.recordset.findfirst
If adodc1 . Recordset. Nomath = true then
"هذا الاسم غير موجود"Msgbox
Else
txt1.text= adodc1. recordset! name
End if
Dim name , str as string
("بحث"،"ادخل الاسم المطلوب") name = input
[align=left] if len ( name ) = 0 then
MsgBox " لم تقم بادخال اي بيانات "
Exit sub
End If
('الاسم المطلوب'=str = "name=' " + name + " ' " 'str= ( name
Adodc1.recordset.findfirst
If adodc1 . Recordset. Nomath = true then
"هذا الاسم غير موجود"Msgbox
Else
txt1.text= adodc1. recordset! name
End if
