abofayez1

الله يبيض وجهك ويجزيك الجنة شكرا لك يا عزيزي

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

السلام عليكم المطلوب عرض التقرير للصف المحدد في مربع التحرير والسرد ما هو الخطأ الذي وقعت فيه؟ 444.accdb

جزاك الله خيرا وبارك فيك

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

شكرك أستاذ Foksh لكن هذا لا يجيب عن تساؤلي لعل الله يفتح علي بخبير يساعدني وفق الله الجميع

السلام عليكم ارجو المساعدة في تعديل هذا لكود والله لي أسبوع أو أكثر ولم أتمكن من التعديل الصحيح.... المشكلة تكمن في دالة التكرار ... __مرسال الواتسأب.accdb

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

وجزاك خيرا ياعزيزي

الأخوة الأفاضل: السلام عليكم وجدت هذا الموقع بالصدفة وبه مجموعة من الأكواد والشروحات لعل البعض يستفيد منها . https://www.isladogs.co.uk/code-samples/index.html

نعم هذا هو المطلوب ... الخيار الثاني بيض الله وجهك ورفع قدرك ----------------------------------------------------------- اليوم رديت عليك مباشرة ولكن الآن ما لقيت الرد . وفقك الله ياعزيزي

المطلوب أن يقوم الكود بحذف كل الجداول ما عدا الجدول المسمى 11 أو 22 لا يتم حذفها هلا تكرمت بالتعديل على الكود لأن ما عندي خبرة كافية في التعديل أستاذننا الغالي الكود هذا يقوم بحذف السجلات وليس الجداول

رائع .. الله يوفقك ويحفطك أستاذنا موسى ويبارك فيك

''Tables For idx = db.TableDefs.Count - 1 To 0 Step -1 strName = db.TableDefs(idx).Name If Left(strName, 4) <> "msys" Then db.TableDefs.Delete strName Else Debug.Print strName End If Next idx أساتذتنا الكرام السلام عليكم ....وبعد: هذا الكود جزء من دالة تقوم بحذف كل محتويات قاعدة البيانات ... وهذا الجزءالخاص بالجداول... لنفترض أن لدي جدولين : مثلا احدهما باسم 111 والثاني باسم 222 هل يمكن نعمل لهما استناء بحيث لا يتم حذفهما وكيف نعدل على الكود إن كان ذلك ممكنا ؟ إن أردتم إرفاق الدالة كاملة سأرفقها وهي موجودة وأخذتها من المنتدى. جزاكم الله خير

الله يفتح عليك أستاذ محمد ويجزيك خير الجزاء ممتاز

أستاذ محمد ظهرت لي نفس الرسالة السابقة لكن هنالك ملاحظة : إذا كان لا يوجد للموظف سجلات وأريد كتابة سجل إريده أن ييسمح لي بالكتابة لكن لو كانت هناك سجلات سابقا ؤأدخلت سجل مكرر أريد تظهر لي رسالة التحذير يعني باختصار أريد تحذير عند التكرار فقط والسماح فيما عدا ذلك بما فيها ادخال السجلات الجديدة

الأخوة الكرام السلام عليكم ورحمة الله استخدمت هذا الكود لمنع التكرار في النموذج الفرعي وهو يعمل بشكل ممتاز إن كان هناك سجلات لكن إن لم يكن هناك سجلات تظهر هذه الرسالة : لا يوجد سجل حالي Run time Error 3021 فما الحل ؟ الكود : Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!ymd = Me.ymd Then MsgBox "تاريخ الغياب مكرر" Cancel = True Exit Do End If rst.MoveNext Loop rst.Close db.Close End Sub

وفقك الله وبارك فيك

أستاذنا أبو خليل لو كان التاريخ الهجري في مربع تحرير وسزد كيف سيكون الكود؟

الله يحفظك أستاذنا أبو خليل ويطول عمرك ويبارك لك في حلالك ويصلح لك ذريتك 100%

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

الطرق المذكورة في المشاركات تعمل على برامج الاكسس بصيغة mdb و accdb فقط كما ذكروا ذلك في المشاركات ولا تعمل مع فواعد البيانات بامتداد accde

إ إخواني الأفاضل ... السلام عليكم ورحمة الله إذا كانت قاعدة البيانات بصيغة accde فهل هناك حل لحفض نسبة الأمان ؟ بحيث يصل العمل أو المشروع للعميل يعمل بشكل جميل بدون تدخل منه في خفض أمان الأكسس . فالكثير من العملاء والمستخدمين لا يدري كيف يقوم بخفض الأمان . قرأت الكثير ولم أجد الحل بالنسبة لهذا النوع من قواعد البييانات وهي مهمة جدا لكون حمايتها عالية . وفقكم الله

نعم ... هذا ما أريد جزاك الله جنات التعيم

تفضل أستاذي هذا مثال نموذج Frm1 55.accdb