با سلام
باچه کدی میتوانیم یک تصویر لود شده در کنترل image را در فیلد یک جدول از نوع OLE Object ذخیره نمائیم ؟
باتشکر
با سلام
باچه کدی میتوانیم یک تصویر لود شده در کنترل image را در فیلد یک جدول از نوع OLE Object ذخیره نمائیم ؟
باتشکر
خودم جواب راپیداکردم
جوابت رو بذار تا بقییه هم استفاده کنن!!!!
ما هم منتظر جوابیم
سلام
نمونه خدمت دوستان
موفق باشید
جالب بود دوست عزیز متشکر
جالب بود و کاربردی
مرسی
سلام
ضمن تشکر بابت نمونه چند مورد وجود داره که اگه دوستان یا اساتید محترم راهنمایی و حل موضوع کنند ممنون خواهم شد
1 - در نمونه دوستمون هنگام ایجاد ریپورت, عکسها نمایش داده نمیشن در حالیه که این عکس تو جدول ذخیره شده !
2 - آیا راه ساده تری برای ایجاد این رویه نبود که یکبار شماره عکس با پیغام خاص خودش بیاد بعد انتخاب عکس و سپس ذخیره عکس !!!
سعی کردم این روش را تو فرمی پیاده کنم که بشه عکسها را به صورت رکوردی مشاهده کرد و نه کمبو منتها موفق نشدم و دلیلش اینه که اصولا این داده های
به جداول منتقل شده بر روی لیبل قابل مشاهده اند
جهت رفع موارد فوق چه اصلاحاتی را لازم میدانید انجام دهید که تو گزارشگیری هم قابل مشاهده باشه ؟
ممنون خدانگهدار
در آفیس 2007 یک دیتای جدید به نام athachment آمده که براحتی می توان در این فیلد هر نوع فایلی را به رکوردتان ضمیمه کنید. ضمن اینکه قابلیت پیش نمایش فایلها را نیز دارا می باشد.
تو نمونه نورث وید که یه نمونه عالیه این خاصیت را تو همون 2003 میبینیم
ولی نوع فیلد تکست هست که مزایای خودش را داره
تو نمونه دوستمون از نوع OLE Object هست وبا نمونه خود اکسس متفاوته بنابراین راهی به غیر از روش مذکور باید باشه
باسلام
آیا راهی هست که بشه عکسهای اضافه شده تو جدول رو تو ریپورت نشون داد
با تشکر
با سلام و احترام
من هم منتظر این چوابم از دوستان خواهشا کسی هست راهنمایی کند؟ عکس اضافه شده در گزارش دیده نمی شود
با سلام
از اساتید یعنی کسی نیست جواب مارو بده ؟
بازم سلام
ما که هنوز هیچ جوابی نگرفتیم
البته احتمال داره اساتید همه رفته باشن مسافرت
با 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
با تشکر از عنایت شما جناب آقای امیری می شود نمونه را اصلاح فرمائید
این هم نمونه:نمونه را اصلاح فرمائید
سلام جناب امیری!
راستش بنده خیلی سعی کردم با انجام این کار(ذخیره تصویر در جدول) تصاویر را در فرم در حالت Continuous Forms نمایش بدهم ولی موفق نشدم . در Continuous Forms برای تمام رکوردها فقط یک تصویر به نمایش در میآید .آیا برای انجام این کار راهی به ذهن شما میرسد؟
با تشکر
با اکسس 2003 خیر . ورژن بالاتر میخواهد.
سلام
در صورتی که این تصاویر از روش insert object وارد جداول شده باشد یعنی از فرمی به غیر از این فرم امکان نمایش این تصاویر در ریپورت وجود نخواهد داشت
یعنی کدی که در ریپورت برای فراخوانی عکس از حداول فرمودید در این مورد کار نمی کند !
لطفا راهنمایی کنید دلیل یا راه اصلاح آن چگونه است
شخصا راهی برای این موضوع ندارم ولی من درکارهایم از آدرس فایلهای تصویری استفاده میکنم
با سلام
از اونجائیکه چند روز نبودم لازم دونستم از استاد گرامی جناب امیری شخصا تشکر کنم
با سلام خدمت تمام دوستان و استاد عزیز امیری
یه نمونه که فکر میکنم بهتر باشه و با تغییراتی که دوستان همین سایت از نمونه نورث وید بدست آورند خدمت شما تقدیم میکنم
جناب امیری من با کدی که فرمودید برای نمایش عکس تو ریپورت نتونستم به نتیجه برسم اگر براتون مقدور هست کدی را برای نمایش این نمونه عکسها بفرمایید روشی که به ذهنم رسید این بود که همون فریمها را تو ریپورت به کار بگیرم ولی متاسفانه نشد
ممنون خواهم شد اگر راهنمایی کنید
مشکلی با استفاده ازآدرس تصاویر دارید؟ حسن آن جلوگیری ازبزرگ شدن برنامه ومانور بیشتر به روی تصاویر است
خیر تو این نمونه فقط یک عکس تو جدول قرار میگیره بنابراین برنامه خیلی بزرگ نخواهد شد و این عکس تو فاکتور و گزارشات استفاده میشه
این در صورتی که بخواهیم رکورد های زیادی را از عکس پر کنیم حق با شماست
فکز کنم راحتترین کار همان پست سوم است
شخصا از روشی مشابه فایل پیوست استفاده می کنم . بهتر است گزارشات درحالت Preview بازشوند
با سلام ، پیرو پیغام شخصی جنابعالی (آقای aboreza57) فایل زیر جهت انتخاب تصاویر و کپی آنها در صورت وجود در مکانی غیر از مکان پیشفرض و درج نام آن درجدول تصاویر ، ارسال میگردد.
جهت جلوگیری از اشتباهات و ایجاد فایلهای همنام تمهیداتی درنظر گرفته شده ، با این صورت که اگر تصویر مورد اشاره در پوشه Images دایرکتوری جاری بود ( منظور دایرکتوری که فایل اکسس ما درآن قرارگرفته) فقط نام آن فایل درجدول tblImages ثبت میشود، اما اگر به آدرس دیگری اشاره شده باشد درآنصورت ابتدا فایل مورد نظر در پوشه Images کپی شده سپس نام تصویر درجدول ثبت میشود . حال اگر درمورد اخیر فایلی به همان نام داشته باشیم از کاربر درخواست نام دیگری میشود ودریک حلقه چک میشود تا به یک نام غیر تکراری برسد.
آخرین ویرایش به وسیله Abbas Amiri : جمعه 20 مرداد 1391 در 13:47 عصر
با سلام
نمیخواستم این تاپیک بیش از این با اسپم پر بشه با سوالات تکراری و بدیهی منتها از اونجا که با زحمت جناب آقای امیری این داستان به سرانجام رسید و میتونه یه نمونه قویتر از نورث وید برای ما باشه حیفم میاد از این مهارت و تواضع ایشان تقدیر نشه لذا به شخصه از ایشان کمال تشکر را دارم
در پایان یه نکته با اجازه جناب امیری و اون اینکه درانتقال این کدها به فایل دیگه تو قسمت رفرنسها Microsoft Office11 object Library باید زده شود تا دیالوگ انتخاب تصویر باز شود
موفق باشید
آخرین ویرایش به وسیله abdoreza57 : جمعه 20 مرداد 1391 در 17:39 عصر
چگونه در این برنامه بجای عکس از فایلهای PDF استفاده کنیم
به پست زیر سری بزنید . کمی تغییر نیازدارد
https://barnamenevis.org/showthread.p...=1#post1607967
سلام
جناب امیری برنامه ای که تو پست 28 ارائه نمودید فوق العاده است من تو استفاده از اون به یه مشکل کوچیک برخورد کردم و اونم اینکه در صورت نبود تصویر مد نظر هنگام فراخوانی ریپورت چون در قسمت کارنت این کد قرار داره لذا باز نمیشه !!
خواستم کد را طوری تغییر بدم که در صورت نبود تصوریر , گزارش گرفته بشه و به این نول بودن گیر نده !!!!
شما که تا اینجا زحمت کشیدید لطف کنید این مرتبه هم ما را تنها نگذارید
سلام کد زیر را جایگزین کد مورد نظر کنید
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 مورد نظر مقدار نمیگیرد
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول