بعد التحية والسلام على جميع اعضاء المنتدى
هل ممكن مساعدتي في صياغة كود لأضعه في حدث , بحيث عند اجراءه ينفذ عملية الضغط على الزرين Ctrl+D , أي بدون ضغطهما يدوياً
مشكورين
مساعدة في صياغة كود
أبو منتظر كتب:بعد التحية والسلام على جميع اعضاء المنتدى
هل ممكن مساعدتي في صياغة كود لأضعه في حدث , بحيث عند اجراءه ينفذ عملية الضغط على الزرين Ctrl+D , أي بدون ضغطهما يدوياً
مشكورين
اخي الفاضل : ابو منتظر
السلام عليكم ورحمة الله وبركاته
استخدم هذا الكود
Private Sub CmdD_Click() SendKeys "^D", True End Sub
بالتوفيق
وعليكم السلام ورحمة الله وبركاته أستاذتى الفاضلة
عند تطبيق الكود تحت اي حدث تظهر رسالة الخطا التالية :
"70" Run_time error
Permission denied
فأين يكمن الخلل ؟
مشكورة مقدماً
أبو منتظر كتب:وعليكم السلام ورحمة الله وبركاته أستاذتى الفاضلة
عند تطبيق الكود تحت اي حدث تظهر رسالة الخطا التالية :
"70" Run_time error
Permission denied
فأين يكمن الخلل ؟
مشكورة مقدماً
اخي الفاضل
لا يوجد خلل في الكود
ولكن تكمن المشكلة في اذونات المستخدم الحالي للويندوز اذا كنت تستخدم WIN 7 لذا يجب تشغيل برنامج الأكسيس كمسئول وليس كمستخدم من مجلد البرامج
C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE
ثم قم بفتح القاعدة واستخدم نفس الكود السابق وستجده يعمل بدون رسالة الأذونات رقم 70
بالتوفيق
الاخت الفاضلة زهرة
هل يمكن وضع هذا الكود على زر امر وبدل D نضع C
بمنعى يصبح امر نسخ ما هو محدد في الحقل ليتم لصقه في اي برنامج اخر
لقد قمت بتجربته لكن لا يعطي اي شيء
وبارك الله بك
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
malik2010 كتب:الاخت الفاضلة زهرة
هل يمكن وضع هذا الكود على زر امر وبدل D نضع C
بمنعى يصبح امر نسخ ما هو محدد في الحقل ليتم لصقه في اي برنامج اخر
لقد قمت بتجربته لكن لا يعطي اي شيء
وبارك الله بك
اخي الفاضل مالك
السلام عليكم ورحمة الله وبركاته
للقيام بعملية نسخ محتوى حقل معين ثم لصقه في اي مكان سواء برنامج المفكره او اي برنامج آخر نستخدم هذا الكود بهذه الطريقة
Private Sub CmdCopy_Click()
Me.strTxtName.SetFocus
SendKeys ("^(c)"), True
End Subحيث strTxtName هو مربع النص الخاص بك
ويجب ان يكون عليه التركيز ليتم تضليلة بالكامل
ثم القيام بعملية النسخ
الآن سواء اغلقت قاعدة البيانات او ابقيتها مفتوحه فلا يوجد اي فرق لأن محتوى مربع النص قد تم نسخه في الذاكرة
كل ما عليك الآن هو الذهاب الى اي برنامج ولصق محتوى الذاكرة الذي تم نسخه مسبقا من مربع النص
قم بالتجربة وابلغنا بالنتيجة
بالتوفيق
بارك الله بك
ضبطت .. لكن هل يمكن جعل التحديد لاي حقل وهذا افضل .
او وضع اكثر من حقل 2 او 3 على الاقل للنسخ منها
مع فائق الاحترام
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اختي الفاضلة زهرة
ما هو الخطأ في هذا الكود
اريد وضع الزر في نموذج رئيسي والحقل في نموذج فرعي
Me.فرعي.Form![الاسم الرباعي].SetFocus
SendKeys ("^(c)"), True
End Ifبارك الله بك
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي الفاضل : مالك
كل عام وانتم بخير
ورمضان كريم
اتبع الطريقة التالية :
1. افتح النموذج الفرعي واجعل التركيز على الإسم الرباعي ( بمعنى ان رقم الجدوله ( الترتيب ) له ستكون صفر )
2. انتقل الى النموذج الرئيسي وغير في الكود بحيث يكون التركيز فقط على النموذج الفرعي مع وضع مسار النموذج الفرعي كاملا بحيث تضع اسم النموذج الرئيسي ثم تضع اسم النموذج الفرعي
بالتوفيق
الاخت الكريمة زهرة
وانت بخير ان شاء الله
الطريقة ضبطت في مثال بسيط عملته
ولكن على برنامج الرئيسي الذي اعمل عليه لم تضبط ولا اعرف السبب
مشكوره
مع احترامي
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
malik2010 كتب:الاخت الكريمة زهرة
وانت بخير ان شاء الله
الطريقة ضبطت في مثال بسيط عملته
ولكن على برنامج الرئيسي الذي اعمل عليه لم تضبط ولا اعرف السبب
مشكوره
مع احترامي
تأكد من ان النموذج الرئيسي غير منبثق او شكلي او مشروط
بمعنى اجعله نموذج عادي
بالتوفيق
zahrah كتب:تأكد من ان النموذج الرئيسي غير منبثق او شكلي او مشروط
بمعنى اجعله نموذج عادي
بالتوفيق
اختي الكريمة لقد تاكدت ايضا من ذلك
بارك الله بك
مرفق نسخه مبسطه عن برنامجي بها المشكلة
ارجو الاطلاع عليه مع تبيان السبب
مع فائق الاحترام والتقدير
ورمضان كريم
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
بارك الله بك اختي ام عهود
وتقبل الله طاعتكم وكل عام وانتم بخير ان شاء الله
الذي لاحظته ان الكود في زر الامر تغير كلياً !!!!!!
كل الاحترام
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
بارك الله فيكِ ياأستاذتنا الفاضلة وشكراً على متابعتك للموضوع
كان غرضي فى طرح موضوع المشاركة هو الاستفادة من الكود لأستعماله برمجياً بدل الضغط يدوياً على مفتاح Ctrl+D .
وذلك في برنامج بسيط يعمل كدليل هاتف , يمكن من خلاله الأتصال بأي رقم هاتف عن طريق البلوتوث بجهاز الموبايل وذلك بعد التشغيل المسبق لبرنامج BluetoothPcDialerv3.1 الذي يقوم بآلية الأتصال بالموبايل عن طريق الكومبيوتر وبتقنية البلوتوث .
فمن مفاتيح الأختصار العاملة لهذا البرنامج ولغرض الأتصال الفوري برقم ما (وبعد أكمال اعداداته) , هو الضغط على مفتاحي مفتاح Ctrl+D بشرط ان يكون هناك رقم موبايل قد تم نسخه الى ذاكرة الكومبيوتر .
هنا اردت اختصار هذة الخطوة , فبدل الضغط يدوياّ على المفتاحين المذكورين , وضعت الكود مباشرة بعد عملية نسخ الرقم الى الذاكرة , ولكن الكود لايعمل !!!
في الوقت الذي يتم الاتصال فوراً اذا ماتم يديوياً !!
هل ممكن حل الأشكال مشكورةً ؟
رابط تحميل برنامج BluetoothPcDialerv3.1 Full
اخي الفاضل : ابو منتظر
السلام عليكم ورحمة الله وبركاته
اتبع الخطوات التالية حسب الشرح
1. عند فتح قاعدة البيانات سيتم فتح البرنامج بواسطة الكود التالي
Private Sub Form_Open(Cancel As Integer)
Shell ("C:\Program Files\Bluetooth PC Dialer\BluetoothPCDialer.exe")
End Subسيكون البرنامج مفتوح في شريط المهام مع قاعدة البيانات
2. نقوم بالضغط الآن دبل كليك على رقم الإتصال ليتم نسخه الى الحقل المطلوب الإتصال به ثم نضغط زر امر الإتصال ليتم نسخ الرقم المطلوب الى الذاكره
3. الآن نفتح البرنامج من شريط المهام بالضغط عليه بالماوس ثم نختار حقل رقم الإتصال في البرنامج بواسطة الماوس الأيمن ونختار لصق
وسيتم لصق الرقم الموجود في الذاكره الى الحقل ثم نقوم بالإتصال
لا اعتقد ان هذه الخطوات صعبة عليك فمن السهولة بمكان القيام بها خلال ثانية واحده
بالتوفيق
المرفقات
بارك الله فيكِ استاذتنا الفاضلة , شرح وافي وجزيل .
وكما وضحت فان برنامج الاتصال يعمل في الخلفية عند فتح نموذج الاكسس , وحسب الكود عند الفتح .
فعند النقر المزدوج على اي رقم يتم خزنه في الذاكرة , وعند استعمال مفتاح الأختصار Ctrl+D المتاح والمصمم للبرنامج كخطوة تالية, يتم لصق الرقم والأتصال به مباشرة .
ولكوني مدلّلأ :) :) :) :lol: ولا أريد أن أتعب نفسي بالضغط على مفتاح Ctrl+D يدوياً :) :) ومن باب الفضول
اضفت الكود
SendKeys ("^(d)"), Trueبعد الكود
DoCmd.RunCommand acCmdCopy
للحقل tele1 , ولكن عملية لصق الرقم في البرنامج لن تتم !!!!!
اردت السبب من عدم انجاز ذلك , مشكورةّ .
أبو منتظر كتب:بارك الله فيكِ استاذتنا الفاضلة , شرح وافي وجزيل .
وكما وضحت فان برنامج الاتصال يعمل في الخلفية عند فتح نموذج الاكسس , وحسب الكود عند الفتح .
فعند النقر المزدوج على اي رقم يتم خزنه في الذاكرة , وعند استعمال مفتاح الأختصار Ctrl+D المتاح والمصمم للبرنامج كخطوة تالية, يتم لصق الرقم والأتصال به مباشرة .
ولكوني مدلّلأ :) :) :) :lol: ولا أريد أن أتعب نفسي بالضغط على مفتاح Ctrl+D يدوياً :) :) ومن باب الفضول
اضفت الكود
SendKeys ("^(d)"), Trueبعد الكود
DoCmd.RunCommand acCmdCopyللحقل tele1 , ولكن عملية لصق الرقم في البرنامج لن تتم !!!!!
اردت السبب من عدم انجاز ذلك , مشكورةّ .
السبب بارك الله بك
هو ان امر Ctrl+D محجوز لبرنامج الإتصال اثناء تثبيته وعند تشغيله لا تستطيع استخدام هذا الأمر اثناء تشغيل البرنامج سواء كان البرنامج في الخلفية او ظاهرا في المقدمة
ولهذا حتى لا يحدث تعارض بين ما يقوم به المستخدم وبين ما تم برمجته لبرنامج الإتصال يتم الغاء اي امر يقوم به المستخدم كما في الكود المبرمج لك بإستخدام Crtl+D
بالتوفيق
توضّح الأمر
وبارك الله فيك استاذتناالقديرة, شمعة المنتدى .
لايسعني هنا سوى الدعاء لكِ في هذا الشهر الكريم بالمزيد من الموفقية والسداد وحسن العاقبة .