زر تحرير الرابط التشعبي

[lordring]

السلام عليكم

لدي حقل رابط تشعبي في النموذج لاضافة رابط لمكان موجود على الجهاز

ماهو الامر البرمجي الواجب وضعه على الزر ادراج رابط في الصورة التالية

لكي يفتح لي المربع الحواري الخاص بتحرير هذا الرابط كما في الصورة التالية

hy.rar

[أ / محمد صالح]

أخي الكريم

ضع هذا الكود في حدث عن النقر للزر

Me.الرابط.SetFocus

SendKeys "^k"

ويعني هذا الكود

وضع المؤشر في حقل الرابط

ثم الضغط على مفاتيح Ctrl+k وهي الخاصة بإظهار الصندق الحواري تحرير ارتباط تشعبي

وذلك من خلال الطريقة sendkeys

..........

ونصيحة أخي الكريم

تعود على تسمية الحقول في الجداول والنماذج بحروف انجليزية

ولو حتى بأسماء عربية مثل

edafa

حتى يسهل كتابة الكود

[lordring]

اخي مايحدث عن تطبيق الكود ظهور التالي

حرف k داخل مربع النص فقط ولاتظهر النافذة الحوارية

اذا امكن تعمل التعديل على الملف وتجربه وشكرا لك

[أ / محمد صالح]

تفضل أخي الكريم

diplay_hl_dialogbox.rar

[lordring]

شكرا اخي اكتشفت اين المشكلة

حيث ان الكي بورد كان على اللغة العربية فلا يتم الايعاز عندما احوله الى اللغة الانكليزية يتم المطلوب

لذلك جعلت فقط لغة لوحة المفاتيح لهذا المربع اللغة الانكليزية والان الامور تمام

شكرا لك

[Bluemind]

اسمحوا لي باضافه هذا الكود الى الحل

في حدث عند النقر لزر الامر الرابط

Private Sub cmdHyperlink_Click()

    On Error GoTo Errhandler

    Me.link.SetFocus


    RunCommand acCmdEditHyperlink

    Exit Sub

Errhandler:

    If Err = 2501 Then

    Else

	    MsgBox Err.Description, vbExclamation

    End If

End Sub

[lordring]

شكرا اخي .. بارك الله بيك