ابوخليل

اعني الدالة الثانية الخاصة بـــ "عبد" اما الأولى فأعتقد انها جاهزة للعمل

نماذج المستخدمين لاي برنامج : 1- نموذج الدخول (غير منضم) 2- نموذج اضافة مستخدم جديد (غير منضم) 3- نموذج التعديل والحذف(منضم) ويمكن جمع الثاني والثالث في نموذج واحد .. ولكن الفصل افضل

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

بالنسبة للهمزات هذا يفي بالغرض ... نضعه في الاستعلام name2: Replace(Replace(Replace(Replace(Replace(Replace([tabeNames].[name1];'أ';'ا');'إ';'ا');'ة';'ه');'ه';'ه');'ى';'ي');'ي';'ى') على اعتبار name1 هو حقل الاسم في الجدول

لا اعلم ما فائدة الاخفاء ! تصوري يكون حقل الرقم السري ظاهر دوما .. ومطلوب من اجل الاضافة .. ايا كانت الاضافة والرقم السري هذا =كلمة مرور المستخدم وبكذا نتخلص من الرقم السري الجامد اللي وضعناه في الكود ايضا مادام المستخدم كاشير ومحاسب فالاولى تشفير كلمة المرور في الجدول ، لأنه في وضعك الحالي يمكن كشف كلمة المرور من الجدول وازالة النجوم ارى ان النجوم من اجل ماحد يعرفها وانت تكتبها .............. على كل حال تم تحقيق طلبك ، والحقل سيظهر في الأسفل لاحظ اني غيرت في مصدر بيانات النموذج ( جعلته غير منضم ) .. والبيانات الجديدة يتم الحاقها عدد المستخدمين2.rar

السلام عليكم عند ابي جودي لا تجد بابا مغلقا.. ما شاء الله لا قوة الا بالله وحقيقة بالنسبة لي اتحسس من كثرة الوحدات النمطية والاكواد في البرنامج وحينما تصفحت المرفق جت على بالي فكرة بدائية بسيطة وايضا هي تلغي الصندوق inputbox وهذه الفكرة كالتالي : لو وضعنا كلمة مرور المسؤول في حقل اساسي ظاهر بمعنى : قبل تسجيل مستخدم جديد يكون في الأعلى حقل باسوورد خاص بالمسؤول عن الاضافة يتم ادخاله قبل التسجيل . اذا هو باسوورد المسؤول الأول .. تتم الاضافة بدون قيد او شرط ( عدا بعض الشروط الأساسية ) اما اذا الباسوورد غيره .. فيتم تطبيق الشروط كاملة

لديك اخطاء في تسمية الحقول منها : 1- استخدام كلمة Date وهذه الكلمة محجوزة ضمن دوال اكسس ومن الخطأ تسمية الحقل بها 2- ترك مسافات فارغة بين الكلمات في التسمية لا يستحسن استخدام نوع الحقل محسوب في الجدول لحقول يتم عليها عمليات مستقبلا .. وانما نستخدمها في اضيق الحدود ...................... تم تحقيق طلبك بعمل دالة تأخذ قيمة الحقل المحسوب من آخر سجل في الجدول ثم جعلنا هذه الدالة قيمة افتراضية لحقل Stock_Ltrs ايضا تم تغيير عرض النموذج الى مفرد من اجل الضبط 551.rar

اخي الكريم طلبت منك ارفاق محاولاتك وانت لم تحاول حتى ولا 1% انت فقط سحبت النموذج والتقرير من المثال في الموضوع الذي اشرت اليه النموذج في المرفق الحالي يطلب 3 نماذج فرعية مرتبط بها وهذه النماذج غير موجودة انت تريد تقرير .. والتقرير لا يتم صنعه الا بوجود مشروع مكتمل

طبعا لا بد من وجود علاقة بين الجدولين وتصميمك للحقول صحيح Database3.rar

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

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

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