ابوخليل

السلام عليكم عند ابي جودي لا تجد بابا مغلقا.. ما شاء الله لا قوة الا بالله وحقيقة بالنسبة لي اتحسس من كثرة الوحدات النمطية والاكواد في البرنامج وحينما تصفحت المرفق جت على بالي فكرة بدائية بسيطة وايضا هي تلغي الصندوق 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

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

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

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

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

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

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