[ تمت الإجابة ] اضافة الصورة في التقرير

بالنسية لإظهار العمر غير الكود اللي عندك بالكود التالي :

Private Sub تاريخ_الميلاد_AfterUpdate()
age = DateDiff("yyyy", [تاريخ_الميلاد], Now()) + _
			Int(Format(Now(), "mmdd") < Format([تاريخ_الميلاد], "mmdd"))

End Sub

Private Sub تاريخ_الميلاد_Click()
age = DateDiff("yyyy", [تاريخ_الميلاد], Now()) + _
			Int(Format(Now(), "mmdd") < Format([تاريخ_الميلاد], "mmdd"))

End Sub

أما بالنسبة لعرض الصور في التقرير أدخل على هذا الرابط وأن شاء الله بيفيدك .

/index.ph...=169781&hl=

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكراً لك اخي الكريم

بخصوص تاريخ الميلاد الحمد لله 100% زبط

بس المشكلة ضلت ظهور الصورة بالتقرير جربت الامثله ولكن لم تزبط معب

اذا ممكن تساعدني بالمثال

وشاكرين حسن تعاونكم معنا

وعليكــم السـلام ورحمة الله وبركاتـه..

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكراً لك اخي الكريم

بخصوص تاريخ الميلاد الحمد لله 100% زبط

بس المشكلة ضلت ظهور الصورة بالتقرير جربت الامثله ولكن لم تزبط معب

اذا ممكن تساعدني بالمثال

وشاكرين حسن تعاونكم معنا

وعليكــم السـلام ورحمة الله وبركاتـه..

أخي الفاضل

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

السلام عليكــم ورحمـة الله وبركاتــ

تفضل اخي الكريم

personal.rar

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخي الفاضل

لقد وقعت في عدة اخطاء أحب ان اشرحها لك

أولاً :- لقد كتبت بعض حقول الجدول باللغة العربية وطبعا هذا خطأ فادح في تصميم الجداول ويسبب هذا الكثير من الاخطاء خاصة في كتابة الكود

لذلك تم تغيير اسم الحقل مسار الصورة الي TXTIMG

ثانياً :- لقد اضفت مربع نص داخل التقرير لاظهار الصورة بداخلة وهذا طبعا خطأ فهناك في صندوق الادوات اداه مخصصة لعرض الصور يجب ان تضيفها لعرض الصورة كما تشاهد

ثالثاً:- بعد اضافة الاداه كما تشاهد علي التقرير يتم اضافة حقل TXTIMG علي التقرير ثم نقوم بكتابة الكود في حدث التنسيق

Private Sub ]Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.img.Picture = Me.ImagePath
End Sub

مرفق ملفك بعد التعديل

personal.rar

شكراً لك اخي الكريم

وبارك الله فيكي