شايب

في معيار الاستعلام لحقل القسم استبدل المعيار من
[Forms]![a_f_date]![القسم] الى المعيار التالي
IIf(Len([Forms]![a_f_date]![القسم] & "")=0;[القسم];[Forms]![a_f_date]![القسم]) الملف مرفق
اخونا الشايب
 
frzz.accdb

اجعل الترقيم في حدث بعد التحديث لحقل الاسم وليس القيمة الافتراضية للحقل
 
ترقيم يومي.accdb

لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود
انظر للفيديو ⬇️
 

جرب
 
Database1121.accdb

جرب مع عدم الاقتناع باستخدام حقول مربعات التحرير والسرد في الجداول
 
Estimation.accdb

التصفية هي وضع معيار معين لاظهار السجلات التي ترغب في اظهارها وليست لاخفاء البيانات
اما عند رعبتك في جعل النموذج فارغ من البيانات فيمكن استخدام الخاصية DataEntry ولها قيمتان نعم يكون النموذج لادخال بيانات فقط  وعند تحديدها الى لا فسيتم عرض البيانات
و لاستخدام الخاصية مع النموذج الفرعي في زر امر او اي حدث مناسب لك ضع الامر التالي
Me.test.Form.DataEntry = True test هو اسم النموذج الفرعي
ولعكس العملية
Me.test.Form.DataEntry =False الشايب
 

مشاركة مع الاستاذ خليفة
فكرة من ضمن افكار وبدون الحاجة الى تقريرين
الملف مرفق
اخونا شايب
 
gestion(1).accdb

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

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

الشكر لله استاذنا
ايضا ممكن نستخدم الامر التالي للوصول للنتيجة
Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب

ههههه
نعم لدي اكثر من طريقة ولكن الاسهل باستخدام جدول مؤقت ونستخدم معيار القائمة لغرض الحاق البيانات المفلترة
اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت
جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله
الشايب
 
basey(٢).accdb

جرب المرفق
 
yy(2).accdb

استخدم التنسيق الشرطي
 
Database1(20).accdb

بعدين لابد ان نعرف اننا لا نتعامل مع خانة اختيار او مجموعة اختيار وانما في هذا المثال نتعامل مع حقل من نوع نعم لا
 

اذا اردنا بقاء نموذج visit_frm غير منضم وبدون اجراء تغيير على النماذج والحقول
فمن اسهل الطرق تحميل قيمة الحقول ضمن امر فتح النموذج
في مثال الاخت في زر الامر النتائج نضع الامر التالي
DoCmd.OpenForm "visit_frm", , , , , , ID & "|" & ptitle & "|" & pname & "|" & code وكما تشاهد حملنا قيمة اربع حقول ويمكن زيادة عدد اكبر من ذلك وفصلنا بين كل حقل والاخر بـ
&"|"& والغرض استخدامها كفاصل بين قيمة كل حقل والاخر
ثم في نموذج visit_frm في حدث عند الفتح نضع الامر
If Not IsNull(Me.OpenArgs) Then Dim k As Variant k = Split(Me.OpenArgs, "|") ID = k(0) ptitle = k(1) pname = k(2) code = k(3) End If اخونا الشايب

هذا الخطا اذا كنت تستخدم اصدار 64
فلا يكفي اضافة ptrsafe
وانما نحتاج تغيير نوع المتغير من long الى LongPtr
 
مرفق مثال من موقع اجنبي قمت بتعديله بشكل سريع
 
demo of inputbox with mask.mdb

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

في مرفقك الاخير لا يوجد سجل باسم سليمان
فقط سعيد ومازن وحسن وحسين وانا اضفت محمد ومحمود و البحث يعمل
جرب الان
 
Database1(1).accdb

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

طالما اصبح النموذج فرعي فلابد من وضع المسار كاملا بدأ بالنموذج الرئيسي
[Forms]![Form2]![Form1].[Form]![Combo6] الملف مرفق
 
New Microsoft Access Database.accdb

مع ان الاخ العزيز شايب فهمه على قده
ولكن محاولة بسيطة
بداية ممكن عمل استعلام الحاق وممكن العمل مباشرة مع مصدر السجلات
وهنا الاخ شايب عمل مع مصدر السجلات
Dim rs As Recordset Dim rst As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("stages") Set rst = CurrentDb.OpenRecordset("StageBundleUPC") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!AddStage = True Then rst.AddNew rst!CutColor = Me.txtco rst!CutYSGPO = Me.txtysgpo rst!CutTotal = Me.txtct rst!CutNumber = Me.txtcn rst!CutStyle = Me.CutStyle rst!CutStages = rs!Stages rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.Child15.Requery الملف مرفق
الشايب
 
Sample.accdb

SetOrderBy
للماكرو نفتج شاشة انشاء ماكرو ونختار SetOrderBy وفي خانة ترتيب حسب ضع
id DESC او id ASC حسب رغبتك تصاعدي او تنازلي id هو الحقل الذي نرغب تطبيق الفرز عليه
اما في الكود فيكون الامر
DoCmd.SetOrderBy "[id] asc" اخونا الشايب

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

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

وعليكم السلام
اخونا العزيز شايب يجزم ان هذا الكود من عملنا الاخ متقاعد
وعلى الرغم من عدم الاقتناع بعمل متقاعد
الا انه يمكن تنفيذ ماتريد باضافة السطر التالي
rs!feah = fld.Properties("Caption") بعد
rs.AddNew الملف مرفق مع عدم الاقتناع
اخونا الشايب
 
test2023(1).accdb