ورود

View Full Version : حذف گزینه های add و remove از attach در اکسس


angela001
چهارشنبه 22 فروردین 1397, 15:11 عصر
با سلام و تشکر از همگی
برای امنیت فایل و جلوگیری از پاک شدن آن نیاز دارم گزینه های add و remove رو از attach در فرم های اکسس پاک کنم . هنگام قرار دادن گزینه enabele و locked روی yes گزینه ها غیر فعال میشه ولی فایل اتچ شده دیگه قابلیت ادیت نداره و ذخیره نمیشه... چطور این گزینه ها رو غیر فعال کنم در حالیکه قابلیت ادیت فایل باقی بمونه؟؟؟ (عکس پیوست شد)
Mehr@ban
چهارشنبه 22 فروردین 1397, 16:24 عصر
سلام

قابلیت ویرایش، افزودن و حذف اطلاعات از خصوصیات فرم هست!
شما میتونید این خصوصیات رو در فرم اعمال کنید که البته برای تمامی فیلدها در نظر گرفته میشه.
angela001
دوشنبه 27 فروردین 1397, 11:14 صبح
درست میفرمائید ولی تغییری نمیکنه باز هم گزینه add و remove رو حذف کنم نمیشه فایل رو ذخیره کرد! مشکل من دقیقا اینه که میخوام فایل پیوست شده ادیت و ذخیره بشه، چطور میتونم این کار رو انجام بدم ؟
mazoolagh
چهارشنبه 05 اردیبهشت 1397, 12:02 عصر
فیلد attachment رو disable کنین
بجاش در کنارش یک button بگذارین و با کد فایل پیوست رو باز کنین
angela001
چهارشنبه 05 اردیبهشت 1397, 13:26 عصر
فیلد attachment رو disable کنین
بجاش در کنارش یک button بگذارین و با کد فایل پیوست رو باز کنین

فیلد attachment رو disable کردم ولی وقتی button قرار میدم چطوری بگم یه فایل اکسل رو باز کنه؟
mazoolagh
شنبه 08 اردیبهشت 1397, 08:43 صبح
باید کد بنویسین.
در واقع هر فیلد از نوع attachment خودش یک رکوردست هست که هر پیوست یک رکورد رو تشکیل میده و فیلدهای اصلی هم که باهاش سروکار داریم filename و filedata است.
شما باید خودتون این دو مقدار رو بخونین و یک فایل موقتی بر اساس اینها بسازین و این فایل رو باز کنین.
کدش یک چیزی شبیه زیر میشه:
DIM RS1,RS2 AS RECORDSET
SET RS1= CURRENTDB.OPENRECORDSET("SELECT Attachment_Field from Table_Name WHERE Condition")
SET RS2= RS1(0).VALUE
DIM TempFolder,TempFile AS STRING
TempFolder= "Location for temp file"
TempFile= TempFolder+ RS2("FileName")
RS2("FileData").SAVETOFILE TempFile
FOLLOWHYPERLINK TempFile

البته یک سری کد برای بررسی فولدر و فایل موقت و همینجور ERROR-HANDLING باید بهش اضافه بشه

بعد از اینکه فایل ویرایش شد باید دوباره با کد اون رو بجای فایل پیوست اصلی قرار بدین:
RS2("FileData").LOADFROMFILE TempFile