المساعدة في تثبيت رقم من خلال مربع نعم او لا

ضع هذا الكود بالنموذج

Private Sub chek_AfterUpdate()

If Me.chek.Value = True Then

Me.number.Locked = True

Else

Me.number.Locked = False

End If

End Sub


Private Sub Form_Current()

If Me.NewRecord Then

Me.number.Locked = False

Me.chek.Value = False

Else

Me.number.Locked = True

Me.chek.Value = True

End If

End Sub

استاذي الفاضل ابو يوسف شكرا جزيلا على ردك السريع وجزاك الله خير الجزاء

سوف اعمل ماتفضلت به واخبرك النتيجة لاحقا

استاذي الفاضل ابو يوسف السلام عليكم ورحمة الله وبركاته

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

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

ارفع علامة الصح وادخل رقم جديد ثم اضع علامة الصح واكمل وهكذا

Prog_num.rar

بعد إذن أستاذنا القدير أبو يوسف

وبدون إذن الأستاذ أبو حاتم العنزي

وحشتني حالة عدم الفهم لذلك قلت لازم أشارك مع أبو حاتم

يمكن أنجح هذه المرة  في فهم طلب أبو حاتم

هههههه

شوف الطلعة دي

Prog_num.rar

استاذي الفاضل أمير2008 السلام عليكم ورحمة الله وبركاته

نعم نعم نعم هذا هو المطلوب الله لايحرمنا من شخصك الكريم يارب سائلا الله عز وجل ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية

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

استاذي الفاضل أمير2008 السلام عليكم ورحمة الله وبركاته

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

اذا امكن ان تجعله يجتفظ بالبيانات اي عندما اقوم بأستخدامه مثلا :

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

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

من اول سجل الى اخر سجل وصلت اليه وانا شاكرا تعاونك معي وربي يحميك من كل شر يارب

القيم السابقة موجودة بالفعل بالجدول

لكن لا تظهر لك في النموذج

لماذا ؟

لأن مربع النص الذي تكتب فيه القيم الجديدة يقوم بتسجيلها بالجدول وليس له مصدر بيانات

فكيف يسجل جديد وفي نفس الوقت يسترجع  قديم  ؟

بالتالي يمكن أن نضع شرطا :

( اذا كان عندك قيم سابقة بالجدول تظهر لك بالنموذج وهي قابلة للتعديل بازالة علامة الصح وإن لم تكن لديك قيم سابقة يتم تسجيل قيم جديدة )

Prog_num 2.rar

شوف هذا المرفق

Prog_num.rar

اولا احب ان اشكر استاذة الكل الدكتورة ام عهود الله لايحرمنا من شخصها الكريم يارب نعم هذا هو المطلوب وطبعا +1

ثانيا شكرا جزيلا لك استاذي الفاضل ابو يوسف الله لايحرمنا من شخصك الكريم يارب وايضا +1

ثالثا كل الشكر والتقدير لك استاذي الفاضل أمير2008 الله لايحرمنا من شخصك الكريم يارب وايضا +1

اساتذتي الافاضل والله انا عاجز عن شكركم جميعا ربي يحميكم من كل شر ويحفظكم ويرعاكم ويسدد خطاكم يارب