kha9009lid

هذا بس من ذوقك دكتور ولا العين ما تعلى على الحاجب 🌹
جرب المرفق
 
test_bar.accdb

جرب المرفق
 
New.accdb

شوف الصورة

اذكر كنا نستخدم هذه الطريقة عند عمل برامج تتطلب ادخال بيانات بشكل كبير للتسهيل على الموظفين
ونستخدم ارقام بدلا من مربعات التحرير والسرد لكون الامر اسهل في ادخال المعلومان مثلا بدلا من فتح مربع التحرير لاختيار الدولة مثلا الاردن يكتب رقم 1 = الاردن وهكذا لبقية الدول
وفي حالة عدم حفظ رمز الدولة ينقر زر امر ⸫ مثل المشابه لما اشرت اليه فيتم فتح نموذج الدول فيختار الدولة
ملاحظة
الجنس 1=ذكر 2= انثى
الجنسية من 1 الى 23 اذا ادخلت رقم اكبر سيفتح نموذج الدول او بامكانك مباشرة النقر على زر الثلاث نقاط لاختيار الدولة
مرفق مثال بسيط عملته على السريع فاعتذر عن اي قصور
 
ابو اشرف.accdb

في زر امر طباعة استبدل الامر
Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview بالامر التالي 👇
Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview, , Me.Filter  

في زر امر طباعة استبدل الامر
Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview بالامر التالي 👇
Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview, , Me.Filter  

في زر امر طباعة استبدل الامر
Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview بالامر التالي 👇
Forms!frm_Main!srch_Page = Me.iPage DoCmd.OpenReport "rpt_Items_Pages", acViewPreview, , Me.Filter  

اذا كان الامر بهذه الصورة البسيطة وفقا لمثالك المرفق كود استعلام ممكن يحل المشكلة
اعمل زر امر وفي حدث عند النقر ضع الامر
DoCmd.RunSQL "UPDATE [Table] SET [Table].[sheet 2] = [Table]![sheet 1];" جربت الامر على 90000 سجل وحدث خلال ثواني
 

ممكن
نحجز متغير
Dim x As Byte نجعل المتغير يعد السجلات بمعيار رقم الكود
x = DCount("*", "part", "[cpart]=[aa]") نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء
If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية
Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If يكون الكود كاملا بالشكل التالي
Dim x As Byte x = DCount("*", "part", "[cpart]=[aa]") If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If مرفق الملف بعد التعديل
 
dlook.accdb

ممكن
نحجز متغير
Dim x As Byte نجعل المتغير يعد السجلات بمعيار رقم الكود
x = DCount("*", "part", "[cpart]=[aa]") نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء
If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية
Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If يكون الكود كاملا بالشكل التالي
Dim x As Byte x = DCount("*", "part", "[cpart]=[aa]") If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If مرفق الملف بعد التعديل
 
dlook.accdb

ممكن
نحجز متغير
Dim x As Byte نجعل المتغير يعد السجلات بمعيار رقم الكود
x = DCount("*", "part", "[cpart]=[aa]") نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء
If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية
Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If يكون الكود كاملا بالشكل التالي
Dim x As Byte x = DCount("*", "part", "[cpart]=[aa]") If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If مرفق الملف بعد التعديل
 
dlook.accdb

في اصدار 2019 في تبويب ادوات قاعدة البيانات
اعتقد 2010 نفس الامر

جرب
Dim k As Integer Dim x As Integer For k = 1 To Len(tx) x = Asc(Mid(tx, k)) If x >= 48 And x <= 58 Then Me.tx2 = tx2 & Mid(tx, k, 1) End If Next k مرفق مثال
 
Database1641.accdb

الطريقة الاسهل بعيد عن زحمة الاكواد
اجعل مصدر التقرير استعلام مضمن
في حقل n اجعل المعيار
Like "*" & [Forms]![Fsearch]![x1] & "*" في حقل datein اجعل المعيار
Between Nz([Forms]![Fsearch]![x2];"01/01/1900") And Nz([Forms]![Fsearch]![x3];"01/01/2100") الملف مرفق
New Microsoft Access قاعدة بيانات (3).accdb

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

فيه طريق بسيطة
نعمل وحدة نمطية
On Error Resume Next DoCmd.RunCommand acCmdPageSetup ثم نستدعيها من المايكروا الفرعي
 
Database510.accdb

بهذه الطريقة بتواجهك مشكلة انك لوحذفت صنف من المرتجع لن يتم تعديل اجمالي المرتجع
وللتغلب على هذه المشكلة
في امر حذف الصنف المسترجع استبدل الكود الموجود بالكود التالي
On Error Resume Next If MsgBox(" عفوا هل تريد مسح هذا الصنف .... " & sanf_name.Value & vbCrLf & _ " ", _ vbQuestion + vbMsgBoxRight + vbYesNo, _ " حذف صنف ") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Call P_mor_AfterUpdate Else DoCmd.RunCommand acCmdUndo End If  

مع انه يمكن الغاء عمل الزر عن طريق خصائص النموذج وبدون الحاجة الى كود
لكن ممكن مع الانتباه الى ان تعطيل بعض خصائص النموذج يتطلب لها الدخول على عرض التصميم
لذا يمكن التحايل وعملها عن طريق 👇
 
DoCmd.OpenForm "frm1", acDesign Forms!frm1.CloseButton = False DoCmd.Close acForm, "frm1", acSaveYes DoCmd.OpenForm "frm1" وتفسيره
افتح النموذج في عرض التصميم اجعل زر الاغلاق غير مفعل اغلق النموذج مع حفظ التغيير اعد فتح النموذج مشوار طويل ولكن ....
الملف مرفق
aziz.accdb

اسهل طريقة
اعمل استعلام 1 ثم ضع فيه معيار تصفية
Between Nz([forms]![FQin]![f2];"01/01/1900") And Nz([forms]![FQin]![t2];"01/01/2100") ثم اعمل استعلام 2 ويكون فيه التجميع واجعله مصدر للنموذج
 
FF.accdb

لانك جعلت مصدر بيانات الحقل عملية حسابية واصبح غير منظم
جرب الان نقلنا عملية احتساب المدة بعد ادخال تاريخ النهاية
وكذلك الاجمالي يحسب بعد ادخال قيمة الكاش
 
tb1.accdb

بعد اذن اخي واستاذي ابو خليل
شوف اخي ازهر الخطا بسبب me.j و me.t
لكونهما متغيران وليسا حقلين في النموذج
timer11.accdb

السؤال موجه الى استاذنا ولكن احاول الاجابة بعد اذن معلمي القدير جعفر
الكود صحيح ولكن لن يعمل بشكل مباشر وسيتم التفصيل
تعديل بعض خصائص النموذج يتم التعديل بشكل يدوي بالدخول على عرض تصميم النموذج ثم من الخصائص يتم الاختيار وهذا ماعمله الاستاذ @king5star
ولكن طلبك اخي ازهر عن طريق الكود وسبق ان وضع اخونا ومعلمنا العود @ابوخليل كود جميل يعالج الامر
فقط اضفت عليه امر تعديل نمط الحدود
لذا سوف نقوم بوضع كود يقوم بفتح النموذج في عرض التصميم بشكل مخفي
DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden ثم نعدل خصائص منبثق نعم ومشروط نعم ونمط الحدود الى بلا
Forms!f2.PopUp = True Forms!f2.Modal = True Forms!f2.BorderStyle = 0 ثم للتغلب على رسالة المطالبة بالحفظ نضع الامر
DoCmd.Save acForm, "f2" ليكون الكود النهائي
DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden Forms!f2.PopUp = True Forms!f2.Modal = True Forms!f2.BorderStyle = 0 DoCmd.Save acForm, "f2" وللتراجع عن التغيير  نضع الامر
DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden Forms!f2.PopUp = False Forms!f2.Modal = False Forms!f2.BorderStyle = 1 DoCmd.Save acForm, "f2" بالتوفيق اخي ازهر
j1.accdb

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

جرب الامر التالي
DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbc(idn, cdatex, c1,c2 )VALUES (idn,tdatex,c1,c2)" DoCmd.SetWarnings True  

ممكن عن طريق انشاء مايكرو
ميكرو فرعي
ثم نحديد الفورم المطلوب
احفظ المايكرو باسم AutoExec