اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

14-11-2011%2017-29-25.jpg

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

hyb2.jpg

hy.rar

قام بنشر

أخي الكريم

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


Me.الرابط.SetFocus

SendKeys "^k"

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

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

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

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

..........

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

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

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

edafa

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

  • Like 1
قام بنشر

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

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

14-11-2011%2022-57-01.jpg

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

قام بنشر

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

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

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

شكرا لك

قام بنشر

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

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


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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information