حفظ التقرير باسم المعلم

[عفرنس]

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

Library.rar

[أبوبسمله]

وعليكم السلام

اخى فايز اطلع على المرفق هل هذا ما تريد؟

تقبل تحياتى

ly.rar

[عفرنس]

7 دقائق مضت, أحمد الفلاحجى said:

وعليكم السلام

اخى فايز اطلع على المرفق هل هذا ما تريد؟

تقبل تحياتى

ly.rar 551.07 kB · 0 تنزيلات

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

جزاك الله خيرا .. 

[kha9009lid]

1 دقيقه مضت, فايز.. said:

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

هههههه انت كذا دعيت عليه 😃

[أبوبسمله]

الحمدلله الذى بنعمته تتم الصالحات

ههههههههههههههه طب الحمد لله ان مفيش ام بسمله والا كنا هنتضرب سوا 😀

عدل الكود للتالى

Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
DoCmd.OutputTo acOutputReport, "ÊÞÑíÑ ÇáãÕÑæÝÇÊ ÝÑÏí1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X

بالتوفيق ان شاء الله اخى فايز

1 دقيقه مضت, kha9009lid said:

هههههه انت كذا دعيت عليه 😃

حصل هو انا هعيده تانى ابدا ههههههههههههههههههههه

 

[kha9009lid]

1 دقيقه مضت, أحمد الفلاحجى said:

حصل هو انا هعيده تانى ابدا ههههههههههههههههههههه

عَنْ عَبْدِ اللهِ بْنِ عَمْرٍو، أَنَّ رَسُولَ اللهِ صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ، قَالَ: الدُّنْيَا مَتَاعٌ، وَخَيْرُ مَتَاعِ الدُّنْيَا الْمَرْأَةُ الصَّالِحَةُ

الله يصلح لنا ولكم

[عفرنس]

3 دقائق مضت, أحمد الفلاحجى said:

الحمدلله الذى بنعمته تتم الصالحات

ههههههههههههههه طب الحمد لله ان مفيش ام بسمله والا كنا هنتضرب سوا 😀

عدل الكود للتالى

Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
DoCmd.OutputTo acOutputReport, "ÊÞÑíÑ ÇáãÕÑæÝÇÊ ÝÑÏí1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X

بالتوفيق ان شاء الله اخى فايز

حصل هو انا هعيده تانى ابدا ههههههههههههههههههههه

 

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

[أبوبسمله]

2 دقائق مضت, kha9009lid said:

عَنْ عَبْدِ اللهِ بْنِ عَمْرٍو، أَنَّ رَسُولَ اللهِ صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ، قَالَ: الدُّنْيَا مَتَاعٌ، وَخَيْرُ مَتَاعِ الدُّنْيَا الْمَرْأَةُ الصَّالِحَةُ

الله يصلح لنا ولكم

عليه افضل الصلاه والسلام صدق رسول الله صل الله عليه وسلم

اللهم آمين

جزاك الله خيرا اخى واستاذى خالد واسعد الله اوقاتكم كلها بذكره ورضوانه وانا يجمعنا ويظلنا يوم لا ظل الا ظله

[عفرنس]

6 دقائق مضت, أحمد الفلاحجى said:

عليه افضل الصلاه والسلام صدق رسول الله صل الله عليه وسلم

اللهم آمين

جزاك الله خيرا اخى واستاذى خالد واسعد الله اوقاتكم كلها بذكره ورضوانه وانا يجمعنا ويظلنا يوم لا ظل الا ظله

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

[أبوبسمله]

11 دقائق مضت, فايز.. said:

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

هبحث معك عن طريقه لانى مش عارف هتنفع ولا لاء

وان شاء الله احد اخواننا واساتذتنا يساعدنا فالمعلومه دى

[عفرنس]

15 دقائق مضت, أحمد الفلاحجى said:

هبحث معك عن طريقه لانى مش عارف هتنفع ولا لاء

وان شاء الله احد اخواننا واساتذتنا يساعدنا فالمعلومه دى

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

[عفرنس]

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

  اقتباس

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

   

   

[Shivan Rekany]

2 ساعات مضت, فايز.. said:

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

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

Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
MsgBox "هناك ملف محفوظ من قبل"
Else
DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End If

 

[أبوبسمله]

8 دقائق مضت, Shivan Rekany said:

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

Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
MsgBox "هناك ملف محفوظ من قبل"
Else
DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End If

 

اهلا ومرحبا استاذ شيفان

جزاك الله خيرا

[Shivan Rekany]

4 دقائق مضت, أحمد الفلاحجى said:

اهلا ومرحبا استاذ شيفان

جزاك الله خيرا

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

[عفرنس]

2 ساعات مضت, Shivan Rekany said:

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

Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
MsgBox "هناك ملف محفوظ من قبل"
Else
DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End If

 

جزاك الله خيرا أستاذ شيفان .. الكود تمام .. لكن أريد إضافة بسيطه . 

أريد في رسالة ( الملف محفوظ من قبل ) يعطيني سؤال ( هل تريد استبدال الملف ) نعم / لا . 

تم تعديل أبريل 5, 2020 بواسطه فايز..

[أبوبسمله]

15 ساعات مضت, فايز.. said:

جزاك الله خيرا أستاذ شيفان .. الكود تمام .. لكن أريد إضافة بسيطه . 

أريد في رسالة ( الملف محفوظ من قبل ) يعطيني سؤال ( هل تريد استبدال الملف ) نعم / لا . 

اتفضل اخى فايز

Private Sub f1_Click()
Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
    If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
    Else
    DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End If
End If
End Sub

بالتوفيق ان شاء الله

[عفرنس]

2 ساعات مضت, أحمد الفلاحجى said:

اتفضل اخى فايز

Private Sub f1_Click()
Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
    If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
    Else
    DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
End If
End If
End Sub

بالتوفيق ان شاء الله

أخي أحمد جزاك الله خيرا .. 

التعديل المطلوب تمام

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

[أبوبسمله]

واياكم اخى فايز

اذا كنت فاتح التقرير وانت بتجرب اغلقه وجرب مره اخرى ووافنا بالنتيجه

[عفرنس]

التقرير مغلق وأغلقت البرنامج ونفس المشكلة 

أزلت تعديلك الأخير وحفظ تمام .. 

[أبوبسمله]

التعديل الاخير كان يعمل لدى بشكل جيد والان لا

سوف اراه بعد الافطار ان شاء الله

 

 

[عفرنس]

2 دقائق مضت, أحمد الفلاحجى said:

التعديل الاخير كان يعمل لدى بشكل جيد والان لا

سوف اراه بعد الافطار ان شاء الله

 

 

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

تقبل الله منا ومنك 

بانتظارك

[kha9009lid]

اخي @أحمد الفلاحجى

اعتقد ان هناك خطأ في التقرير او انني لم افهم المطلوب

الغلط ليس في عملية حفظ التقرير باسم الموظف لكونه يحفظ بشكل صحيح ولكن في محتوى الملف بعد الحفظ

مثلا حفظ تقرير للموظف خالد مريف وتقرير باسم فيصل الكلثم وكل شي تمام

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

 

[jjafferr]

السلام عليكم 🙂

 

21 ساعات مضت, فايز.. said:

اللهم ارزقنا مساعدة

 

اخي فايز ، اذا اردت ان تسرعي انتباه احد الاعضاء ، بحيث يحصل العضو على رسالة ، فالطريقة هي :

اكتب العلامة @ ومسافة ، وتكتب اسم العضو ، فترى الاسماء تأتيك ، ومنها تختار الاسم الصحيح. مثلا اذا اردت ان اذكرك: @فايز..

 

اما بالنسبة للكود ، ففيه خطأ ، والتعديل هو (السر في التعديل هو التنسيق ، فلما تعمل التنسيق مثل ما عملت انا ، بداية الامر ونهايته تكون واضحة) :

Private Sub f1_Click()
Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
  
    If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
    Else
        DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
    End If

else
     DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X          
End If
           
End Sub

.

 

اخي @Shivan Rekany طالت الغيبة ، والحمدلله شفنا لط طلّه 🙂

 

جعفر

 

[عفرنس]

32 دقائق مضت, jjafferr said:

السلام عليكم 🙂

 

 

اخي فايز ، اذا اردت ان تسرعي انتباه احد الاعضاء ، بحيث يحصل العضو على رسالة ، فالطريقة هي :

اكتب العلامة @ ومسافة ، وتكتب اسم العضو ، فترى الاسماء تأتيك ، ومنها تختار الاسم الصحيح. مثلا اذا اردت ان اذكرك: @فايز..

 

اما بالنسبة للكود ، ففيه خطأ ، والتعديل هو (السر في التعديل هو التنسيق ، فلما تعمل التنسيق مثل ما عملت انا ، بداية الامر ونهايته تكون واضحة) :

Private Sub f1_Click()
Dim X As String
X = Me.ZTeacher2.Column(1) & ".pdf"
If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then
  
    If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then
        DoCmd.CancelEvent
    Else
        DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X
    End If

else
     DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X          
End If
           
End Sub

.

 

اخي @Shivan Rekany طالت الغيبة ، والحمدلله شفنا لط طلّه 🙂

 

جعفر

 

@jjafferr جزاك الله خيرا يا معلم . 

أما هذه 

اقتباس

خي فايز ، اذا اردت ان تسرعي انتباه احد الاعضاء ، بحيث يحصل العضو على رسالة ، فالطريقة هي :

اكتب العلامة @ ومسافة ، وتكتب اسم العضو ، فترى الاسماء تأتيك ، ومنها تختار الاسم الصحيح. مثلا اذا اردت ان اذكرك: @فايز..

فمعلومة جديدة لم أعرفها من قبل .. 

وأما الكود ففيه أمران :

الأول : الذي عدلته أستاذ جعفر هو المطلوب . . 

وأما الثاني : فهو الذي نبه عليه الأستاذ @kha9009lid وهو : ( في حال اخترت معلم لايوجد له أو عنه ملاحظات ، حفظه لي pdf باسم المعلم الذي له ملاحظات في التقرير ) . ولم أكن أنتبه لها بعد . 

لذلك لازم نلغي هذه المصيبة . بحيث تظهر لي نفس الرسالة التي تظهر في حال المعاينة قبل الطباعة . وهذه صورتها . 

أرجو أن أكون وفقت في إيصال المقصود . 

وشكر الله لكم جميعا @jjafferr @kha9009lid@أحمد الفلاحجى