استفاده از Attachment در فرم Unbound

[Milad_ATM]

آیا امکان استفاده از ابزار Attachment در فرم Unbound وجود دارده؟

151609

همونطور که در تصویر میبینید دو فیلد در یک فرم Unbound دارم که میخوام کاربر دو فایل رو از طریق این دو فیلد انتخاب و با کد در Table ذخیره کنم.

مرسی

[mazoolagh]

وقتی یک رکوردست از جدول بازمیکنین، فیلد attachment در واقع خودش یک رکوردست جدا هست که میتونین مشابه رکوردست های معمولی باهاش کار کنین.
یکی از ویژگیهاش این هست که مستقیم میشه یک فایل رو در اون ریخت.

1- در فرم unbound یک filedialog بگذارین برای انتخاب فایل پیوست
2- یک رکوردست از جدول باز و addnew میکنین
3- یک رکوردست دیگه باز میکنین و اون رو به value فیلد پیوست نسبت میدین و addnew میکنین
4- با متد loadfromfile فایل پیوست رو در فیلد filedata این رکوردست میریزین
5- رکوردست ها رو به ترتیب update و close میکنین

تمام

[Milad_ATM]

وقتی یک رکوردست از جدول بازمیکنین، فیلد attachment در واقع خودش یک رکوردست جدا هست که میتونین مشابه رکوردست های معمولی باهاش کار کنین.
یکی از ویژگیهاش این هست که مستقیم میشه یک فایل رو در اون ریخت.

1- در فرم unbound یک filedialog بگذارین برای انتخاب فایل پیوست
2- یک رکوردست از جدول باز و addnew میکنین
3- یک رکوردست دیگه باز میکنین و اون رو به value فیلد پیوست نسبت میدین و addnew میکنین
4- با متد loadfromfile فایل پیوست رو در فیلد filedata این رکوردست میریزین
5- رکوردست ها رو به ترتیب update و close میکنین

تمام
ممکنه بیشتر راهنمایی کنید؟

[mazoolagh]

نمونه میگذارم

[mazoolagh]

Option Compare Database
Option Explicit

Private Sub Btn_Save_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Table1")
Dim rs_atc As Recordset
rs.AddNew
rs!f1 = Me.f1
With rs("atc").Value
.AddNew
!FileData.LoadFromFile (Me.atc)
.Update
End With
rs.Update
rs.Close
Set rs = Nothing
Me.atc = Nothing
Me.f1 = Nothing
End Sub

Private Sub Btn_Select_Click()
With FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
If .Show = True Then
If .SelectedItems.Count = 1 Then
Me.atc = .SelectedItems(1)
End If
End If
End With
End Sub

[mazoolagh]

برنامه نمونه

[Milad_ATM]

اول ممنونم از جوابتون
برای باز شدن File Picker به این مشکل برمیخورم!

151631
علت چی میتونه باشه؟

[mazoolagh]

در برنامه پیوست رفرنس ها رو ببینین!

رفرنس به office object library رو به برنامه خودتون اضافه کنین.

[Milad_ATM]

با تشکر از شما که همیشه مشکلات برنامه منو حل میکنید....