Eng.Qassim

شكرا استاذي ابو خليل.. نعم قدم السطر الثاني على الاول اقصد هذه الجملة كلها Set rsHaraka = db.OpenRecordset("SELECT * FROM tblHaraka WHERE HarakaID <> " & strInvoiceID & "") Do While Not rsHaraka.EOF rsHaraka.Delete rsHaraka.MoveNext Loop

لا اختلاف ولاحاجة.. السيت الاول بيكون Set rsFatora = db.OpenRecordset("SELECT * FROM tblFatora WHERE FatoraId <> " & strInvoiceID & "") السيت الثاني.. Set rsHaraka = db.OpenRecordset("SELECT * FROM tblHaraka WHERE Fatora_id <> " & strInvoiceID & "")

استبدل استبدل HarakaID ب Fatora_id انا افترضتها من عندي

وعليكم السلام.. استخدم الكود التالي لاستثناء 1001..ربما تحتاج الى باراميتر في الكود لتمرير قيمة الرقم المستثنى من خلال النموذج Sub DeleteRecordsExceptOne() Dim db As DAO.Database Dim rsFatora As DAO.Recordset Dim rsHaraka As DAO.Recordset Dim strInvoiceID As Integer strInvoiceID = "1001" Set db = CurrentDb Set rsFatora = db.OpenRecordset("SELECT * FROM tblFatora WHERE HarakaID <> " & strInvoiceID & "") Do While Not rsFatora.EOF rsFatora.Delete rsFatora.MoveNext Loop Set rsHaraka = db.OpenRecordset("SELECT * FROM tblHaraka WHERE HarakaID <> " & strInvoiceID & "") Do While Not rsHaraka.EOF rsHaraka.Delete rsHaraka.MoveNext Loop rsFatora.Close rsHaraka.Close db.Close Set rsFatora = Nothing Set rsHaraka = Nothing Set db = Nothing End Sub

وعليكم السلام .. وجدت لك هذا الملف وانا شخصيا لم اجربه وربما يحتاج الى تعديل لان اصلا ليس لدي واتس اب على الحاسوب ياريت تجربه وتعطينا النتيجة ..شرح الكود موجود اسفل الكود WhatsAppNumber.rar

وعليكم السلام بالاضافة لما تفضل به الاستاذ خليفة ..تعمل استعلام يظهر الارقام المتشابهة لمرة واحدة بأستخدام الاداة DISTINCT SELECT DISTINCT الموظفين.القسم, الموظفين.الادارة FROM الموظفين WHERE (((الموظفين.الادارة)=1)); ثم تقوم بحساب عدد الاقسام من مربع النص: =DCount("[القسم]","[Qry1]")

الله...اجمل دعوى اللهم ارحمهما كما ربياني صغيرا ... بس انت (لاتسك بابك ) مشان لاتنسك الابواب امامك ..!!!

ربما انا بشمهندس (زغرنون) في المدني .. لكن في البرمجة انا طالب عندكم ... فقط اريد ان اعرف النسخة التي يعمل عليها ... ولهذا طلبت ان يعمل برنامج على نسخته ويرى خيارات التحكم في الزرار لان هذه معلومة جديدة بتالنسبة لي

بعد اذن استاذي @ابو جودي اعمل برنامج جديد ..واعمل جدول ونموذج جديدين...هل تحدث معك هذه المشكلة ؟

اعمل نموذج بالشكل الذي ترغبه وبالابعاد التي تريدها وليس (الحجم) ...وانسخه بعدد النماذج التي تريدها

من حسن حظك انه غير موجود ..يقول خبراء الاكسس ان مايكروسوفت وضعته للتعلم وليس من اجل عمل البرامج الجدول هو قاعدة البيانات الاساسية في البرنامج ..يعني هو الملك ..ولا يجب ان نجعل الملك (يلهط) على طول ☺️ ..فتضيع المملكة

لا هذا للصباح ☺️

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

طبعا..ضعه بدلا من السطر القديم

جرب هذا السطر Me.PatientID = i & " /" & Format(DCount("PatientID", "tblPatients", "[PatientID]<=" & [PatientID] & " AND Month(p_Date)=" & Month([p_Date]) & "") + 1, "000")

مشاركة مع استاذي @ابوخليل عملت لك تصفية بالمركز ورقم القسط ..ويظهر لك عدد المسددين والمبالغ طبعا وضعت حقل مبالغ التسديد وارقام من عندي حتى تتوضح الصورة لديك filtering.rar

يعمل معي جيدا ...احسنت استاذ @محمد احمد لطفى لكن كما قلت سابقا ...هو يقرأ نسخة اوفيس البرنامج وليس الموجود على الحاسوب .. مثلا انا استخدم نسخة 64... بينما يظهر لي 32X

مبدع استاذ @ابو جودي

الحمد لله ..ونحن في خدمتك استاذ خالد ..ولا تتصور ان الحدود تبعدنا عن بعض نحن العرب ...فربنا واحد ونبينا واحد (صلى الله عليك يارسول الله)

يئبرني ها السؤال شو مهضوم ...انت على شو تضغط ...تئبرني 😍 تحياتي لاهلي في سوريا

والله اخي ابو العزائم ...انت عزمت حالك واعطيت لنفسك افضل اجابة 😂

لم اجرب الارقام .. بس اعمل حقل نعم/لا للحقل عقد منتهي يعني حينما تعلم عليه بنعم (يعني منتهي ) فلن يظهر لديك

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

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

شيء من هذا القبيل If Me.chk1.Value = True Then DoCmd.CancelEvent MsgBox "مستقيل" Else DoCmd.Save End If