آيا مي‌شود اسامي چند فايل را به عنوان ركوردهاي يك جدول وارد كرد ؟

[Profesorjd]

با سلام
در برنامه چند فايل عكس لينك شده است . با استفاده از برنامه موجود همين سايت مي‌شود اين چندين عكس را به جدول وارد كرد .( بصورت لينك )
حالا كه برنامه آماده استفاده شده است تعداد عكس‌ها بقدري زياد است كه اگر بخواهيم دونه به دونه عكس‌ها را لينك كنيم زمان زيادي صرف مي‌شود . آيا راهي وجود دارد اسامي اين عكس‌ها را در جدول وارد كرد ( به سريع‌ترين زمان ممكن ) . توضيح اينكه در برنامه فقط نام و مسير آن مهم است و خود برنامه با توجه به آدرس درست عكس‌ها را گزارشي نمايش خواهد داد .

[stabesh]

با سلام
مي توانيد عكسها رو انتخاب كنيد با اين كد


Function BrowseForFile(strFileType As String, strFileFilterFormat As String, strTitle As String, Optional OpenAt As Variant)As Variant
Dim vaFiles(1 To 500) As Variant, vaItems As Variant
Dim i As Integer
Dim FileOpenDialog As Object
i = 1
Set FileOpenDialog = Application.FileDialog(3)
With FileOpenDialog 'setup File Dialog
.AllowMultiSelect = True
.ButtonName = "Select"
.Title = strTitle
.Filters.Clear
.Filters.Add strFileType, strFileFilterFormat, 1
.FilterIndex = 1
If .show Then 'display file dialog box
For Each vaItems In .SelectedItems 'get selected files
vaFiles(i) = vaItems
i = i + 1
Next vaItems
End If
End With
BrowseForFile = vaFiles
End Function

[stabesh]

همان طور كه در كد مشخصه دايركتوري فايلهاتون توي vaFiles قرار داره بعد ميتونيد توي حلقه بريزيدش توي جدول اين طوري


strFileFilterName = "Images"
strFileFilterFormat = "*.bmp;*.dib;*.gif;*.jpg;*.jpeg;*.jpe;*.jfif;*.png"
vaFiles() = BrowseForFile(strFileFilterName, strFileFilterFormat, "Please Select Image Files")
i = 1
Do While Not IsEmpty(vaFiles(i))
strSql = "insert into ImageTableName values ( '" & vaFiles(i) & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL strSql
DoCmd.SetWarnings True
i = i + 1
Loop

[Profesorjd]

با سلام و تشكر
خوب بنا به فرموده شما من يك ماژول درست كردم و فانشكن شما را در آن قرار دادم . بعد توي فرمم يك دكمه گذاشتم و كد دوم را در آن قرار دادم ولي پيغام Byref argumant type mismatch داد ؟
نتيجه اينكه متوجه نشدم چكار بايد بكنم ؟!

[stabesh]

با سلام
ببخشید یک تک کوتیشن ننوشته بودم
:لبخند:

[stabesh]

راستی اگه توی اسم فایل کاراکتر های
; ' ) (
باشه اون دستور درج مستقیم توی جدول ارور میده من خودم اسم فایلرو عوض میکنم و توی یه دایرکتوری دیگه میریزم ولی اگه می خواهید مثل کد بالا عمل کنید باید یه رکوردست روی جدول بزنید و بهش add کنید

[stabesh]

اینم نمونه