ابوآمنة

شاهد المرفق تنزيل

اطلع على هذا الموضوع

وعليكم السلام ضع مثالاً من قاعدة البيانات حتى نستطيع فهم الصورة بوضوح .

ما هي المشكلة بالضبط . وما هو نوع الخطأ.

تفضل لعله يكون هذا طلبك Select Case MsgBox(Prompt:="هل تريد إكمال عملية إشعار المقبولين ؟", Title:=Compan, Buttons:=vbYesNo + vbInformation + vbDefaultButton1 + 1572864) Case vbYes Dim RC As Integer Dim i As Integer Dim rst As Variant Dim T As String Set rst = CurrentDb.OpenRecordset("Select * From QrySet where [rashaqa]=" & Me.a & "") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC txtMessage = "السلام عليكم أ." & qsplit(rst.leader_name, 0) & vbCrLf & _ "تم قبولك في دورة" & vbCrLf & rst.school_name & _ vbCrLf & "المكان" & vbCrLf & rst.marhala & _ vbCrLf & "نهاية الرسالة" T = send(URLEncode(UserName), URLEncode(Password), ConvertToUnicode(txtMessage.Value), txtSender.Value, rst.phone1.Value) ShowResult T updateBalance rst.MoveNext Next i rst.close: Set rst = Nothing txtMessage = "" MsgBox "لقد تمت العملية بنجاح" Case vbNo MsgBox "تم الرجوع" End Select test.accdb

وعليكم السلام أخي @أحمد الفلاحجى رجل مكافح ،ويتعلم بأدب، ويخدم الناس . دائما يثري المواضيع ويسأل عن أدق التفاصيل بصراحة نحن نفخر بهذه الكوكبة المباركة . تستحق أن تكون خبيرا وبالتوفيق 🌹

شاهد الموضوع

شاهد هذا الموضوع

برنامج HR مفتوح المصدر ربما ينفع معك

نزل هذا البرنامج على جهاز الماك يقوم بتشغيل الويندوز وبرامجه على جهاز الماك 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