ابوآمنة

نزل هذا البرنامج على جهاز الماك يقوم بتشغيل الويندوز وبرامجه على جهاز الماك https://www.parallels.com/products/business/

الطريقة سهلة جداً إضافة مربع تسمية فوق التقرير الفرعي ومن ثم توجه إلى تبويب | ترتيب | حجم وترتيب | إحضار إلى المقدمة وبالتوفيق Database1.accdb

حياك الله في الخدمة

تفضل غيرنا هذا السطر فقط varFilter = "[barcode] = " & Me.xx & "" الكود السابق varFilter = "[barcode] LIKE '*" & Me.xx & "*'" وأيضا تم الاكتفاء بكود واحد search.accdb علماً أن قاعدتك أنشأتها في إصدار حديث يقبل الرقم الكبير في الجدول ولن يستطيع من لديه إصدار أقل مشاهدة البرنامج .

اعجبتني هذه المقوله : قَالَ ابْنُ الْمُبَارَكِ: لَا يَزَالُ الْمَرْءُ عَالِمًا مَا طَلَبَ الْعِلْمَ، فَإِذَا ظَنَّ أَنَّهُ قَدْ عَلَمَ؛ فَقَدْ جَهِلَ

شكراً إضافة جميلة يا أخي أحمد وإعادة الفهرس من جديد أضفت تجربتي شاهد المرفق 'إضافة الحقول المستثناه ID.Tag = 2 For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then If ctl.Tag <> 2 Then ctl.Value = Null End If End If Next ctl بدون إضافة التاج في خصائص الحقل يتم إضافته في الكود . تفريغ الحقول(2).mdb

انا ع طريق سفر فور وصولي بمشيئة الله سأطلع ع المثال

ويمكن أيضا العكس وضع Tag في حقل المراد استثناءه If ctl.Tag <> 1 Then لكن لم اجرب

عملت طريقة Tag ونجح Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.Tag = 1 Then ctl.Value = Null End If End If Next ctl الطريقة : تذهب لخصائص الحقل تبويب| غير ذلك | علامة | ضع رقم 1 في الحقول التي تريد تفريغها مع استثناء الترقيم التلقائي . تفريغ الحقول.mdb

حياك أخي احمد لا زالت المشكلة قائمة ، والظاهر أنك لم تجرب الكود قبل إدراجه . على العموم هذا مرفق لوضع التجارب عليه تفريغ الحقول.mdb

حياك أخي احمد للأسف حاولت الاستثناء لكن لم يفلح . لعل الأخوة الزملاء يفتح الله عليهم بطريقة استثناء حقل الترقيم التلقائي .

ممكن تجاوز الرسالة بصائد الأخطاء او استثناء حقل الترقيم التلقائي

المشكلة في حقل الترقيم التلقائي .

Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox or ctl.ControlType = acComboBox Then If ctl.Value <> "" Then ctl = "" End If End If Next ctl عن أذن أخي وحبيبي أحمد غير كلمة and إلى or كما في المثال أعلاه

وعليكم السلام ألقي نظره على هذا الموقع الأجنبي ( سورس كود مجاني ) وحفظ فلوسك 😅 https://www.sourcecodester.com/microsoft-access

السلام عليكم بالمرفق طريقة التحديث والإضافة من جدولين باستخدام أكود Recordset كود التحديث : Dim i As Integer Dim ii As Integer Dim RC As Integer Dim RC1 As Integer Dim A2 As Variant Set rs = CurrentDb.OpenRecordset("Select * From Temp3") rs.MoveLast: rs.MoveFirst RC = rs.RecordCount For i = 1 To RC A2 = rs!f2 ' يجب أن يكون نوع الحقل المربط بين الجدولين رقم Set rst = CurrentDb.OpenRecordset("SELECT * From Temp4 WHERE ID =" & rs.ID & "") rst.Edit rst.ID = rs.ID rst.f1 = rs.f1 rst.f2 = rs.f2 rst.F3 = rs.F3 rst.F4 = rs.F4 rst.F5 = rs.F5 If Len(A2 & "") <> 0 Then rst!F6 = "******" & Right(rs.f2, 4) rst.Update rs.MoveNext Next i Set rst = Nothing Set rs = Nothing MsgBox "OK" كود الإضافة : Dim i As Integer Dim ii As Integer Dim RC As Integer Dim RC1 As Integer Set rs = CurrentDb.OpenRecordset("Select * From Temp4") rs.MoveLast: rs.MoveFirst RC = rs.RecordCount For i = 1 To RC ' يجب أن يكون نوع الحقل المربط بين الجدولين رقم Set rst = CurrentDb.OpenRecordset("SELECT * From Temp5 WHERE ID =" & rs.ID & "") rst.AddNew rst.ID = rs.ID rst.f1 = rs.f1 rst.f2 = rs.f2 rst.F3 = rs.F3 rst.F4 = rs.F4 rst.F5 = rs.F5 rst.F6 = rs.F6 rst.Update rs.MoveNext Next i Set rst = Nothing Set rs = Nothing MsgBox "OK" وبالتوفيق Recordset.mdb

شكرا جزيلاً استاذنا صالح بارك الله فيك . وزادك الله علماً وفهماً عملاً . وجعل الله ما قدمته في ميزان حسناتك .

جرب المرفق DoCmd.RunSQL "DELETE * FROM table1 WHERE key NOT IN ( SELECT min(key) FROM table1 GROUP BY FirstName, Address2)" حذف السجلات المكررة.mdb

تابع الموضوع

من خصائص الحقل كما في الصورة :

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

شكرا جزيلا لك أستاذنا الفاضل جعفر إضافة جميلة في المنتدى ، و حاجتها واردة ومتكررة . وشرح وافي ومميز .

اضغط هنا للتحميل المباشر

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

ومشاركة مع الزملاء الكود Private Sub znumbers_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("wared") Rs.MoveFirst Do Until Rs.EOF If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation Me.Undo Cancel = True End If Rs.MoveNext Loop Set Rs = Nothing End Sub نظام وارد.saleh101.accdb