نمایش نتایج 1 تا 5 از 5

نام تاپیک: نحوه استفاده از insert hyperlink به وسیله کد نویسی

  1. #1
    کاربر جدید
    تاریخ عضویت
    تیر 1387
    محل زندگی
    تهران
    پست
    26

    نحوه استفاده از insert hyperlink به وسیله کد نویسی

    سلام دوستان
    من روی یک بانک کار می کنم که در یک فیلد (textbox) آن میخوام تصویر به بانک لینک بشه(به صورت لینک) اما اینکار توسط یک دکمه کنار فیلد انجام بشه . به این ترتیب که بعد از کلیک روی دکمه پنجره insert hypelinkباز بشه و بعد از انتخاب لینک مورد نظر آدرسش در فیلد (textbox) مورد نظر ذخیره بشه.
    ممنونم.

  2. #2
    کاربر دائمی آواتار مهدی قربانی
    تاریخ عضویت
    اسفند 1385
    محل زندگی
    تهران
    پست
    2,435

    نقل قول: نحوه استفاده از insert hyperlink به وسیله کد نویسی

    سلام
    اين نمونه عمليات مورد نظر شما رو پياده سازي مي كنه :

    Private Sub Command4_Click()
    Dim strFile As String
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = True
    f.Show

    If f.SelectedItems.Count > 0 Then
    strFile = f.SelectedItems(1)
    End If

    Me.a = strFile
    End Sub
    فایل های ضمیمه فایل های ضمیمه

  3. #3
    کاربر جدید
    تاریخ عضویت
    تیر 1387
    محل زندگی
    تهران
    پست
    26

    نقل قول: نحوه استفاده از insert hyperlink به وسیله کد نویسی

    سلام دوست عزیز
    از داخل فرمی که طراحی کردید وقتی که بر روی آدرس hyperlink ایجاد شده توسط دکمه کلیک می کنیم لینک مورد نظر باز نمی شود آیا برای این مساله راهی هست؟
    در ضمن وفتی که بر روی دکمه کلیک می کنیم آیا راهی هست که پنجره Insert hyperlink باز شود؟
    ممنونم
    آخرین ویرایش به وسیله منتظران منتظر : چهارشنبه 23 مرداد 1387 در 23:47 عصر

  4. #4
    کاربر دائمی آواتار مهدی قربانی
    تاریخ عضویت
    اسفند 1385
    محل زندگی
    تهران
    پست
    2,435

    نقل قول: نحوه استفاده از insert hyperlink به وسیله کد نویسی

    سلام
    بهتره از اين نمونه استفاده كنيد :
    ضمناً اين نكته رو متذكر ميشم كه براي استفاده از پنجره Insert Hyperlink يا Edit Hyperlink با استفاده از كامند باتون قبل از نوشتن كد RunCommand‌ حتماً بايد فوكوس رو به فيلدي كه Hyperlink‌ در داخل اون ذخيره ميشه منتقل كنيد در غير اينصورت اجراي دستور RunCommand با خطا روبرو ميشه ( همون مشكلي كه در تاپيك اول اشاره كرديد )

    Private Sub Command4_Click()
    On Error GoTo Err_Command4_Click
    Me.a.SetFocus
    DoCmd.RunCommand acCmdInsertHyperlink
    Exit_Command4_Click:
    Exit Sub
    Err_Command4_Click:
    If Err.Number = 2501 Then
    Resume Exit_Command4_Click
    Else
    MsgBox Err.Description
    Resume Exit_Command4_Click
    End If

    End Sub
    فایل های ضمیمه فایل های ضمیمه

  5. #5

    نقل قول: نحوه استفاده از insert hyperlink به وسیله کد نویسی

    سلام
    آيا راهي وجود دارد تا باكليك روي فايلي آن فايل در شبكه و يا در فولدر ديگري ذخيره گردد و آدرس جديد درجدول ذخيره ئ در فرم نمايش داده شود كه با كليك روي ان فايل اجراء گردد؟

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •