Hyperlink متناسب با ردیف ها در اکسس

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ARYACLUB

    • 2015/03/22
    • 28
    #1

    پرسش Hyperlink متناسب با ردیف ها در اکسس

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

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

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


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

    مثال
    “C:\Users\ASUS\Desktop\file”&[radif]&”.pdf”
    برچسب ها: هیچ‌کدام
    • حسام بحرانی

      • 2013/09/29
      • 2065
      • 72.00
      #2
      نوشته اصلی توسط ARYACLUB
      سلام
      یک برنامه اکسس نوشتم که از دیتابیس mysql برای ذخیره اطلاعاتش استفاده میکنم

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

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


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

      مثال
      “C:\Users\ASUS\Desktop\file”&[radif]&”.pdf”
      سلام دوست عزیز
      اگر فایل فرضی بگذارید ، بهتر راهنمایی میشید.
      [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
      [/FONT][/B][/CENTER]
      [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
      [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
      [/FONT][/B][/FONT][/SIZE]
      [/CENTER]

        کامنت

        • ARYACLUB

          • 2015/03/22
          • 28
          #3
          سلام
          بر فرض مثال در 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 فکر کنم باید نوشته بشه



          فایل
          test.accdb
          Last edited by ARYACLUB; 2018/08/23, 02:18.

            کامنت

            • ARYACLUB

              • 2015/03/22
              • 28
              #4
              لطفا یکی از دوستان پاسخ بنده رو بده.
              بدجور نیاز به این امکان دارم

                کامنت

                • ARYACLUB

                  • 2015/03/22
                  • 28
                  #5
                  تا الان چند تایپیک داشتم
                  و بی جواب نمونده بود

                  اینبار خیلی برام عجیبه دوستان پاسخی ندادن
                  Last edited by ARYACLUB; 2018/08/27, 00:45.

                    کامنت

                    • حسام بحرانی

                      • 2013/09/29
                      • 2065
                      • 72.00
                      #6
                      نوشته اصلی توسط ARYACLUB
                      لطفا یکی از دوستان پاسخ بنده رو بده.
                      بدجور نیاز به این امکان دارم
                      سلام عزیز
                      تخصص من در اکسس خیلی زیاد نیست
                      با توجه به فایل ارسالی شما ، چنین امکانی وجود نداره !! ( چالش )
                      [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
                      [/FONT][/B][/CENTER]
                      [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
                      [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
                      [/FONT][/B][/FONT][/SIZE]
                      [/CENTER]

                        کامنت

                        • ARYACLUB

                          • 2015/03/22
                          • 28
                          #7
                          سلام مجدد

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

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

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



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



                          لینک دانلود نمونه
                          - یو آپلود
                          http://uupload.ir/view/yf3r_test2.zip/
                          آپلود عکس، فایل، آهنگ و فیلم رایگان و با لینک مستقیم و ماندگاری دائمی و سرعت بالا در آپلود سنتر عکس و فایل یو آپلود
                          فایل های پیوست شده
                          Last edited by ARYACLUB; 2018/08/27, 03:12.

                            کامنت

                            • ARYACLUB

                              • 2015/03/22
                              • 28
                              #8
                              باز مثل تایپک های قبلی
                              جواب سوالما خودم پاسخ میدم

                              کد:
                              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 گذاشتم چون فایل توی شبکه مورد استفاده قرار میگیره
                              در صورت ارور برنامه به مشکل نخوره

                                کامنت

                                قبلی template بعدی
                                چند لحظه..