مساعدة قيمة افراضية

[ازهر عبد العزيز]

السلام عليكم 

في النموذج نموذج المختبر في الحقلين كود فلز y وكود فلز x احتاج عند تغير القيم لاتتغيير من الجدول الرئيسي وانما فقط داخل النموذج 

xy.accdb

[محمد أبوعبدالله]

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

اجعل هذين الحقلين = غير منضم = بدون مصدر بيانات

تحياتي

[ازهر عبد العزيز]

2 دقائق مضت, محمد أبوعبدالله said:

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

اجعل هذين الحقلين = غير منضم = بدون مصدر بيانات

تحياتي

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

[محمد أبوعبدالله]

استخدم الكود التاالي

Private Sub Form_BeforeUpdate(Cancel As Integer)
     Me.Undo
End Sub

 

xy11.rar

[ازهر عبد العزيز]

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

[محمد أبوعبدالله]

ستحتاج الى عرض رساله تختار منها ما تريد

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("  هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then
     Me.Undo
    End If
End Sub

تحياتي

[ازهر عبد العزيز]

تم

 

تم تعديل يونيو 24, 2020 بواسطه ازهر عبد العزيز