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

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم اساتذتي الكرام

لدي مشكلة ظهور رموز الخطأ عند طباعة التقرير علما ان النتائج ناتجة من فورم اخر a2 وبه مربعات نص n1/n2/n3/n4

كما في الصورة

image.png.1df4784ac7cc37674e3b6eda1c8a8af4.png

ارجو المساعدة اساتذي الكرام

 

تم تعديل بواسطه كريمو2
قام بنشر

الملف شغال تمام 
VXlgMXL.png

 

كل الملاحظات ال ظهرت معايا تخص الاكواد 

بدلة جميع الجمل من 

Declare Function

الى

Declare PtrSafe Function

 

اما الباقى فيعمل عادي معي 

لا ارى اى ملاحظات بخلاف الحقل الذى تحت اسم الام

حقل يشير الى جدول غير موجود هنا

قام بنشر (معدل)
22 دقائق مضت, عمر ضاحى said:

كل الملاحظات ال ظهرت معايا تخص الاكواد 

بدلة جميع الجمل من 

Declare Function

الى

Declare PtrSafe Function

كيف واين يتم تغيير الاكواد في الوحدات النمطية

للعلم ان الخطا يظهر عند الطباعة وليست المعاينة

 

 

 

 

تم تعديل بواسطه كريمو2
قام بنشر

هل من ايجاد حل

لقد وجدت شبه حل وهو عند الدخول على التقرير لا نغلق الفورم A2

قام بنشر
2 ساعات مضت, كريمو2 said:

لقد وجدت شبه حل وهو عند الدخول على التقرير لا نغلق الفورم A2

هل نفع معك الحل ؟؟

قام بنشر

اوفغت كود الخروج

 'DoCmd.Close acForm, "A2"

لا لم ينفع معي اريد غلق الفورم a2  عند الدخول على التقرير Face4

كيف لي ان اعدل في الكود

Private Sub أمر15_Click()
Dim Cr As String
    Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.IDM)
    If Cr = 1 Or Cr = 2 Or Cr = 3 Then
    stDocName = "FACE4"
    DoCmd.OpenReport stDocName, acPreview
    Abou_Taha (stDocName)
    'DoCmd.Close acForm, "A2"
    Else
        MsgBox "هذه الزوجة متوفيه"
    DoCmd.Close acForm, "A2"
 
    End If

End Sub

 

قام بنشر

من اين يأخذ النموذج A2 بياناته؟

على كل حال استخدم الدالة TempVars قبل اغلاق النموذج لكل سجل كي يحتفظ بالبيانات 

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

قام بنشر
22 دقائق مضت, Eng.Qassim said:

من اين يأخذ النموذج A2 بياناته؟

على كل حال استخدم الدالة TempVars قبل اغلاق النموذج لكل سجل كي يحتفظ بالبيانات 

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

شكرا لك استاذ فسيم على المساعدة

بيانات النموج  A2 عير منظمة اي تكتب ولا تحفظ  و لا تأحذ بياناتها من اي جهة

اما بخصوص استخدم الدالة TempVars قبل اغلاق النموذج لكل سجل كي يحتفظ بالبيانات 

وعند فتح التقرير اجعله مصدر بيانات الحقول 

اين نسنخدم وياريت توضيح او التعديل على المرفق

قام بنشر
15 دقائق مضت, Eng.Qassim said:

تفضل التعديل

 

20231002.rar 134.72 kB · 1 download

شكرا استاد قسيم على المساعدة

بقي مشكل 

عدم ظهور بطاقة التعريف الوطنية كما في الصورة

بالرغم اني زدت في الدالة ولكن بقت المشكلة

    TempVars("Reporte_Title") = Reporte_Title.Value

 

111.png.52cb48569b67d1868768477ea30cecfe.png

 

قام بنشر

النتيجة خاطئة يا استاذ خليفة

ملاحظة : النتيجة تكون صحيحة مع الطباعة وليست مع المعاينة

7.png.6d2add21b5eb2fa78c27ac81d969318f.png

 

قام بنشر

اخونا الكريم ، بعد تحميل الملف المرفق في اول مشاركة ، كل الأمور تعمل بشكل طبيعي باستثناء البلدية التابع لها الزوجة ؛ ففي الملف الجدول في حقل يبحث عن البلدية التابع لها الزوجة في هذا الكود :-

=DLookUp(" [N_C] ","Tbl_Name")

الجدول غير موجود في المرفق ، فقط لا غير .

تابع الفيديو للتوضيح .

 

 

20231003_172324.zip

قام بنشر (معدل)
16 ساعات مضت, Foksh said:

اخونا الكريم ، بعد تحميل الملف المرفق في اول مشاركة ، كل الأمور تعمل بشكل طبيعي باستثناء البلدية التابع لها الزوجة ؛ ففي الملف الجدول في حقل يبحث عن البلدية التابع لها الزوجة في هذا الكود :-

=DLookUp(" [N_C] ","Tbl_Name")

الجدول غير موجود في المرفق ، فقط لا غير .

تابع الفيديو للتوضيح .

 

 

20231003_172324.zip 1023.47 kB · 1 download

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

تم تعديل بواسطه كريمو2
قام بنشر
4 ساعات مضت, كريمو2 said:

تم حذف الجدول

أخوي الغالي ، تم حذف الجدول ، ولكن هذا الحقل مصدره يبحث عن قيمة داخل الجدول ( المحذوف !! ) ، فكيف ذلك ؟؟

قام بنشر (معدل)
11 دقائق مضت, Foksh said:

أخوي الغالي ، تم حذف الجدول ، ولكن هذا الحقل مصدره يبحث عن قيمة داخل الجدول ( المحذوف !! ) ، فكيف ذلك ؟؟

الجدول المحذوف ليست له علاقة بما هو مطلوب في التقرير

لاحظ الي عليها اللون الاحمر مصدرهن الجدول المحذوف

وانا اعرف لما حذفته المشكلة في؟#Name

1210556776_.png.ddf6a9fcb252813bdc7b8ec0084af44e.png

 

تم تعديل بواسطه كريمو2
قام بنشر (معدل)

حاول استبدل نسخة الأوفيس ، فلا مشكلة في المرفقات التي تم ارفاقها بالردود .

الاوفيس عندك 32 ، وانا عندي 64 ؛ وحتى مع تعديل الكود في الـ VBA فلا توجد اي مشكلة 

دمتم صديقي

تم تعديل بواسطه Foksh

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information