تحديث قيمة حقل فتتغير القيمة في كافة السجلات

[زياد الحسناوي]

السلام عليكم 

لدي حقل وليكن باسم   (Date)

فيه تاريخ معين هذا التاريخ ثابت لكل الموظفين

 

المطلوب

عند تغيير التاريخ في الفورم لاي موظف 

يتم التغيير لكافة الموظفين بنفس الوقت

[Shivan Rekany]

3 دقائق مضت, zYo said:

لدي حقل وليكن باسم   (Date)

نفترض ان اسم الحقل هو Tarix في جدول Tbl1
ونفترض ان اسم النموذج هو Frm1 واسم المربع نصی اللی يتم تغيير فيها التاريخ هو Tarix

استخدم هذا الكود

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Tbl1 SET Tbl1.Tarix = [Forms]![Frm1]![Tarix];"
    DoCmd.SetWarnings True

 

[زياد الحسناوي]

52 دقائق مضت, Shivan Rekany said:

نفترض ان اسم الحقل هو Tarix في جدول Tbl1
ونفترض ان اسم النموذج هو Frm1 واسم المربع نصی اللی يتم تغيير فيها التاريخ هو Tarix

استخدم هذا الكود

    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE Tbl1 SET Tbl1.Tarix = [Forms]![Frm1]![Tarix];"
    DoCmd.SetWarnings True

 

تم التجربة 

ولكن عند الانتهاء تظهر رسالة مفادها التالي

 

تعرض كتابة 📝

لقد قام مستخدم آخر بتغيير هذا السجل منذ ان بدأت في تحريره اذا قمت بحفظ السجل فانك سوف تكتب فوق التغييرات التي ادخلها المستخدم الاخر 

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

 

 

و اسفلها اختيارات

حفظ السجل . نسخ الى الحافظة . افلات التغييرات

 

[زياد الحسناوي]

للرفع

تم تعديل نوفمبر 21, 2018 بواسطه zYo

[ابو عارف]

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

اخي ممكن اضافة أمر حفظ سجل قبل تشغيل SQL في كود استاذ شفان 

او جرب هذا كود في حدث بعد تحديث الحقل 

DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE " & Form.RecordSource & " SET " & Form.RecordSource & "." & ActiveControl.Name & "= '" & Screen.ActiveControl & "'"
DoCmd.SetWarnings True
Form.Requery