الصورة داخل التقرير

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

الكود الذي استعملته انت ، يعطي المسار لمحل وجود Front End (اي النسخة التي بها النماذج)

اما اذا اردت مسار Back End ،فيمكنك استعمال احد الطريقتين:

Using 'InStrRev':

Public Function GetDBPath() As String
Dim strFullPath As String
strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("tblLinked").Connect, 11)
GetDBPath = Left(strFullPath, InStrRev(strFullPath, "\"))
End Function


Not using 'InStrRev':

Public Function GetDBPath() As String
Dim strFullPath As String
strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("tblLinked").Connect, 11)

For I = Len(strFullPath) To 1 Step - 1
If Mid(strFullPath, I, 1) = "\" Then
GetDBPath = Left(strFullPath, I)
Exit For
End If
Next
End Function

جعفر

شكرا اخي العزيز  مافهمت الصراحة

ماذا  تقصد بال  'InStrRev':

واين اضع هذا الكود بالضبط  داخل التقرير

وشكرا 

****1> في المكان الذي تضع الكود اعلاه :)

اما طريقة عمل الكود:

في الوضع الحالي ، مثلا:

بدل ان يكون الكود:

=[CURRENTPROJECT].[PATH] & "\photos\" & [FilePreview] & ".JPG"

فليكن:

myPath=[CURRENTPROJECT].[PATH] & "\photos\" & [FilePreview] & ".JPG"

فبالطريقة هذه ، وضعنا المسار في myPath

اما بالنسبة الى الكود الجديد ،

فضع الكود التالي في module مستقل (حتى تستفيد منه لعرض الصور في النماذج كذلك اذا اردت) ، واحفظه باسم fGetDBPath 

Public Function GetDBPath() As String
Dim strFullPath As String
strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("tblLinked").Connect, 11)

For I = Len(strFullPath) To 1 Step - 1
If Mid(strFullPath, I, 1) = "\" Then
GetDBPath = Left(strFullPath, I)
Exit For
End If
Next
End Function

وللحصول على المسار ، يجب وضع الكود التالي (في نفس مكان الكود القديم  ****1>) ،

myPath = GetDBPath

جعفر

اخي ارجو ان تتحملني قليلا  لان الموضوع ضروري جدا

الان انا عملت وحدة نمطية جديدة   ..وضعتها في ال BACK END  لكن المحرر اعترض على عبارة  "tblLinked"

حيث تظهر رسالة نقول

invalid outside procedure

ولا يهمك :)

انا لم اقل لك ان تضعها في Back End ، وانما في Front End

عذرا عزيزي  نفس المشكلة بكل الاحوال هذا مثال عن المطلوب

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

ولك جزيل الشكر

za-Database31.rar

تفضل :)

الاكسس عندي بالانجليزي ، لذا يجب اضع لك الصور للتوضيح :

ثم في الحدث ، نضع مسار الصورة ، ولكن لاحظ ان مسارك ثابت وغير متغير ، يعني لو غيرت مكان Back End (يعني مكان الصور) ، فيجب ان تغير المسار في المربع الاحمر يدويا:

جعفر

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

لذا رجاء ان تستعمل هذا المرفق :)

جعفر

89.za-Database31.accdb.zip

اخي الكريم  اتعبتك معي

الي فهمته انه التغير الوحيد  هو وضع الكود  في التقرير  ..

ولكنه ايضا في مرفقك  لم يعمل تظهر الصور فقط في النموذج

اذا انا فهمت كلامك صح:

عندما تفتح النموذج ، تظهر الصورة ،

ولكن الصورة لا تظهر في التقرير في البرنامج اللي انا اشتغلت عليه (المعدل والمرفق في المشاركة 9 ، لان اللي كان مرفق في المشاركة 8 كان فيه خطأ) ،

وانك لم تستخدم برنامج آخر ،

ولم تغير اسم خانة الصورة في الكود (لان اسم خانة الصورة في النموذج عندك هي غير اسمها في التقرير).

اذا كان هذا الكلام صح ، رجاء تخبرني ، في التقرير ، هل يوجد لديك قسم باسم Details (مثل اللي في الصورة اعلاه) ، او باسم التفصيل (يعني بالعربي) ،

وياريت تخلي لي صورة منه.

جعفر

اخي انا استخدمت  مرفقك الاخير  دوان اجري اي تعديلات

وهذي صورة التقرير 

1.rar

اعطني دقائق اشغل الشبكة ، واجرب وارد لك جواب ان شاء الله :)

بارك الله بيك اخي الكريم 

طويل العمر :)

جننتني ، لآن خبرتي مال كل هالسنوات راحت بحر ، والكود اللي اعطيتك ما اشتغل!!!!!!

الخطأ الله يطول في عمرك موجود في الكود اللي في النموذج ، اللي على زر مشاهدة التقرير ، الكود كما هو في الصورة ادناه:

والمفروض انك تغير السطر اللي عليه السهم الى Print Preview ، ولا تغير في الكود السابق اللي عطيتك ،

وجرب وخبرني لوسمحت :)

جعفر

اخي الكريم ساحاول بعد قليل ان شاء الله  لاني الان في البيت وسا اغير السيرفر 

لكن لااعتقد ان الحل بماتفضلت اذ اني حتى اذا عندما يفتح بصيغة ريبورت  واحوله من خيارات الكلك الايمين الى print view  فنفس المشكلة 

نفس المشكلة اخي  تم وضع الكود في التقرير  وتحويله الى print preview

ولم تظهر الصور 

UP

سوال لوسمحت:

لو جعلت المسار الى كمبيوترك العادي (وليس الى السيرفر) ، فهل تظهر الصورة؟

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

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

    Me.Image5.Picture = "E:\photos" & Me.FilePreview & ".jpg"

يجب ان يكون الكود هكذا

Me.Image5.Picture = "E:\photos\" & Me.FilePreview & ".jpg"

اختفت رسالة الخطاء لكن ايضا  لم تظهر الصورة  لا بعرضه كريبورت  ولا بالبرنت بريفيو 

اخي

انا اخذت مشاركة السابقة ، واللي عملت لك اياه الدكتورة ام عهود ، ثم اضفت التقرير.

/index.php/topic/282583-قيمة-مساوية-برقم-السجل/?p=1360124

رجاء تجربه

جعفر

za-New Folder.zip

المرفق الاخير  شغال اخي الكريم  لكنه يعيدنا الى المربع الاول    CurrentProject.Path

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

الآن غيرت المسار الى:

Me.Image5.Picture = "F:\Arabteam2000\za-New Folder\photos\" & Me.FilePreview & ".jpg"

ولا يوجد لدينا  CurrentProject.Path ، مع العلم انك في المشاركات السابقة لم تظهر لك الصورة في التقرير ، والآن تظهر.

رجاء تغيير المسار كما هو مشار اعلاه ، وتجربته.

جعفر

za-New Folder.zip