Check box

تقضل اخي الكريم

هل هذا هو المطلوب

buill1_UP.rar

شكرا لك أختى زهرة ولكن نفس المشكله وهى أن النموذج لا يحفظ البيانات المدخلة إليه يعنى مثلا الفاتورة رقم 4 هى عينة خاصة حاولى تضعى الصح والذهاب للفاتورة التى تليها جميل بتكون False حسنا نضيف فاتورة أو نعرض فاتورة موجودة نرجع تظل الشك بوكس موجودة النموذج لا يحفظ المدخلات له

شكرا

اخي الفاضل ماتركس

بناء على طلبك فقد تم تنفيذ المطلوب السابق وهو تصحيح وضع علامة الاختيار سواء عند اختيارها او اضافة سجل جديد

اما عن حفظ البيانات فلم تبلغنا به الا الان ولا اعلم عن طريقة سير البرنامج لديك عموما ضع هذا الكود وان شاء الله تحل المشكلة

Private Sub Form_Current()
If Me.NewRecord Then
Check14.Value = False
company_name.Visible = True
spisal_sample.Visible = False
Me.nat.Visible = False
Me.ord.Caption = "اسم الشركة"
End If
Me.Refresh
End Sub

هذا الكود موجود مسبقا وتمت اضافة العبارة التالية في اخره Me.Refresh

ووظيفته انعاش السجلات

وضع هذا الكود في حدث بعد التحديث للنموذج

Private Sub Form_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

ووظيفة هذا الكود هي تحديث البيانات المدخلة حديثا للنموذج

ملاحظة : بما انك استخدمت خاصية الاخفاء والاظهار بالكود على خانة الاختيار فمن الطبيعي ان تكون دائما على الوضع False حتى تقوم بإختيارها على الوضع True .

من ناحية ان النموذج لا يحتفظ بالبيانات بل على العكس النموذج يحتفظ بالبيانات لهذا اختر اي سجل لا يظهر في مربع التحرير والسرد بيانات او اسم شركة به ثم اضغط على مربع الاختيار وستظهر لك اسم الشركة واالتي تخص العينة الخاصة التي قمت بكتابتها