ابوخليل

كما وضحت لك subject ( الموضوع ) مكرر ثلاث مرات غالبا الرسالة تشتمل على التالي : من : بريد المرسل الى : بريد المرسل اليه الموضوع : نص الرسالة : الموضوع سيصبح هكذا : .subject = "شهادة / مدرسة المستقبل الخاصة لغات" .subject = Me.myname----- احذف هذا .subject = Me.sub ------ احذف هذا ويمكن جعل اسم المدرسة هي قيمة الحقل Me.myname هكذا : .subject = "شهادة" & " " & "/" & " " & Me.myname

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

المرفق تم تحزيمه ويحتاج تنصيب على الجهاز اذا برنامجك اكسس ، ارفق قاعدة البيانات فقط ، ويكفي ان يوجد بها كائنات حسب حاجتك فقط

قيمة الحقل myname معروف ويظهر داخل الكود = مدارس المستقبل الخاصة لغات يبدو لديك خلل بتكرار subject حيث يتم اخذ آخر قيمة وهي = me.sub

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

فعلا انا اعمل الآن لارسال شهادات حلقات تحفيظ الى اولياء الامور عبر الواتس توقفت عند ارسال التقرير (الشهادة) ، وما زلت احاول اذا جد جديد لدي وتوصلت الى الحل وضعته لك هنا او لعل احد الاخوة لديه الحل فنستفيد منه جميعا

شكرا على المعلومة على كلامك يفهم انها لا توجد في اوفيس 13 او 10 او 7 او القديم النديم 2003 .. الاخير هذا انا متأكد انها غير موجودة

تفضل الخلل هو ان الكود المسؤل عن جلب القيمة داخل الحقل يجلبها من الحقل الرقمي في النموذج 1081.rar

كنا نتحايل عليه نحوله الى مربع تحرير ثم نعطيه خاصية التوسيط ثم نرجع نحوله الى مربع قائمة

نعم هي تعمل عادي ولست بحاجة الى تغيير الكل لان المستدات او الصور تفتح وفي الوقت نفسه يتغير المسار للجديد بالنسبة للمشكلة هي من حقل id في النموذج الفرعي ( مخفي ) يبدو فيه مشكلة لاني نسخته من حقل آخر المهم اني حذفته واستبدلته بحقل جديد نسيت في اجابتي السابقة ان اخبرك باني اضفت حقل ترقيم تلقائي في جدول 2 جرب الآن انقل المثال الى اي جهاز وجرب ثم وافني بالنتيجة التراخيص4.rar

انا معك في فكرتك السابقة واللي فهمته منها : تعديل المسار للموقع الافتراضي لحظة ادراج الصورة ويتم هذا في كود الادراج

تمام اخوي موسى وهذا اللي يعمله الكود ، ولكن يعملها بقيمة متغير غير محفوظة ، ولاحظ ان لديه صور سابقة يريد فتحها ، موجودة فعلا في مجلدات البرنامج ولكن مساراتها في الجدول مختلفة تم عمل اللازم .. عند فتح الصورة يتغير مسارها في الجدول الى المسار الجديد وذلك بتحديث قيمة الحقل في الجدول بقيمة المتغير " ii " الذي يحمل قيمة المسار الجديد الرقم 1 ( المستوى الأول ) يعني المجلد الاقرب لملف الصورة اي المجلد الذي بداخله الصور والرقم 2 ( المستوى الثاني ) هو المجلد الذي قبله وهو الظاهر بجانب قاعدة البيانات فلو لديك مجلد ثالث بجانب قاعدة البيانات بداخله مجلدات فلا يحتاج التعديل على الكود لأنه بنفس المستوى اما لو لديك 3 مجلدات متداخلة هنا يلزم اضافة سطر يحمل المستوى الثالث تفضل المرفق بعد التعديل التراخيص3.rar

اهلا وسهلا اخي العزيز موسى اعانك الله ووفقك الرجل المناسب في المكان المناسب

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

تمام انا مثلك بالضبط .. لان الخطأ وارد وايضا انا اكتب بعض الكلمات بتنسيق معين كحروف كبيرة في وسط الكلمة ..

لاحظ انك لن تغير في المسارات والروابط في الجدول ما دامت مجلدات الملفات بجانب قاعدة البيانات فيمكنك نقل البرنامج الى اي جهاز او اي قسم داخل الجهاز نفسه العملية عبارة عن التالي : اقتطاع جزء من المسار الموجود في الجدول وهذا الجزء عبارة عن : اسم الملف / المجلد الأول / المجلد الثاني ثم نضيف اليه مسار هذه المجلدات الافتراضي طبعا سيبقى المسار في الجدول كما هو وانما نمرر المسار الجديد متغيرين عامين' Dim getfldr1, getfldr2 As String ' لاستخراج اسم الملف من الرابط الموجود في الجدول Dim i, ii i = Right(Me.LetterLink, Len(Me.LetterLink) - InStrRev(Me.LetterLink, "\")) 'استخراج اسم المجلد المباشر للملف واسم المجلد الذي قبله Dim fileName As String fileName = Me.LetterLink Dim vPathSplitter As Variant vPathSplitter = Split(fileName, "\") getfldr1 = (vPathSplitter(UBound(vPathSplitter) - 1)) getfldr2 = (vPathSplitter(UBound(vPathSplitter) - 2)) تمرير المسار الجديد' ii = CurrentProject.path & "\" & getfldr2 & "\" & getfldr1 & "\" & i فتح الملف' Application.FollowHyperlink ii التراخيص2.rar

برنامجك بحاجة الى عملية جراحية خاصة سوف اوافيك بالحل ان شاء الله

الله يسعدكم ههههه اذا لا يلام حمدي في عدم اكتشاف الخلل

عليكم السلام انت مخطىء بكتابة اسم الفورم في المعيار انت كتبته هكذا : [Forms]![From1]![ID] الصحيح هكذا [Forms]![Form1]![ID]

اذا تريد تعدله يجب عليك اولا تعديل نوع الحقل SpecialtyID في جدول Specialty الى نصي ثم اكتب الارقام 01 ، 02 وهكذا ... ثم ارجع الى الكود و عدل السطر كما كان في اول مشاركة :

تفضل ولكن عندي لك نصائح تخص التسميات لا بد ان تنتبه لها مستقبلا - تجنب تسمية الحقول او الكائنات باسماء محجوزة في اكسس مثل Date او اي دالة من دوال الاكسس - تجنب ترك مسافات فارغة عند التسمية في كلمتين مثلا طبعا هذه وجدتها في مثالك وقمت بتعديلها تفضل Dim i As String, x As Integer i = Format(Me.p_Date, "mmyy") x = DCount("*", "tblPatients") + 1 Me.PatientID = i & "/" & Format(Str(x), "000") ID4.rar

ابشر ولكن الفت انتباهك الى وجود خطأ غير مقصود في اول سطر من الكود السابق Dim i As String, x As Integer عدله الى : Dim i , x As Integer

الحمد لله لاحظ اني غيرت نوع حقل رقم التخصص في جدول الاطباء من نص الى رقمي

الف مبروك اخي احمد ، وتستاهل اكثر

تفضل Dim i As String, x As Integer i = Me.Specialty x = DCount("*", "tblDoctors", "[Specialty]=" & i) + 1 Me.DoctorID = i & "/" & Format(Str(x), "000") ID2.rar