سوال: ذخیره عکس در جدول [بایگانی]

abas1388

چهارشنبه 04 مرداد 1391, 01:48 صبح

با سلام
باچه کدی میتوانیم یک تصویر لود شده در کنترل image را در فیلد یک جدول از نوع OLE Object ذخیره نمائیم ؟
باتشکر

abas1388

چهارشنبه 04 مرداد 1391, 02:33 صبح

خودم جواب راپیداکردم

ehsan7007

چهارشنبه 04 مرداد 1391, 11:13 صبح

جوابت رو بذار تا بقییه هم استفاده کنن!!!!

salambeshoma

پنج شنبه 05 مرداد 1391, 01:26 صبح

ما هم منتظر جوابیم

abas1388

پنج شنبه 05 مرداد 1391, 18:53 عصر

سلام
نمونه خدمت دوستان
موفق باشید

salambeshoma

جمعه 06 مرداد 1391, 14:41 عصر

جالب بود دوست عزیز متشکر

moj_gha2009

جمعه 06 مرداد 1391, 19:48 عصر

جالب بود و کاربردی
مرسی

abdoreza57

یک شنبه 08 مرداد 1391, 16:52 عصر

سلام

ضمن تشکر بابت نمونه چند مورد وجود داره که اگه دوستان یا اساتید محترم راهنمایی و حل موضوع کنند ممنون خواهم شد

1 - در نمونه دوستمون هنگام ایجاد ریپورت, عکسها نمایش داده نمیشن در حالیه که این عکس تو جدول ذخیره شده !

2 - آیا راه ساده تری برای ایجاد این رویه نبود که یکبار شماره عکس با پیغام خاص خودش بیاد بعد انتخاب عکس و سپس ذخیره عکس !!!
سعی کردم این روش را تو فرمی پیاده کنم که بشه عکسها را به صورت رکوردی مشاهده کرد و نه کمبو منتها موفق نشدم و دلیلش اینه که اصولا این داده های
به جداول منتقل شده بر روی لیبل قابل مشاهده اند

جهت رفع موارد فوق چه اصلاحاتی را لازم میدانید انجام دهید که تو گزارشگیری هم قابل مشاهده باشه ؟

ممنون خدانگهدار

mohammadsaleh

دوشنبه 09 مرداد 1391, 11:19 صبح

در آفیس 2007 یک دیتای جدید به نام athachment آمده که براحتی می توان در این فیلد هر نوع فایلی را به رکوردتان ضمیمه کنید. ضمن اینکه قابلیت پیش نمایش فایلها را نیز دارا می باشد.

abdoreza57

دوشنبه 09 مرداد 1391, 14:59 عصر

تو نمونه نورث وید که یه نمونه عالیه این خاصیت را تو همون 2003 میبینیم

ولی نوع فیلد تکست هست که مزایای خودش را داره
تو نمونه دوستمون از نوع OLE Object هست وبا نمونه خود اکسس متفاوته بنابراین راهی به غیر از روش مذکور باید باشه

expert2219

چهارشنبه 11 مرداد 1391, 09:13 صبح

باسلام
آیا راهی هست که بشه عکسهای اضافه شده تو جدول رو تو ریپورت نشون داد
با تشکر

salambeshoma

چهارشنبه 11 مرداد 1391, 17:26 عصر

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

expert2219

چهارشنبه 11 مرداد 1391, 23:31 عصر

با سلام
از اساتید یعنی کسی نیست جواب مارو بده ؟

expert2219

پنج شنبه 12 مرداد 1391, 10:11 صبح

بازم سلام
ما که هنوز هیچ جوابی نگرفتیم
البته احتمال داره اساتید همه رفته باشن مسافرت

Abbas Amiri

پنج شنبه 12 مرداد 1391, 17:03 عصر

با Report wizard از جدول مربوطه یک گزارش بسازید کنترل باندشده ImageData را حذف کنید ویک ImageBox جای آن وباهمان نام قرار دهید در رویداد Detail_Format کدزیر راقرار دهید وگزارش را درنمای ReportView بازکنید

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.ImageData.PictureData = DLookup("ImageData", "tblImageData", "ImageID = " & Me.ImageID)
End Sub

salambeshoma

جمعه 13 مرداد 1391, 01:33 صبح

با تشکر از عنایت شما جناب آقای امیری می شود نمونه را اصلاح فرمائید

Abbas Amiri

جمعه 13 مرداد 1391, 02:10 صبح

نمونه را اصلاح فرمائید
این هم نمونه:

abas1388

جمعه 13 مرداد 1391, 13:42 عصر

سلام جناب امیری!
راستش بنده خیلی سعی کردم با انجام این کار(ذخیره تصویر در جدول) تصاویر را در فرم در حالت Continuous Forms نمایش بدهم ولی موفق نشدم . در Continuous Forms برای تمام رکوردها فقط یک تصویر به نمایش در میآید .آیا برای انجام این کار راهی به ذهن شما میرسد؟
با تشکر

Abbas Amiri

جمعه 13 مرداد 1391, 14:57 عصر

با اکسس 2003 خیر . ورژن بالاتر میخواهد.

abdoreza57

جمعه 13 مرداد 1391, 15:28 عصر

سلام

در صورتی که این تصاویر از روش insert object وارد جداول شده باشد یعنی از فرمی به غیر از این فرم امکان نمایش این تصاویر در ریپورت وجود نخواهد داشت
یعنی کدی که در ریپورت برای فراخوانی عکس از حداول فرمودید در این مورد کار نمی کند !
لطفا راهنمایی کنید دلیل یا راه اصلاح آن چگونه است

Abbas Amiri

جمعه 13 مرداد 1391, 23:41 عصر

شخصا راهی برای این موضوع ندارم ولی من درکارهایم از آدرس فایلهای تصویری استفاده میکنم

expert2219

شنبه 14 مرداد 1391, 10:04 صبح

با سلام
از اونجائیکه چند روز نبودم لازم دونستم از استاد گرامی جناب امیری شخصا تشکر کنم

abdoreza57

یک شنبه 15 مرداد 1391, 16:31 عصر

با سلام خدمت تمام دوستان و استاد عزیز امیری

یه نمونه که فکر میکنم بهتر باشه و با تغییراتی که دوستان همین سایت از نمونه نورث وید بدست آورند خدمت شما تقدیم میکنم

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

ممنون خواهم شد اگر راهنمایی کنید

Abbas Amiri

یک شنبه 15 مرداد 1391, 19:18 عصر

مشکلی با استفاده ازآدرس تصاویر دارید؟ حسن آن جلوگیری ازبزرگ شدن برنامه ومانور بیشتر به روی تصاویر است

abdoreza57

دوشنبه 16 مرداد 1391, 16:10 عصر

خیر تو این نمونه فقط یک عکس تو جدول قرار میگیره بنابراین برنامه خیلی بزرگ نخواهد شد و این عکس تو فاکتور و گزارشات استفاده میشه
این در صورتی که بخواهیم رکورد های زیادی را از عکس پر کنیم حق با شماست

Abbas Amiri

دوشنبه 16 مرداد 1391, 22:09 عصر

فکز کنم راحتترین کار همان پست سوم است

Abbas Amiri

چهارشنبه 18 مرداد 1391, 19:39 عصر

شخصا از روشی مشابه فایل پیوست استفاده می کنم . بهتر است گزارشات درحالت Preview بازشوند

Abbas Amiri

جمعه 20 مرداد 1391, 14:30 عصر

با سلام ، پیرو پیغام شخصی جنابعالی (آقای aboreza57) فایل زیر جهت انتخاب تصاویر و کپی آنها در صورت وجود در مکانی غیر از مکان پیشفرض و درج نام آن درجدول تصاویر ، ارسال میگردد.
جهت جلوگیری از اشتباهات و ایجاد فایلهای همنام تمهیداتی درنظر گرفته شده ، با این صورت که اگر تصویر مورد اشاره در پوشه Images دایرکتوری جاری بود ( منظور دایرکتوری که فایل اکسس ما درآن قرارگرفته) فقط نام آن فایل درجدول tblImages ثبت میشود، اما اگر به آدرس دیگری اشاره شده باشد درآنصورت ابتدا فایل مورد نظر در پوشه Images کپی شده سپس نام تصویر درجدول ثبت میشود . حال اگر درمورد اخیر فایلی به همان نام داشته باشیم از کاربر درخواست نام دیگری میشود ودریک حلقه چک میشود تا به یک نام غیر تکراری برسد.

abdoreza57

جمعه 20 مرداد 1391, 17:07 عصر

با سلام

نمیخواستم این تاپیک بیش از این با اسپم پر بشه با سوالات تکراری و بدیهی منتها از اونجا که با زحمت جناب آقای امیری این داستان به سرانجام رسید و میتونه یه نمونه قویتر از نورث وید برای ما باشه حیفم میاد از این مهارت و تواضع ایشان تقدیر نشه لذا به شخصه از ایشان کمال تشکر را دارم

در پایان یه نکته با اجازه جناب امیری و اون اینکه درانتقال این کدها به فایل دیگه تو قسمت رفرنسها Microsoft Office11 object Library باید زده شود تا دیالوگ انتخاب تصویر باز شود

موفق باشید

Younestalebi

چهارشنبه 19 مهر 1391, 14:29 عصر

چگونه در این برنامه بجای عکس از فایلهای PDF استفاده کنیم

Abbas Amiri

چهارشنبه 19 مهر 1391, 19:52 عصر

به پست زیر سری بزنید . کمی تغییر نیازدارد
http://barnamenevis.org/showthread.php?364079-%D8%A8%D9%87%D8%AA%D8%B1%DB%8C%D9%86-%D8%B1%D8%A7%D9%87-%D8%B6%D9%85%DB%8C%D9%85%D9%87-%DA%A9%D8%B1%D8%AF%D9%86-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-%D8%A8%D9%87-%DB%8C%DA%A9-%D8%B1%DA%A9%D9%88%D8%AF%D8%B1-%DA%86%DB%8C%D8%B3%D8%AA&p=1607967&viewfull=1#post1607967

abdoreza57

سه شنبه 21 آذر 1391, 19:05 عصر

سلام

جناب امیری برنامه ای که تو پست 28 ارائه نمودید فوق العاده است من تو استفاده از اون به یه مشکل کوچیک برخورد کردم و اونم اینکه در صورت نبود تصویر مد نظر هنگام فراخوانی ریپورت چون در قسمت کارنت این کد قرار داره لذا باز نمیشه !!

خواستم کد را طوری تغییر بدم که در صورت نبود تصوریر , گزارش گرفته بشه و به این نول بودن گیر نده !!!!
شما که تا اینجا زحمت کشیدید لطف کنید این مرتبه هم ما را تنها نگذارید

Abbas Amiri

سه شنبه 21 آذر 1391, 20:04 عصر

سلام کد زیر را جایگزین کد مورد نظر کنید

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
Dim imgName As String
imgName = DLookup("ImageName", "tblImages", "Usage='rpt1'")
If Len(imgName) And Len(Dir(MyPrj("Images") & imgName)) Then
LogoReport1.Picture = MyPrj("Images") & imgName
End If
End Sub

درصورت نبود نام تصویر درجدول و همچنین نبود خود فایل تصویر درپوشه تصاویر Image مورد نظر مقدار نمیگیرد