عفرنس

السلام عليكم في هذا الكود أريد بعد إضافة البيانات يفرغ الحقول . If Len(Me.ZTeacher & "") = 0 Then 'المعلم MsgBox "فضلا أدخل اسم المعلم" Me.ZTeacher.SetFocus Exit Sub ElseIf Len(Me.Zday & "") = 0 Then 'اليوم MsgBox "فضلا أدخل اليوم" Me.Zday.SetFocus Exit Sub ElseIf Len(Me.ZDate & "") = 0 Then 'التاريخ MsgBox "فضلا أدخل التاريخ" Me.ZDate.SetFocus Exit Sub ElseIf Len(Me.ZProduct & "") = 0 Then 'الصنف MsgBox "فضلا أدخل الصنف" Me.ZProduct.SetFocus Exit Sub ElseIf Len(Me.ZA2 & "") = 0 Then 'العدد MsgBox "فضلا أدخل العدد" Me.ZA2.SetFocus Exit Sub ElseIf Len(Me.ZA3 & "") = 0 Then 'ملحوظة MsgBox "فضلا أدخل الملحوظات" Me.ZA3.SetFocus Exit Sub End If Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Stationary_Table.*FROM Stationary_Table;") Rs.AddNew Rs("Teacher") = Me.ZTeacher.Column(1) Rs("Product") = Me.ZProduct.Column(1) Rs("A2") = Me.ZA2.Column(1) Rs("day") = Me.Zday Rs("idate") = Me.ZDate Rs("A3") = Me.ZA3 Rs.Update Rs.Close Me.Requery Beep MsgBox ("تم إضافة البيانات بنجاح"), , "مبروك" End Sub

@jjafferr @kha9009lid @أحمد الفلاحجى الحمد لله رب العالمين أساتذتي الفضلاء شكر الله لكم .. أصبحت الأمور على خير ما يرام ..

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

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

@أحمد الفلاحجى @kha9009lid شكر الله لكما سأجرب بعد التعديلات البرنامج وأوافيكم بالنتائج ..

الأخ @أحمد الفلاحجى بعد تعديلك الأخير وفي حال اختيار معلم لا يوجد له بيانات يمكن طباعتها من زر فتح pdf تظهر هذه الرسالة

أين يتم وضع الكود . أستاذ خالد ؟؟ في التقرير ؟؟

@jjafferr جزاك الله خيرا يا معلم . أما هذه فمعلومة جديدة لم أعرفها من قبل .. وأما الكود ففيه أمران : الأول : الذي عدلته أستاذ جعفر هو المطلوب . . وأما الثاني : فهو الذي نبه عليه الأستاذ @kha9009lid وهو : ( في حال اخترت معلم لايوجد له أو عنه ملاحظات ، حفظه لي pdf باسم المعلم الذي له ملاحظات في التقرير ) . ولم أكن أنتبه لها بعد . لذلك لازم نلغي هذه المصيبة . بحيث تظهر لي نفس الرسالة التي تظهر في حال المعاينة قبل الطباعة . وهذه صورتها . أرجو أن أكون وفقت في إيصال المقصود . وشكر الله لكم جميعا @jjafferr @kha9009lid@أحمد الفلاحجى

يمكن خاف أقول ( عروسة ) تقبل الله منا ومنك بانتظارك

التقرير مغلق وأغلقت البرنامج ونفس المشكلة أزلت تعديلك الأخير وحفظ تمام ..

أخي أحمد جزاك الله خيرا .. التعديل المطلوب تمام لكنه لم يعد يحفظ في حال لم يكن التقرير موجود مسبقا .

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

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

جزاك الله خيرا أستاذ شيفان .. الكود تمام .. لكن أريد إضافة بسيطه . أريد في رسالة ( الملف محفوظ من قبل ) يعطيني سؤال ( هل تريد استبدال الملف ) نعم / لا .

اللهم ارزقنا مساعدة الأستاذ jjafferr

أنا ما زلت أبحث وبييسره الله ..

أخي أحمد : في حال كان التقرير محفوظ كيف استطيع اضافة رسالة تنبيه ؟؟

مع زحمة الشغل لازم نلطف الأجواء لبعضنا .. هههههههههههههه

شكر الله لك .

بالضبط هذا ما أريده ولك أحلى عروسه جزاك الله خيرا ..

أرغب في حفظ التقرير باسم المعلم بصيغة PDF حاولت فما أفلحت .. Library.rar

تم حل المشكلة بنجاح...

DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", acFormatPDF, ("تقرير المصروفات فردي1" & Format(Now(), "mmmyyyy") & ".pdf"), True الكود بالطريقة أعلاه .. أين أضيف الكود الذي تقصد ؟

السلام عليكم ورحمة الله . DoCmd.OutputTo acOutputReport, "ÊÞÑíÑ ÇáãÕÑæÝÇÊ ÝÑÏí1", acFormatPDF, ("ÊÞÑíÑ ÇáãÕÑæÝÇÊ ÝÑÏí1" & Format(Now(), "mmmyyyy") & ".pdf"), True لدي الكود أعلاه يفتح التقرير بصيغة PDF أيضا يحفظ التقرير مباشرة في المستندات . طلبي : لا أريد أن يحفظ لي التقرير في المستندات مباشرة .. أريد أن يحفظه لي في نفس مجلد البرنامج .

ارفق ملفك