ابوخليل

Set Sp = CreateObject("sapi.spvoice") 👍

انت بحاجة عند وجود التكرار الى التراجع والخروج من الحدث فقط جرب هذا التعديل Private Sub SAEF_Click() Dim db As DAO.Database Dim rst As DAO.Recordset Dim existingName As String Dim nameExists As Boolean Set db = CurrentDb nameExists = False ' التحقق مما إذا كان الاسم موجودًا بالفعل في الجدول Set rst = db.OpenRecordset("SELECT [NAME ARABIC] FROM TABELSIMCARD WHERE [NAME ARABIC] = '" & Me.D2 & "'", dbOpenSnapshot) If Not rst.EOF Then ' إذا تم العثور على السجل، فذلك يعني أن الاسم موجود nameExists = True End If rst.Close Set rst = Nothing Set db = Nothing ' إذا كان الاسم موجودًا بالفعل، عرض رسالة تحذيرية وعدم الحفظ If nameExists Then MsgBox "الاسم '" & Me.D2 & "' الموظف موجود مسبقاً في نظام الكشوفات الخاصة ببطاقات الهاتف.", vbExclamation Undo DoCmd.CancelEvent Exit Sub Else DoCmd.RunCommand acCmdSaveRecord End If End Sub

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

ليس استعلاما واحدا بل استعلامات فانت تتعامل مع جدولين مرتبطين .. وتريد تكرار البيانات في الجدولين مع مراعاة اختلاف رقم القيد المرتبط المسألة بحاجة الى وسيط ( ذاكرة مؤقتة ) تحفظ السجل القديم لاستخدامه كمعيار ووسيط آخر يمثل السجلات الجديدة تمت المعالجة على النحو الذي ذكرته اعلاه Dailyrepetition2.rar

الامر يسير جدا لو تتبعت الأكواد للاحظت اني غيرت فقط false الى true والعكس صحيح المثال3.rar

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

تفضل جرب يبحث في الاسم المصحح او جزء منه ويبحث في الرقم القومي مع ضابط عدم السماح بكتابة الحروف سيكون اسرع بإذن الله حاولت قدر الإمكان عدم تغيير شيء حتى يسهل عليك نقله ، التغيير تم على الاستعلام في تعديل ( تسمية ) الحقل المصحح .. اعطيته اسم : ename2 المثال2.rar

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

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

اهلا اخي ابو ياسين .. من زمان عنك .. اتمنى تكون بخير انت واهلك واحبابك اولا : مادمت تستخدم هذا السطر On Error Resume Next فلن تجد سبب المشكلة فانت استخدمته في اكثر من مكان داخل الكود نصيحتي ان تلغيه وتتبع الخطأ وتعالجه وانا متأكد انك ستجد الخلل بنفسك ثانيا : اذا لم تتمكن من معالجة الخلل ارفع مرفقا به ... امثلة سكنر كثيرة تجدها هنا تشتمل على جدول وفورم فقط

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

تفضل اخي زياد وجدت هذا الكود الجميل من ضمن الموجودات لدي .. من عمل اخي الأستاذ @سعيد صواب لاحظ ان عليك تعديل اسماء الحقول ولجدول بما يتناسب معك Private Sub combo0_AfterUpdate() Me.txtname = Me.combo0.Column(0) End Sub Private Sub Combo0_Change() Dim strText, strFind strText = Me.combo0.Text If Len(Trim(strText)) > 0 Then strFind = "txtname Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" strSQL = "SELECT table1.txtname,table1.nnumber FROM table1 Where " & _ strFind & " ORDER BY txtname;" Me.combo0.RowSource = strSQL Else strSQL = "SELECT table1.txtname,table1.nnumber FROM table1 ORDER BY table1.txtname; " Me.combo0.RowSource = strSQL End If Me.combo0.Dropdown End Sub Search_inside_Combo.rar

ملحوظة : من غير الملزم وضع المرفق على C لاني بحثت فيه فوجدت علاقته بمحرك C بسطرين او ثلاثة فقط بجانب بعض : Me.photofile = "C:\Images\" & Me.ID & ext فيمكن وضح مجلد Images داخل مجلد البرنامج وتعديل الكود ... وفتحه من اي مكان

رفعت لك مثالك بدون رايت كلك وبدون شيفت ... هو انت اللي عاملها والمفروض انك تقدر تعطلها . الشيء المهم : لابد ادخل في راسك وأقرأ افكارك من اجل اعرف انت عايز تعرض ايه في التقرير .. فالمرفق فقط جداول وانت ذكرت في اول موضوعك اني انا صممت لك تقرير خاص وتريد مشابه له طيب التقرير اللي ذكرته من وين تفتح وتعرض التقرير ؟ اليس من نموذج ؟ وهذا النموذج يحتوي على حقول نختار منها من اجل نعرضها في التقرير ؟ ستقول نعم صح .. طيب اريدك تعمل لي هذا النموذج وداخله الحقول المراد عرضها . اقتبست لك ردي السابق .. هل هو واضح ومفهوم ؟ DATA14 (2).rar

كود جميل استاذنا ولا اروع ما رأيك لو الحدث قبل التحديث هل يكون أقوى ؟

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

توجيه : واجعل هذا التوجيه حلقة في ودانك .. كما يقول اهلنا في مصر عند انشاء اي جدول يجب اول حقل تعمله هو ID ترقيم تلقائي مفهرس فريد غير قابل للتكرار .. وفي الغالب يكون هو مفتاح الجدول هذا الحقل خاص بجداول اكسس ( اي ملك اكسس ) ولا يرتبط بعلاقات مطلقا .. ولا يظهر للمستخدم مطلقا . قد يستفيد منه المبرمج في حالات نادرة وخاصة فقط . ______________________________________________________________________________________________________ نأتي للعلاقات التي كثيرا ما تشغل فكر المبتدئين : بالنسبة لأعمالي فأنا لا استخدم ربط العلاقات بين الجداول .. ابدا .. الا في حالات نادرة .. وإنما يكون الربط داخل الاستعلامات فقط الحالات النادرة هي : ان يكون الجدولان مصدران لنموذجين منضمين ( رئيسي وفرعي ) السبب في عدم ربط الجداول بالعلاقات هو اني استعيض عن الربط بتوظيف مربع التحرير في النموذج المرتبط بالجدول الفرعي بدلا من الحقل النصي لأن مربعات التحرير محكومة بقيمة محددة تمثل القيمة في الجدول الرأس .. اما الحقول النصية فهي قابلة لإدخال قيم مختلفة وهذا يعني عند استخدام الحقل النصي في النموذج المرتبط بجدول فرعي هنا يجب ربط العلاقة بين الجدولين حتى لا يسمح بادخال قيمة مختلفة __________________________________ نأتي الآن على مثالك تطبيق لماذكرته اعلاه عن مفاتيح الجدول تجد في جدول التفاصيل ( tblMain ) ان المفتاح في الجدول تم توزيعه على حقلي الاسم و المنصب من اجل لا نسمح بتكرار ادراج اسم الموظف بالنمصب نفسه .. ولكنه قد يحصل على ترقية الى منصب آخر وهنا يكون الجدول مصدر بيانات تاريخية يمكنك الاطلاع على تدرج الموظف في المناصب ( وهذا اجتهادا مني ) ويمكنك اعادة المفتاح الى حقل الــــ ID مثال4.rar

دعني أسألك اولا ثم اشرح لك : ما هو رقم الموظف المعتمد في برنامجك والذي يتم البحث به عن الموظف ؟ هل هو الرمز ام الترقيم التلقائي علما اني ارى في النموذج ان المستخدم هو الرمز .. وهذا هو العمل الصحيح

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

تفضل حساب شرائح الكهرباء2.rar

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

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

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

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

ابشر .. قيد العمل ... عندما اقوم باعداد مثل هذه الأفكار احرص دائما على الشمولية بمعنى انني اعمل على ان يكون البرنامج صالح لكل زمان ومكان ... اي لكل بلد ولكل نظام شرائح .