noor_99 قام بنشر أكتوبر 24, 2021 قام بنشر أكتوبر 24, 2021 السلام عليكم ورحمة الله وبركاته ابي اعمل فورم للبحث اكثر من حقل يعني احط من تاريخ الى تاريخ او رقم الفاتوره مثلا او من اسم الموظف الي الي دخل البيانات يعني مو شرط احطهم كلهم للبحث ممكن استخدم بس حقل انا اعرف اخليه يعمل بحث بحقل واحد لكن لما ادخل المعيار في الحقل الثاني يطبق الثاني بس وما يطبق الاول يعني كنت بس حاطة معيار للبحث برقم لكن لما احطمعيار في التاريخ يطبق بس على التاريخ ولما احط رقم من غير تاريخ او مع تاريخ مايسوي شي وشي ثاني كيف اخلي البيانات ما تنحفظ الا بعد الضغط على زر الحفظ لانها مجرد ما اكتبها في الفورم تنحفظ في الجداول المشكله الثالثه لما اعمل import للبيانات من الاكسل يخلي لي ٣ خانات فاضيه 😓
alzahrani2014 قام بنشر أكتوبر 24, 2021 قام بنشر أكتوبر 24, 2021 وجود المرفق يسهل على الجميع الرد ....
ابو جودي قام بنشر أكتوبر 24, 2021 قام بنشر أكتوبر 24, 2021 (معدل) اتفضل ان شاء تجد الالية هنا ان لم تتمكن من الفهم او التطبيق كرما وفضلا وليس امر ارفق قاعدتك ليتم عمل الازم Multi Filters.mdb تم تعديل أكتوبر 24, 2021 بواسطه ابا جودى 1
د.كاف يار قام بنشر أكتوبر 24, 2021 قام بنشر أكتوبر 24, 2021 فهلا يجب اضافة مرفق حتى يكون الحل نهائي 2
noor_99 قام بنشر أكتوبر 26, 2021 الكاتب قام بنشر أكتوبر 26, 2021 On 10/24/2021 at 4:01 PM, ابا جودى said: اتفضل ان شاء تجد الالية هنا ان لم تتمكن من الفهم او التطبيق كرما وفضلا وليس امر ارفق قاعدتك ليتم عمل الازم Multi Filters.mdb 472 kB · 8 downloads مرا شكرا بس ابي البحث في النموذج الرئيسي الي ارفقته لان النموذج الرئيسي يكون بين فيه اكثر من فورمtest.zip On 10/24/2021 at 4:01 PM, د.كاف يار said: فهلا يجب اضافة مرفق حتى يكون الحل نهائي On 10/24/2021 at 3:29 PM, alzahrani2014 said: وجود المرفق يسهل على الجميع الرد .... يعطيكم العافية جميعا ابي لما احط البيانات وينتقل الى الفورم الثاني يطلب هل احفظ البيانات او لا لان ما ابي الحفظ التلقائي يشتغل عشان كذا حطيت هذا الكود قبل التحديث في الفورم الرئيسي Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then Me.Undo DoCmd.CancelEvent Else End If End Sub لكن لما احطة في باقي الفورمس الفرعية تطلع الرسالة بعد كل سجل وانا ابيها بس عند الانتقال من فورم الى اخر
د.كاف يار قام بنشر أكتوبر 27, 2021 قام بنشر أكتوبر 27, 2021 تفضلي هذا التعديل البحث - بــ / أو الرقم أو نطاق الرقم - بـــ / أو التاريخ او نطاق التاريخ test.zip 2
noor_99 قام بنشر أكتوبر 27, 2021 الكاتب قام بنشر أكتوبر 27, 2021 2 hours ago, د.كاف يار said: تفضلي هذا التعديل البحث - بــ / أو الرقم أو نطاق الرقم - بـــ / أو التاريخ او نطاق التاريخ test.zip 75.9 kB · 2 downloads مشكور يعطيك الف عافية طيب عندك فكرة عن سؤالي الثاني ابي لما احط البيانات وينتقل الى الفورم الثاني يطلب هل احفظ البيانات او لا لان ما ابي الحفظ التلقائي يشتغل عشان كذا حطيت هذا الكود قبل التحديث في الفورم الرئيسي Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then Me.Undo DoCmd.CancelEvent Else End If End Sub لكن لما احطة في باقي الفورمس الفرعية تطلع الرسالة بعد كل سجل وانا ابيها بس عند الانتقال من فورم الى اخر وهم في الفروم الرئيسي
د.كاف يار قام بنشر أكتوبر 27, 2021 قام بنشر أكتوبر 27, 2021 3 ساعات مضت, noor_99 said: لا لان ما ابي الحفظ التلقائي يشتغل لإيقاف الحفظ التلقائي في التموذج اتبعي التالي في محرر الأكواد و في اعلا المحرر بعد الإعلان Option Compare Database نضع المتغيير و الأحداث التالية Dim ِ AllwUpdate As Boolean Private Sub Form_Dirty(Cancel As Integer) If AllwUpdate = False Then Cancel = True End Sub Private Sub Form_AfterUpdate() AllwUpdate = False End Sub و في حدث عن الفتح نضع التالي AllwUpdate = True و في ازرار الحفظ نضع التالي DoCmd.RunCommand acCmdSaveRecord AllwUpdate = True تفضلي التعديل test.zip
noor_99 قام بنشر أكتوبر 28, 2021 الكاتب قام بنشر أكتوبر 28, 2021 22 hours ago, د.كاف يار said: لإيقاف الحفظ التلقائي في التموذج اتبعي التالي في محرر الأكواد و في اعلا المحرر بعد الإعلان Option Compare Database نضع المتغيير و الأحداث التالية Dim ِ AllwUpdate As Boolean Private Sub Form_Dirty(Cancel As Integer) If AllwUpdate = False Then Cancel = True End Sub Private Sub Form_AfterUpdate() AllwUpdate = False End Sub و في حدث عن الفتح نضع التالي AllwUpdate = True و في ازرار الحفظ نضع التالي DoCmd.RunCommand acCmdSaveRecord AllwUpdate = True تفضلي التعديل test.zip 72.41 kB · 8 downloads يعطيك العافية بس ماضبط معاي الكود Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then Me.Undo DoCmd.CancelEvent Else End If End Sub انا الكود الي حطيته قبل ضبط لكن مشكلة لما انتقل من سجل الى سجل كل شوي يطلب حفظ
د.كاف يار قام بنشر أكتوبر 29, 2021 قام بنشر أكتوبر 29, 2021 (معدل) 12 ساعات مضت, noor_99 said: يعطيك العافية بس ماضبط معاي الكود Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then Me.Undo DoCmd.CancelEvent Else End If End Sub انا الكود الي حطيته قبل ضبط لكن مشكلة لما انتقل من سجل الى سجل كل شوي يطلب حفظ هذا الكود لا يتناسب السجلات المتعددة فقط للسجلات الفردية لكني تفضلي هذا الإسلوب في تخزين و ترحيل البيانات بين الجداول حيث تم انشاء نسخة مطابقة للجدول لحفظ البيانات المؤقته فيه و من ثم يتم ترحيلها للجدول الأساسي تفضلي التعديل test.zip تم تعديل أكتوبر 29, 2021 بواسطه د.كاف يار 1
noor_99 قام بنشر أكتوبر 29, 2021 الكاتب قام بنشر أكتوبر 29, 2021 19 hours ago, د.كاف يار said: هذا الكود لا يتناسب السجلات المتعددة فقط للسجلات الفردية لكني تفضلي هذا الإسلوب في تخزين و ترحيل البيانات بين الجداول حيث تم انشاء نسخة مطابقة للجدول لحفظ البيانات المؤقته فيه و من ثم يتم ترحيلها للجدول الأساسي تفضلي التعديل test.zip 78.49 kB · 3 downloads يعطيك العافيه بس ممكن تشرح لي😅
د.كاف يار قام بنشر أكتوبر 30, 2021 قام بنشر أكتوبر 30, 2021 تم انشاء نسخة مماثلة من الجدول المرتبط بالنموذج الفرعي و تم ربط النسخة mainData_NonSave بالنموذج الفرعي و تم انشاء استعلام الحاقي لكي يتم اخذ جميع السجلات من النسخة الجديدة و الحاقها بالجدول الرئيسي و افراغ الجدول بعد الإلحاق If DCount("*", "mainData_NonSave") = 0 Then MsgBox "لا توجد بيانات لترحيلها", vbCritical + vbMsgBoxRight, "تنبيه" Else If MsgBox("هل تريد حفظ البيانات و ترحيلها ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تأكيد الحفظ") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "AddNew_minData" '================ تشغيل الاستعلام الإلحاقي =============== DoCmd.RunSQL "DELETE FROM mainData_NonSave;" '============== افراغ الجدول المؤقت من البيانات بعد تشغيل الاستعلام الالحاقي ========== DoCmd.SetWarnings True mainData.Requery MsgBox "تم حفظ البيانات و ترحيلها بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" End If End If 1
noor_99 قام بنشر أكتوبر 31, 2021 الكاتب قام بنشر أكتوبر 31, 2021 On 10/30/2021 at 12:12 PM, د.كاف يار said: تم انشاء نسخة مماثلة من الجدول المرتبط بالنموذج الفرعي و تم ربط النسخة mainData_NonSave بالنموذج الفرعي و تم انشاء استعلام الحاقي لكي يتم اخذ جميع السجلات من النسخة الجديدة و الحاقها بالجدول الرئيسي و افراغ الجدول بعد الإلحاق If DCount("*", "mainData_NonSave") = 0 Then MsgBox "لا توجد بيانات لترحيلها", vbCritical + vbMsgBoxRight, "تنبيه" Else If MsgBox("هل تريد حفظ البيانات و ترحيلها ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تأكيد الحفظ") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "AddNew_minData" '================ تشغيل الاستعلام الإلحاقي =============== DoCmd.RunSQL "DELETE FROM mainData_NonSave;" '============== افراغ الجدول المؤقت من البيانات بعد تشغيل الاستعلام الالحاقي ========== DoCmd.SetWarnings True mainData.Requery MsgBox "تم حفظ البيانات و ترحيلها بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" End If End If مشكور الله يعطيك الف العافيه على مجهودك الجبار من جد الكلمات ماتوفي شكري لك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.