عفرنس

الأخ @أحمد الفلاحجى بعد تعديلك الأخير وفي حال اختيار معلم لا يوجد له بيانات يمكن طباعتها من زر فتح 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 أيضا يحفظ التقرير مباشرة في المستندات . طلبي : لا أريد أن يحفظ لي التقرير في المستندات مباشرة .. أريد أن يحفظه لي في نفس مجلد البرنامج .

ارفق ملفك

الكود يعمل بشكل صحيح . لكنه كان عندي قبل بهذا الشكل Private Sub zer1_Click() Dim filename As Variant Dim SourceFile, DestinationFile Dim picturepaht picturepaht = GetOpenFile_CLT("", "اختر صورة :") With picturepaht If picturepaht <> "" Then Me.imgLogo.Picture = picturepaht logo = picturepaht Else MsgBox "No image selected." End If End With SourceFile = logo DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg" FileCopy SourceFile, DestinationFile MsgBox "تم تغيير الشعار" End Sub فقدمت فيه وأخرت . والسبب لأنه في حال اخترت تغيير الشعار ثم تراجعت عن التغيير تظهر رسالة ( لم يتم تغيير الشعار ثم يتلوها الرسالة الأخرى تم تغيير الشعار . فقدمت الأربعة الأسطر الأخيرة من الكود ووضعتها قبل else فلم تعد تظهر لي اللخبطة التي كانت .

من طول الغيبات جاء بالغنايم فاقدينك ..

السلام عليكم أعزائي المشاهدين . هل الكود التالي سليم من حيث ترتيبه . إذا فيه ملحوظات ياليت يتم تعديلها . Private Sub zer1_Click() Dim filename As Variant Dim SourceFile, DestinationFile Dim picturepaht picturepaht = GetOpenFile_CLT("", "اختر صورة :") With picturepaht If picturepaht <> "" Then Me.imgLogo.Picture = picturepaht logo = picturepaht SourceFile = logo DestinationFile = CurrentProject.Path & "\" & "shar" & ".jpg" FileCopy SourceFile, DestinationFile MsgBox "تم تغيير الشعار" Else MsgBox "تم التراجع عن تغيير الشعار" End If End With End Sub

بارك الله فيك .. وشكر لك .. المطلوب تم بنجاح ولله الحمد .