عندى داتا جريد فيها حقول الكود و الاسم و التليفون و العنوان
عايز لما ادخل رقم الكود فى الخليه التى تخص الكود فى الجريد يظهر لى باقى البيانات المتعلقه بها فى الخلايا المجاوره
يعنى يظهر لى الاسم و التليفون و العنوان المتعلق بالكود
ولو لم يجد الكود يقوم بحفظ هذه البيانات الجديده
ويكون للمستخدم امكانية اضافة جديد و حذف و تعديل
وهكذا
انا توصلت الى هذا الكود
Private Sub DataGrid1_Change()
k = DataGrid1.Row
If DataGrid1.Col = 0 Then
If Val(DataGrid1.Row) > 0 Then
rsmor.CursorLocation = adUseClient
rsmor.Open "SELECT * FROM customers WHERE CODE_NUM = '" + Val(DataGrid1.Columns(0)) + "'", con, adOpenKeyset, adLockReadOnly
If rsmor.RecordCount > 0 Then
rsmor.MoveFirst
DataGrid1.Columns(0) = rsmor!CODE_NUM
DataGrid1.Columns(1) = rsmor!sName
DataGrid1.Columns(2) = rsmor!phone_num
DataGrid1.Columns(3) = rsmor!address
' rsmor.Close
Exit Sub
Else
MsgBox "Please check it"
rsmor.Close
Exit Sub
End If
End If
End If
End Sub
ارجو ان اكون وفقت فى توصيل طلبى لك
مرفق مثال بالداتا جريد