كيف استخدم اكثر من حقل للابحث

[noor_99]

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

ابي اعمل فورم للبحث 

اكثر من حقل 

يعني احط من تاريخ الى تاريخ 

او رقم الفاتوره مثلا

او من اسم الموظف الي الي دخل البيانات

يعني مو شرط احطهم كلهم للبحث ممكن استخدم بس حقل 

انا اعرف اخليه يعمل بحث بحقل واحد لكن

لما ادخل المعيار في الحقل الثاني 

يطبق الثاني بس وما يطبق الاول

يعني كنت بس حاطة معيار للبحث برقم 

لكن لما احطمعيار في التاريخ 

يطبق بس على التاريخ 

ولما احط رقم من غير تاريخ او مع تاريخ مايسوي شي

 

وشي ثاني كيف اخلي البيانات ما تنحفظ الا بعد الضغط على زر الحفظ لانها مجرد ما اكتبها في الفورم تنحفظ في الجداول 

 

المشكله الثالثه

لما اعمل import للبيانات من الاكسل

يخلي لي ٣ خانات فاضيه 😓

[alzahrani2014]

وجود المرفق يسهل على الجميع الرد .... 

[ابو جودي]

اتفضل 

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

 

 

Multi Filters.mdb

تم تعديل أكتوبر 24, 2021 بواسطه ابا جودى

[د.كاف يار]

فهلا يجب اضافة مرفق حتى يكون الحل نهائي

[noor_99]

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
 

لكن لما احطة في باقي الفورمس الفرعية تطلع الرسالة 

بعد كل سجل 

وانا ابيها بس عند الانتقال من فورم الى اخر

[د.كاف يار]

تفضلي هذا التعديل

البحث

- بــ / أو الرقم أو نطاق الرقم

- بـــ / أو  التاريخ او نطاق التاريخ

test.zip

[noor_99]

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
 

لكن لما احطة في باقي الفورمس الفرعية تطلع الرسالة 

بعد كل سجل 

 وانا ابيها بس عند الانتقال من فورم الى اخر وهم في الفروم الرئيسي

[د.كاف يار]

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]

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

انا الكود الي حطيته قبل ضبط لكن مشكلة لما انتقل  من سجل الى سجل كل شوي يطلب حفظ

[د.كاف يار]

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 بواسطه د.كاف يار

[noor_99]

19 hours ago, د.كاف يار said:

هذا الكود لا يتناسب السجلات المتعددة

فقط للسجلات الفردية

لكني تفضلي هذا الإسلوب في تخزين و ترحيل البيانات بين الجداول

حيث تم انشاء نسخة مطابقة للجدول لحفظ البيانات المؤقته فيه و من ثم يتم ترحيلها للجدول الأساسي

تفضلي التعديل

 

test.zip 78.49 kB · 3 downloads

يعطيك العافيه 

بس ممكن تشرح لي😅

[د.كاف يار]

تم انشاء نسخة مماثلة من الجدول المرتبط بالنموذج الفرعي

و تم ربط النسخة 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

 

[noor_99]

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

 

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

على مجهودك الجبار

من جد الكلمات ماتوفي 

شكري لك