1- اضع datagrid على نموذج لعرض بيانات بحيث يظهر النموذج بصورة دائمه أمام المستخدم
2- أستخدم نموذخ آخر لإضافة أو تعديل بيانات سجل بإستخدام TextBoxs
كيف يمكن بالكود تحديث بيانات الـ datagrid مباشرة بعد كل إضافه أو تعديل يتم من خلال نموذج الإضافه أو العرض بحيث تظهر بيانات datagrid الجديده مباشرة أمام المستخدم بعد هذا الإجراء
الكود أدناه لعله هو المطلوب
Private Sub Location_DblClick(Cancel As Integer)
On Error GoTo Err_Location_DblClick
Dim lngEmployeeID As Long
If IsNull(Me![Location]) Then
Me![Location].Text = ""
Else
lngEmployeeID = Me![Location]
Me![Location] = Null
End If
DoCmd.OpenForm "Locations", , , , , acDialog, "GotoNew"
Me![Location].Requery
If lngEmployeeID <> 0 Then Me![Location] = lngEmployeeID
Exit_Location_DblClick:
Exit Sub
Err_Location_DblClick:
MsgBox Err.Description
Resume Exit_Location_DblClick
End Sub
طبعا تضع هذا الكود في حدث عند النقر المزدوج لينقلك إلأى النموذج الآخر لتضيف البيانات عليه وعند إغلاق النموذج ستجد ما أضافته في النموذج المعروض
فقد غير المسمسات في الوحدة النمطية أعلاه
وما نيل المطالب بالتمني
ولكن تؤخذ الدنيا غلابا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
