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

[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]

اینم نمونه