الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقل كود من حدث الى اخر

بدأه morsyyy في 26 أكتوبر 2012 · 2 رد · 410 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كل عام وانتم بخير

هناك مشكلة تواجهنى اساتذتى الافاضل ولا اعرف لها حلا....؟؟

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

وكل عام وانتم بخير

تحياتى

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

morsyyy كتب:

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

كل عام وانتم بخير

هناك مشكلة تواجهنى اساتذتى الافاضل ولا اعرف لها حلا....؟؟

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

وكل عام وانتم بخير

تحياتى

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

za-Cashier-UP.rar

#2

ضع الكود فى حدث الحالى للنموذج

Private Sub Form_Current()
Dim strSQL As String
strSQL = "UPDATE tblCash SET tblCash.TotalCash = forms!frmDayDate!frmCash.FORM!txtTotalCash, tblCash.Result = forms!frmDayDate!frmCash.FORM!txtResult WHERE (((tblCash.ID)=[forms]![frmDayDate]![frmCash].FORM![ID]) AND ((tblCash.DayDate)=[forms]![frmDayDate]![frmCash].FORM![DayDate]))"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True


End Sub

kemas.rar

تم تعديل هذه المشاركة بواسطة أبو لميس في 27 أكتوبر 2012 في 19:07

1
#3

السلام عليكم

عاجز عن الشكر استاذ ابو لميس +1

تمت الاجابة

كل عام وانتم جميعا بخير

مواضيع مشابهة