حفظ التغيير قبل الاغلاق

[co2002co]

عندي نموذج اسمه frm_Rooms_Available

به عده نماذج منبثقه

وتستخدم نفس الجدول

 

 

عند الضغط على كلمه Disposal

ينبق نموذج وعند اختيار

Endorsement

وادخل اسم المستخدم 11 ورقم سري 11

وتتم العمليه بنجاح

يتم الخروج وفتح النموذج الاساسي

لكن عند الخروج من النموذج الاساسي

تطلع رساله write conflict

New Microsoft Access Database.rar

[jjafferr]

منذ ساعه, co2002co said:

تطلع رساله write conflict

 

وعليكم السلام اخوي بدر

 

هناك 3 طرق لإضافة/تعديل البيانات:

1. من النموذج مباشرة ،
2. عن طريق ادخال/تعديل المعلومة من الجدول/الاستعلام مصدر بيانات النموذج ،
3. عن طريق Recordset .

الاكسس يراك في النموذج وبياناته ، ولكن لا يعرف من قام بتغيير البيانات عن طريق الاستعلام او Recordset ، فالاكسس لا يعرف يأخذ بيانات النموذج او البيانات المحدثه في الجدول ، فيعطيك الاختيار

 

طريقة التغلب على هذه الرسالة هي ، ان تحفظ بيانات النموذج ، ثم تشغل الاستعلام او Recordset ، مثلا

docmd.runcommand accmdsaverecord
او
me.dirty = false
او
me.requery
او
me.refresh


ثم تعطي الامر للإستعلام
docmd.openquery "aabbcc"
او
rst.addnew    او    rst.edit
  rst!A=123
rst.update

 

جعفر

[co2002co]

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

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

 

 

 

عملت الكلام الي انت تفضلت وقلته

 

لكني بعد الكويري في عمليه اخرى

وهي حذف بعض الحقول

 

 

 

العمليه تتم كالتالي

اضافه

طباعه

حذف

23 minutes ago, jjafferr said:

هناك 3 طرق لإضافة/تعديل البيانات:

1. من النموذج مباشرة ،
2. عن طريق ادخال/تعديل المعلومة من الجدول/الاستعلام مصدر بيانات النموذج ،
3. عن طريق Recordset .

الاكسس يراك في النموذج وبياناته ، ولكن لا يعرف من قام بتغيير البيانات عن طريق الاستعلام او Recordset ، فالاكسس لا يعرف يأخذ بيانات النموذج او البيانات المحدثه في الجدول ، فيعطيك الاختيار

 

[jjafferr]

حفظ البيانات في النموذج تعملها مرة واحدة فقط ، ثم تعمل استعلامات قدر اللي تريد

[co2002co]

20 minutes ago, jjafferr said:

حفظ البيانات في النموذج تعملها مرة واحدة فقط ، ثم تعمل استعلامات قدر اللي تريد

لم تضبط معنا

[jjafferr]

السلام عليكم

 

ومثل ما اخبرتك:

19 ساعات مضت, jjafferr said:

طريقة التغلب على هذه الرسالة هي ، ان تحفظ بيانات النموذج ، ثم تشغل الاستعلام او Recordset

18 ساعات مضت, jjafferr said:

حفظ البيانات في النموذج تعملها مرة واحدة فقط ، ثم تعمل استعلامات قدر اللي تريد

.

في النموذج الفرعي sfrm_Room_No_Available ، السطر بين سطري j' هو الذي حل المشكلة:

Private Sub cmd_Disposal_Click()

    Forms!frm_Rooms_Available.SetFocus
        If IsNull(Me.Patient_No) Or (Me.Patient_No) = "" Then
        MsgBox "There is no Patient", vbOKOnly, ""
        Me.Undo
        Cancel = True
        Exit Sub
        End If
                Me.Check = True
                Forms!frm_Rooms_Available!xxx = Me.Patient_No
'j
Me.Dirty = False
'j
                DoCmd.OpenForm "frm_Discharge_Endorsement"
                DoCmd.OpenForm "frm_Rooms_Available", , , , , acHidden
End Sub

.

جعفر

[co2002co]

1 hour ago, jjafferr said:

ومثل ما اخبرتك:

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

 

تعجز الكلمات عن الشكر

 

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

شكرا يا معلمي