اذهب الي المحتوي
أوفيسنا

مشكلة في كود منع الحفظ التلقائي


الردود الموصى بها

وضعت كود قبل التحديث للنموذج الرئيسي

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

مرفق صور توضح المشكلة

101.png

102.png

منع الحفظ التلقائي.accdb

رابط هذا التعليق
شارك

5 دقائق مضت, ابا جودى said:

طيب بس ممكن توضح حضرتك عاوز تعمل ايه ؟

انا اريد الفكرة وليس المشكلة ؟

احيانا نخرج قبل ان ننتهي من الفاتورة 
فيتم حفظها فورا 
ولا اريد حفظها  تلقائيا الا بشرط 

عندما اعطيه الامر 

يمك نبالغلط تيجي ايدك على اغلاق 

هنا اصبح خلل في عدد الاصناف في المستودع 

رابط هذا التعليق
شارك

14 دقائق مضت, osama_b said:

أنا أقترح أن تضع زر أمر وتجعله لعملية الحفظ وتتحقق من ادخال بيانات في النموذجين الرئيسي والفرعي .

اخي الكريم 

مرفق قاعدة البيانات 

يا ريت تطبق فكرتك عليها 

رابط هذا التعليق
شارك

اخى الحبيب واستاذى الفاضل

للاسف لازم تظهر ومافى غير احد الحلول الاتية

1- نموذج غير منضم للادخال فقط ويتم الحاق البيانات بالجدول عن طريق استعلام الحاق

2- تترك الوضع كما هو الحال بعذع الرسالة

3- لا تتلاعب بموضوع الحفظ التلقائى 

  • Like 1
رابط هذا التعليق
شارك

45 دقائق مضت, ابا جودى said:

اخى الحبيب واستاذى الفاضل

للاسف لازم تظهر ومافى غير احد الحلول الاتية

1- نموذج غير منضم للادخال فقط ويتم الحاق البيانات بالجدول عن طريق استعلام الحاق

2- تترك الوضع كما هو الحال بعذع الرسالة

3- لا تتلاعب بموضوع الحفظ التلقائى 

:wallbash:

المشكلة صممت برنامج لاحد الاصدقاء

ووضع شرط ان يلغى الحفظ التلقائي ويتم من خلال زر حفظ 

والله مش عارف ايش اعمل

 

رابط هذا التعليق
شارك

12 ساعات مضت, عبد اللطيف سلوم said:

:wallbash:

المشكلة صممت برنامج لاحد الاصدقاء

ووضع شرط ان يلغى الحفظ التلقائي ويتم من خلال زر حفظ 

والله مش عارف ايش اعمل

 

هات المرفق لنراه

  • Like 1
رابط هذا التعليق
شارك

في ٢٠‏/٥‏/٢٠١٩ at 21:11, ابا جودى said:

1- نموذج غير منضم للادخال فقط ويتم الحاق البيانات بالجدول عن طريق استعلام الحاق

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

هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة .

الاخ @عبد اللطيف سلوم

هذه روابط وجدتها على السريع لعل تفيدك

https://www.officena.net/ib/topic/82567-الغاء-الحفظ-التلقائي-_طلب-تعديل-كود/

https://www.officena.net/ib/topic/81029-الحفظ-التلقائي/

https://www.officena.net/ib/topic/25215-طريقة-تلافي-الحفظ-التلقائي-في-النماذج-الفرعية/

https://www.officena.net/ib/topic/15860-ما-هي-طريقة-إلغاء-الحفظ-التلقائي-للسجلات-في-أكسيس؟/

https://www.officena.net/ib/topic/53618-الغاء-الحفظ-التلقائي-في-نموذج-تعديل-بيانات-رئيسي/

https://www.officena.net/ib/topic/82029-إلغاء-الحفظ-التلقائي-في-النموذج-الفرعي/

https://www.officena.net/ib/topic/90904-طريقة-الغاء-الحفظ-التلقائي-لنماذج-اكسس/

https://www.officena.net/ib/topic/77626-الغاء-الحفظ-التلقائى/

https://www.officena.net/ib/topic/45826-التاكيد-عى-حفظ-التغييرات-عند-اغلاق-او-جديد/

https://www.officena.net/ib/topic/18318-برنامج-إدارة-الأسهم/

https://www.officena.net/ib/topic/22029-حفظ-ما-يتم-ادخاله-في-الفورم-33333333333333/

https://www.officena.net/ib/topic/19959-مشكلة-مع-الامر-undo/

https://www.officena.net/ib/topic/55792-عمل-زر-للتراجع-في-نموذجين/?tab=comments#comment-352971

https://www.officena.net/ib/topic/60445-التعديل-والتراجع-في-النموذج-الفرعي/?tab=comments#comment-382376

بالتوفيق

  • Like 1
رابط هذا التعليق
شارك

2 دقائق مضت, رمهان said:

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

هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة .

الاخ @عبد اللطيف سلوم

هذه روابط وجدتها على السريع لعل تفيدك

https://www.officena.net/ib/topic/82567-الغاء-الحفظ-التلقائي-_طلب-تعديل-كود/

https://www.officena.net/ib/topic/81029-الحفظ-التلقائي/

https://www.officena.net/ib/topic/25215-طريقة-تلافي-الحفظ-التلقائي-في-النماذج-الفرعية/

https://www.officena.net/ib/topic/15860-ما-هي-طريقة-إلغاء-الحفظ-التلقائي-للسجلات-في-أكسيس؟/

https://www.officena.net/ib/topic/53618-الغاء-الحفظ-التلقائي-في-نموذج-تعديل-بيانات-رئيسي/

https://www.officena.net/ib/topic/82029-إلغاء-الحفظ-التلقائي-في-النموذج-الفرعي/

https://www.officena.net/ib/topic/90904-طريقة-الغاء-الحفظ-التلقائي-لنماذج-اكسس/

https://www.officena.net/ib/topic/77626-الغاء-الحفظ-التلقائى/

https://www.officena.net/ib/topic/45826-التاكيد-عى-حفظ-التغييرات-عند-اغلاق-او-جديد/

https://www.officena.net/ib/topic/18318-برنامج-إدارة-الأسهم/

https://www.officena.net/ib/topic/22029-حفظ-ما-يتم-ادخاله-في-الفورم-33333333333333/

https://www.officena.net/ib/topic/19959-مشكلة-مع-الامر-undo/

https://www.officena.net/ib/topic/55792-عمل-زر-للتراجع-في-نموذجين/?tab=comments#comment-352971

https://www.officena.net/ib/topic/60445-التعديل-والتراجع-في-النموذج-الفرعي/?tab=comments#comment-382376

بالتوفيق

تسلم معلمنا الغالي @رمهان

 

جاري التجرية

رابط هذا التعليق
شارك

19 دقائق مضت, رمهان said:

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

هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة .

اعتقد انه ممكن بدون جداول وسيطة استاذى القدير و معلمى الجليل استاذ @رمهان :fff: والله اعلم

اعتقد انه ممكن عمل اوبشن جروب على النموذج الرئيسي وبكود  select

ان كانت القيمة 1 يكون مصدر النموذج الفرعى  StrsqlView  >-------->>  الجدول مباشرة لاستعراض البيانات

ان كانت القيمة 2 يكون مصدر النموذج الفرعى  StrsqlAdd  >-------->>  استعلام اضافة بيانات للجدول

لم اقم بالتجرية من قبل ولكن خطرت على بالى وانا افكر بسؤالك سيدى

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

4 دقائق مضت, ابا جودى said:

اعتقد انه ممكن بدون جداول وسيطة استاذى القدير و معلمى الجليل استاذ @رمهان :fff: والله اعلم

اعتقد انه ممكن عمل اوبشن جرب على النموذج الرئيسي وبكود  select

ان كانت القيمة 1 يكون مصدر النموذج الفرعى  StrsqlView  >-------->>  الجدول مباشرة لاستعراض البيانات

ان كانت القيمة 2 يكون مصدر النموذج الفرعى  StrsqlAdd  >-------->>  استعلام اضافة بيانات للجدول

لم اقم بالتجرية من قبل ولكن خطرت على بالى وانا افكر بسؤالك سيدى

اهلين @ابا جودى

هات مرفق به مايدور في مخيلتك وتطبيق لاعلاه .. منكم نستقيد جزيتم خيرا

  • Like 1
رابط هذا التعليق
شارك

الان, رمهان said:

اهلين @ابا جودى

هات مرفق به مايدور في مخيلتك وتطبيق لاعلاه .. منكم نستقيد جزيتم خيرا

هى مجرد فكرة لم اطبقها من قبل لذلك بدات كلامى سيدى بالاجابة عليكم بـ ممكن والله اعلم 

حاضر استاذى الجليل ومعلمى القدير استاذ @رمهان :fff::yes:

سوف احاول تجربة اسقاط افكارى على الاكواد البرمجية لنرى كيف سيهدينا الله ويرزقنا منها واعود اليكم سيدى بالنتيجة ان شاء الله او بالمرفق حسبما يرزقنى ربى سبحانه

  • Thanks 1
رابط هذا التعليق
شارك

منذ ساعه, رمهان said:

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

هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة .

اتفضل استاذ @رمهان :fff: 

نجحت الفكرة وطبعا انا فكرت بها بسبب سؤالكم لانى احسست انه ممكن طالما سألتم هذا السؤال

 

منذ ساعه, رمهان said:

اهلين @ابا جودى

هات مرفق به مايدور في مخيلتك وتطبيق لاعلاه .. منكم نستقيد جزيتم خيرا

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

والان القول الفصل هو هذه النتيجة التى تريدون انتم ان اصل اليها 

اعتذر تأخرت قليلا لانى اتعثر بالمسميات العربية

 

منع الحفظ التلقائي.accdb

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

اخي جرب هذا الكود وبالتوفيق

Private Sub Delete_Click()

If MsgBox("åá ÊÑíÏ ÍÐÝ åÐå ÇáÈíÇä", vbOKCancel + vbCritical + vbMsgBoxRight, "ÍÐÝ  ") = vbOK Then

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True

End If

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not (Me.NewRecord) Then
 If MsgBox("åá ÊæÏ ÍÝÙ ÇáÊÚÏíá ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÍÝÙ ÇáÊÛííÑÇÊ ¿") = vbNo Then
  Me.Undo
 End If
Else
 If MsgBox("åá ÊæÏ ÍÝÙ ÇáÓÌá ÇáÌÏíÏ ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÓÌá ÌÏíÏ") = vbNo Then
  Me.Undo
 End If
End If
End Sub

رابط هذا التعليق
شارك

 

4 دقائق مضت, ازهر عبد العزيز said:

اخي جرب هذا الكود وبالتوفيق

Private Sub Delete_Click()

If MsgBox("åá ÊÑíÏ ÍÐÝ åÐå ÇáÈíÇä", vbOKCancel + vbCritical + vbMsgBoxRight, "ÍÐÝ  ") = vbOK Then

DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True

End If

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not (Me.NewRecord) Then
 If MsgBox("åá ÊæÏ ÍÝÙ ÇáÊÚÏíá ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÍÝÙ ÇáÊÛííÑÇÊ ¿") = vbNo Then
  Me.Undo
 End If
Else
 If MsgBox("åá ÊæÏ ÍÝÙ ÇáÓÌá ÇáÌÏíÏ ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÓÌá ÌÏíÏ") = vbNo Then
  Me.Undo
 End If
End If
End Sub

ضع اكوادك على المرفق وقم بالتجربة واخبرنا النتيجة وارفق المرفق :wavetowel:

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

منذ ساعه, ابا جودى said:

ههههههههه استاذ @رمهان :wavetowel:

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

 اخي الغالي ابا جودي

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

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

تحياتي

 

رابط هذا التعليق
شارك

3 ساعات مضت, رمهان said:

هل يمكن تطبيقها على النموذج الفرعي ؟ او على نموذج متعدد السجلات ؟ في الاكسس هناك تحدي كبير ولا بد من استخدام جداول وسيطة .

طيب استاذى الجليل ومعلمى القدير استاذ @رمهان

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

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

 

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information