پرسش: Hyperlink متناسب با ردیف ها در اکسس [بایگانی]

ARYACLUB

2018/08/22, 16:07

سلام
یک برنامه اکسس نوشتم که از دیتابیس mysql برای ذخیره اطلاعاتش استفاده میکنم

حال برای ورود اطلاعات باید فایل های رو به هر ردیف ثبت شده . اضافه کنم
و نمیخوام به صورت اپلود روی دیتابس این فایل ها رو نگهداری کنم

میخوام فایل های pdf رو در فولدری با نام مشابه شماره ردیف های که اکسس ایجاد کرده ذخیره و نگهداری کنم
و توی فرم با کلیک روی کلید مربوط / pdf مروبوط به اون ردیف باز بشه ( هم نام با شماره ردیف)

لطفا راهنمایی بفرمایید

مثال
“C:\Users\ASUS\Desktop\file”&[radif]&”.pdf”

حسام بحرانی

2018/08/22, 23:08

سلام
یک برنامه اکسس نوشتم که از دیتابیس mysql برای ذخیره اطلاعاتش استفاده میکنم

حال برای ورود اطلاعات باید فایل های رو به هر ردیف ثبت شده . اضافه کنم
و نمیخوام به صورت اپلود روی دیتابس این فایل ها رو نگهداری کنم

میخوام فایل های pdf رو در فولدری با نام مشابه شماره ردیف های که اکسس ایجاد کرده ذخیره و نگهداری کنم
و توی فرم با کلیک روی کلید مربوط / pdf مروبوط به اون ردیف باز بشه ( هم نام با شماره ردیف)

لطفا راهنمایی بفرمایید

مثال
“C:\Users\ASUS\Desktop\file”&[radif]&”.pdf”
سلام دوست عزیز
اگر فایل فرضی بگذارید ، بهتر راهنمایی میشید.

ARYACLUB

2018/08/23, 00:53

سلام
بر فرض مثال در C:\Users\ASUS\Desktop\file سه فایل دارم به اسم 1.jpg و 2.jpg و 3.jpg
و
در فایل مثال اپلود شده در بخش فرم میخوام وقتی روی command8 کلیک میکنم مثلا کلید اول لینک فایل به صورت C:\Users\ASUS\Desktop\file\1.jpg باز بشه

کد مثل C:\Users\ASUS\Desktop\file \ [ID] .jpg فکر کنم باید نوشته بشه

فایل
17116

ARYACLUB

2018/08/24, 16:14

لطفا یکی از دوستان پاسخ بنده رو بده.
بدجور نیاز به این امکان دارم

ARYACLUB

2018/08/26, 23:26

تا الان چند تایپیک داشتم
و بی جواب نمونده بود

اینبار خیلی برام عجیبه دوستان پاسخی ندادن

حسام بحرانی

2018/08/26, 23:31

لطفا یکی از دوستان پاسخ بنده رو بده.
بدجور نیاز به این امکان دارم
سلام عزیز
تخصص من در اکسس خیلی زیاد نیست
با توجه به فایل ارسالی شما ، چنین امکانی وجود نداره !!:confused: ( چالش )

ARYACLUB

2018/08/27, 02:07

سلام مجدد

در مربوطه را پیدا کردم و تا این حد که پوشه مربوط را باز میکه کارم راه میفته

باز کردن فایل
Application.FollowHyperlink "C:\Doc\info.docx"

باز کردن فولدر
Application.FollowHyperlink "C:\Doc\info"

حالا بحث این هستش که اگر پوشه مورد نظر وجود نداشت میخوام ارور نده

لینک دانلود نمونه
http://uupload.ir/view/yf3r_test2.zip/

ARYACLUB

2018/08/30, 20:54

باز مثل تایپک های قبلی
جواب سوالما خودم پاسخ میدم

Private Sub Command8_Click()
Dim path As String
path = "\\192.168.1.35\Test\" & ([Field1])
On Error Resume Next

If Len(Dir(path, vbDirectory)) > 0 Then
Application.FollowHyperlink path

Else
MkDir path
MsgBox " æÔå ÈÇíÇäí ãÑÈæØå ÈÇ ãæÝÞíÊ ÇíÌÇÏ ÔÏ - ÌåÊ ÈÇÒ ÔÏä ÈÇíÇäí ãÌÏÏ ˜áí˜ ˜äíÏ", vbMsgBoxRight, "æÔå ÞÈá æÌæÏ äÏÇÔÊ"

End If

End Sub

اول سعی میکنه پوشه و ادرس مورد نظر باز کنه
در صورتی که پوشه مد نظر نبود .
میره شرط دوم اجرا میکنه و پوشه را ایجادش میکنه
و پیغام میده که مجدد کلیک رو انجام بدید

اول خط هم On Error Resume Next گذاشتم چون فایل توی شبکه مورد استفاده قرار میگیره
در صورت ارور برنامه به مشکل نخوره