عکسهایم توی گزارش نمی یاد

[nazary]

با سلام حضور دوستان گرامی
یه دیتا بیس درست کردم - شامل عکس و اطلاعات دیگه هست - جهت وقتی که اطلاعات رکوردی رو می خونه به جای اینکه عکس رو وارد دیتا بیس کنم یه link دادم و عکس رو همون لحظه از جایی روی هارد می خونه و نمایش می ده
اگه می خوام گزارش بگیرم این عکس توی گزارش نمیاد - کسی راه حلی داره ؟؟

[samaneh_h]

دوست عزیز یه نگاهی به این بنداز حتما مشکلت برطرف می‌شه
http://barnamenevis.org/forum/showpost.php?p=285618&postcount=95

[انگوران]

یادم میاد این سئوال رو قبلاً ( حدوداً دو ماه قبل ) یکی از دوستان مطرح کردن و آقای سنبله کار جوابشون رو داده بودن من هنوز نتونستم پیداش کنم سرچ کنین شاید پیداش کردین .

[nazary]

فایل ضمیمه رو گرفتم و استفاده کردم اما به مشکل من مربوط نمی شه - توی قسمت access هر چه تا حالا گشتم در این مورد مطلبی رو پیدا نکردم - اگه عزیزان می تونن راهنمایی کنند - منتظرم

[سنبله کار]

دوست عزیز قاعدتا وقتی فرم نمایش میده باید تو گزارش هم بیاد برای اینکه مسئله بهتر درک بشه پیشنهاد می کنم نمونه بگذارید .

[moustafa]

فرمت عکس ها چیه ؟
تصاویر باید به فرمت bitmap باشه
(برای تبدیل میتونی تصاویر رو در نرم افزار paintکپی وبا save as نوع ذخیره روbit map انتخاب کن )

[nazary]

با سلامی دوباره
سوالم رو دوباره اینطوری مطرح می کنم
یه بانک اطلاعاتی دارم عکس پرسنل رو داخل جداول access نمی گذارم بلکه اونها روی هارد هستند - از نوع jpg هستند - بعدش یک قطعه کد برنامه نوشتم تا وقتی که کاربر از رکوردی به رکورد دیگه می ره اون عکس خونده بشه (نام عکسها متناسب با شماره پرسنلی است) و توی فرم روی یک کنترل image نشون داده بشه - اما وقتی که می خواهم درباره افراد خاصی گزارش بگیرم نمی دونم چه جوری این عکسهای روی هارد رو توی گزارشم مرتبط کنم - لطفا راهنمایی کنید. متشکرم

[انگوران]

در رویداد onformat مربوط به detail گزارش کد زیر رو بشرح ضمیمه بنویس
Image11.picture = "e:\pictures\" & persno & ".jpg"l

[RealDream]

حدس می زنم برای یک مرکز دانشگاهی می خواهید نرم افزار تهیه کنید
من از این کد برای 270 مرکز دانشگاهی استفاده کرده ام و عکس دانشجویان رو روی پاسخنامه ها با این کد چاپ کردم




Public Function DisplayImage(ctlImageControl As Control, strImagePath As Variant) As String
On Error GoTo Err_DisplayImage

Dim strResult As String
Dim strDatabasePath As String
Dim intSlashLocation As Integer

With ctlImageControl
If IsNull(strImagePath) Then
.Visible = False
strResult = "No image name specified."
Else
If InStr(1, strImagePath, "\") = 0 Then
' Path is relative
strDatabasePath = CurrentProject.FullName
intSlashLocation = InStrRev(strDatabasePath, "\", Len(strDatabasePath))
strDatabasePath = Left(strDatabasePath, intSlashLocation)
strImagePath = strDatabasePath & strImagePath
End If
.Visible = True
.Picture = strImagePath
strResult = "Image found and displayed."
End If
End With

Exit_DisplayImage:
DisplayImage = strResult
Exit Function

Err_DisplayImage:
Select Case Err.Number
Case 2220 ' Can't find the picture.
ctlImageControl.Visible = False
strResult = "Can't find image in the specified name."
Resume Exit_DisplayImage:
Case Else ' Some other error.
MsgBoxFa Err.Number & " " & Err.Description
strResult = "An error occurred displaying image."
Resume Exit_DisplayImage:
End Select
End Function


برای اجرا باید یه کنترل امیج بذاری تو ریپورت و تابع رو فراخوانی کنی اینطوری :


Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Imgpath = AppPath & "Images.bmp"
Ok = DisplayImage(Me!IMG, Imgpath)
End Sub

[RealDream]

دوست عزیز قاعدتا وقتی فرم نمایش میده باید تو گزارش هم بیاد برای اینکه مسئله بهتر درک بشه پیشنهاد می کنم نمونه بگذارید .

برای گزارشات اکسس امکان اضافه کردن عکس مثل فرم نیست متاسفانه و من تا اینو فهمیدم بیچاره شدم

[nazary]

وای خدای من
جواب داد
از اقا یا خانم انگوران عزیز و سایر اعضاء خیلی متشکرم - مشکلم حل شد
هنوزم که هنوز باورم نمی شه که به این سادگی جواب گرفته باشم
ممنووووووووونم

[سنبله کار]

برای گزارشات اکسس امکان اضافه کردن عکس مثل فرم نیست متاسفانه و من تا اینو فهمیدم بیچاره شدم

عجب!
لطفا در مثال Northwind اکسس از فرم Categories یک Save As روی گزارش ها بگیرید خواهید دید که بعد از اجرا عکسها هم به نمایش در می آیند .

[Mahsa Hatefi]

با سلام

من ابتدا از روش ذخيره آدرس كه در "نورث ويند سمپل" ارائه شده بود استفاده كردم ولي بعدا براي چاپ در گزارش با اشكال مواجه شدم لذا روش دوم مشكل چاپ را حل مي كرد يعني استفاده از "اُ ال اي " اما مشكلي كه پيش مياد اينه كه اگر در "استارتاپ" تيك short..... رو برداشته باشيد ديگه كليك راست كار نمي ده نتيجتا نياز به كدي داريم كه يه فايل دايالوگ رو باز كنه و آدرس عكستون رو ازتون بگيره و در فريم "اُ ال اي " قرار بده .
ممنون مي شم اگه دوستي اين تكه كد رو زحمتشو بكشه چون هر چه در فايل دايالوگ كد نوشتم نتوانستم عكس مربوطه رو در "اُ ال اي " قرار بدم

[Ali_Fallah]

این برنامه قطعاً مشکل شما را حل خواهد کرد ...