متقاعد

مع اني ربما لم افهم المطلوب
ولكني ساحاول
ممكن نعمل اجراء
Sub k() Dim a As Byte Dim n, m As String For a = 1 To Len(ActiveControl.Name) n = Mid(ActiveControl.Name, a, 1) Select Case n Case "0" To 9 m = m & n End Select Next a Me.textbox1 = m End Sub ثم في كل زر امر نستدعي الاجراء بالشكل التالي
k طبعا هذا الاستداء لايؤثر على اي اوامر في الازار
هذا الرد مجرد تحفيز للاساتذة لتقديم حلول افضل
الملف في المرفقات
 
New Microsoft Access قاعدة بيانات).accdb

هذا الموضوع يا ازهر ⬇️
 

في زر الامر ضع التالي
Dim x As Date Dim a As Integer Dim rs As DAO.Recordset x = Forms![TEST1]![Date_M] Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberEnd] - 1 To Forms![TEST1]![NumberStart] - 1 rs.AddNew rs!date1 = x rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 x = DateAdd("d", Forms![TEST1]![ChooseDayes], x) rs.Update Next a rs.Close Set rs = Nothing Me.Requery لو تلاحظ اني لم اغير في طريقتك هو تقريبا نفس كودك ولكن يتعامل مع مصدر السجلات
مع انه يمكن كتابته بشكل افضل ولكني استخدمت طريقتك لايصال المعلومة بشكل اسهل
تحياتي
 
 

EmpsDB.accdb

جرب
Public Function kha(frm As Form) frm.Section(acDetail).BackColor = RGB(215, 255, 7) End Function وفي حدث عند التحميل للنموذج ضع ⬇️
kha me  

هديه جميلة من انسان جميل
تقبل الله منا ومنكم صالح الاعمال وعيدكم مبارك 🌹

ممكن
Dim x As Integer Select Case Kind_pat Case Is = "lab" x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='lab'"), 0) + 1 Case Is = "project" x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='project'"), 3000) + 1 End Select PCode = x الملف في المرفقات
 
 
2023.accdb

عند تصميم الماكرو يوجد خيار اظهار كافة الاجراءات
 

المثال يعمل بعد تعديله الى
DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test.accdb", acForm, Me.Modifiable9.Column(1), "FramDelete" تحياتي
 

الطريقة الثانية بدون الحاجة للفلترة ثم الغاء الفلترة للوصول للسجل التالي او السابقة
والطريقة بعمل متغير عام في وحدة نمطية فارعة
ثم نحمل قيمة المتغير من خلال القائمة SearchList
بالامر
x = Me.SearchList.Column(1) وفي امر فتح نموذج المبيعات نضع الامر
Me.اسم_العميل.SetFocus DoCmd.FindRecord x, acAnywhere, , acSearchAll ولا نحتاج الى اوامر او اكواد اخرى
الملف مرفق
 
 
Database1.accdb

الخطوة الاولى نظهر ملفات النظام ويهمنا الجدول MSysObjects
نعمل استعلام ونحتاج الى حقلين فقط name وحقل type وفي خانة المعيار نضع الرقم -32768
لتكون جملة الاستعلام تساوي
SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=-32768)); ثم نعمل استعلام جديد مصدرة الاستعلام السابق او نحول الاستعلام السابق الى استعلام الحاق وتكون جملة الاستعلام تساوي
INSERT INTO tblform ( nameform ) SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not In (SELECT tblform.nameform FROM tblform;)) AND ((MSysObjects.Type)=-32768)); وهنا تجد اننا استخدمنا معيار جديد عبارة استعلام فرعي لكي يلحق فقط اسماء النماذج الجديدة حتى لا يحصل تكرار لاسماء النماذج التي سبق الحاقها
وايضا ممكن الاستغناء عن استعلام الالحاق بالكود
وايضا ممكن تحويل الحقل في الجدول الى مربع تحرير وسرد ونجعل مصدرة كود الاستعلام الاول
الملف مرفق
 
مثال187.accdb

موضوع جميل وان لم ينل حقه في التفاعل
ربما يكون من المواضيع القليلة في الموقع التي تتحدث عن استخدام عناصر تحكم activex وتوظيفها
تحياتي والى الامام دائما 🌹

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

جرب
 
yasser_10.accdb

Me.Table1_subform.SetFocus DoCmd.RunCommand acCmdSelectAllRecords  
Microsoft Access Database جديد(3).accdb

للحقل المطلوب عدم تمكينة او مجموعة حقول ادخل تنسيق ثم قاعدة جديدة ثم تعبير
واكتب الامر التالي
[Forms]![JMainVoucherForm]![BondType1]="صرف نقدى" ثم انقر على خيار تمكين او عدم تمكين
 

بالتوفيق استاذ محمد والشكر لله
واتمنى تعديل افضل اجابة لمعلمي واستاذي ابوخليل لكونه صاحب السبق
اخيرا
في مثل هذه الحالات التي تتساوي فيها مسميات حقول الجدولين
يمكن عدم كتابة اسماء الحقول باستبدال
Me.itemname = rs!itemname Me.itemdesc = rs!itemdesc Me.itemqty = rs!itemqty Me.dateee = rs!dateee الى
For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = rs.Fields(ctl.Name) وفي هذه الحالة عدد الحقول اربعة فقط وتكون طريقة الحلقة مفيدة اكثر عندما يكون لدينا عدد كبير جدا من الحقول وتفيد ايضا لتجنب الخطأ في كتابة اسماء الحقول
الامر بعد التعديل
Dim x As Integer x = DCount("*", "table2", "[itemcode]=" & Me.itemCode) If x > 0 Then GoTo a Else GoTo b End If b: Me.Refresh Dim rs As Recordset Dim strsql As String Dim ctl As Control strsql = "SELECT Table1.* FROM Table1 WHERE Table1.[itemCode]=" & [Forms]![AdditemPerCode]![itemCode] Set rs = CurrentDb.OpenRecordset(strsql) For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = rs.Fields(ctl.Name) End If Next ctl rs.Close GoTo c a: MsgBox "الصنف سبق الحاقة" Me.Undo GoTo c c: Exit Sub الملف مرفق
 
 
Database3(1).accdb

جرب
Select Case Modifiable2 Case Is = 1 Me.Modifiable2.ForeColor = vbRed Case Is = 2 Me.Modifiable2.ForeColor = vbBlue Case Is = 3 Me.Modifiable2.ForeColor = vbGreen End Select الملف في المرفقات
 
1111.accdb

الطريقة الاولى بمصدر السجلات
If IsNull(Me.Text0) Then GoTo k Else GoTo a End If a: Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT items.* FROM items;") rs.FindFirst "[barcod] =" & Me.Text0 If Not rs.NoMatch Then MsgBox "الرقم مسجل" Else MsgBox "رقم غير مسجل" End If rs.Close Set rs = Nothing Exit Sub k: MsgBox "اكتب رقم الباركود" الثانية عد السجلات بواسطة دالة DCount
Dim x As Integer x = DCount("[barcod]", "items", "[barcod]=" & Me.Text0) If x > 0 Then MsgBox "الرقم مسجل" Else MsgBox "رقم غير مسجل" End If مرفق الملف
 
رسالة بعدم وجوده فى جدول اخر(1).accdb

صحيح لان معيار الحقل النصي يختلف عن الحقل الرقمي
ويكتب هكذا ⬇️
DoCmd.OpenForm "Patient Profile", , , "[PatientID]='" & Me.PatientID & "'" الملف مرفق
 
ID4.accdb

الحمد لله هناك تحسن و الله خير حافظ
جرب الان اسندنا مصدر الى السجلات الى كود استعلام تجميع
الملف مرفق
 
Multi Report(2).accdb

طريقة اخرى باستخدام for next
Dim k As String Dim i As Integer For i = 0 To List2.ListCount - 1 If List2.Selected(i) = True Then k = List2.Column(0, i) DoCmd.OpenReport k, acViewPreview End If Next i الملف مرفق
 
Listbox.accdb

الحقيقة لا اعلم هل تحقق المطلوب ام لم يتحقق
الفكره في الكود انه يعدل عدد ايام الغياب وفقا لما اشرتم اليه في المشاركة الاولى
اما اذا كان المقصود ان يتم التعديل فقط لمن لديه 4 او 5 ايام غياب فاكثر فيمكن تعديله باضافة شرط الحد المانع للتعديل من خلال وضع العدد مباشرة في الكود او من خلال مربع نص وهو الافضل من وجهة نظري حيث يمكن تعديل الحد المانع لحذف الايام او وضع 0 ليكون التعديل لكل الطالبات
الملف مرفق
 
test5(1).accdb

هل هذا المطلوب
Data_Base.mdb

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