alsihran

تم حل المشكلة بتغيير معادلة الكود 

 If (Not IsNull(Forms![Form1]![Text0])) And IsNull(Forms![Form1]![Text4]) Or (Forms![Form1]![Text4] = "") Then

شكرا لكم جميعا 

5 دقائق مضت, kanory said:

نت وضع شرط للبرنامج لابد ان يكون رقم PC واحدة من الارقام الموجودة في الجدول الموجود في الصورة وفي حالة Text4 خالي تظهر الرسالة انت حدد ذلك للبرنامج

الظاهر اني ما قدرت اوضح المشكلة بالشكل الطلوب

استاذنا 

لم يكون التركيز على حقل الارقام وانقر على حرف تظهر الرسالة 

والمفروض عند ادخال حرف ما يستجيب مربع النص لأي حدث 

6 دقائق مضت, kanory said:

ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟

الرسالة يجب ان تظهر لكن بعد ادخال الرقم ويكون غير موجود بالجدول 

16 ساعات مضت, kanory said:

ستخدم هذا الكود ......

شكرا لك 

الكود يعمل بشكل صحيح لحقل الارقام

لكن ظهرت مشكلة

عندي في نفس مربع النص حدث بعد التحديث عند النقر على اي حرف تظهر الرسالة الموجودة في حدث بعد التحديث

ارجو حل هذه الجزئية 

5 ساعات مضت, jjafferr said:

واذا عندك لوحة مفاتيح كبيرة ، فهذه ارقام ارقامها ، ويجب اضافتها للكود :

شكر لك 🌷

nbm1.rar

السلام عليكم 

المطلوب مربع النص الاول عدم الاستجابة اذا تم ادخال حروف والاستجابة عند  ادخال ارقم 

ومربع النص الثاني يكون العكس

nbm.accdb

6 دقائق مضت, ابا جودى said:

ولا يهمك اتفضل

انا جربت المرفق  وكل شئ تمام

اعتذر انا بس تعبان شوى ومش مركز

تمام الان 

الله يعطيك العافية 

لو تكرمت تخبرني وين كان الخلل لان عندي برامج ثانية فيها نفس المشكلة

17 دقائق مضت, ابا جودى said:

تم تعديل المرفق

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

4 دقائق مضت, ابا جودى said:

ممكن تجرب المرفق ده

الزر اصبح يعمل ويتم فتح النافذة 

لكن  عند اختيار قاعدة بيانات لايتم ادراج مسارها في مربع النص 

16 دقائق مضت, ابا جودى said:

طيب لو تكرنت تتفضل بتحربة المرفق الاتى سوف يتم وضع الاختصار للبرنامج فى القطاع   D

40 دقائق مضت, jjafferr said:

وما بتصادف اي مشكلة

حياك الله استاذ

بالنسبة لأسماء الشهور وكيف راح استدعيها من الكمبو بوكس مع راح اعرف اسويها لو قعدت سنة كاملة لأن برنامج تقويم أم القرى 

ضخم وفيها اكواد كثيرة ويعتمد على متى يتم استدعاء الشهر والتاريخ بالعربي ومتى يتم استدعائهم

باللغة الانجليزية وعلى اي تقويم ميلادي او هجري او ام القرى الموضوع شائك جدا جدا بالنسبة لي 

40 دقائق مضت, jjafferr said:

خليني اوضح لك نقطة انت محتار فيها ، والاكواد اعلاه تخليك تضيع اكثر :

 

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

ما عرفت ادمج الرسالة مع الدوال 

هل وجدت حل لهذه المشكلة يا استاذ @jjafferr

up

15 ساعات مضت, ابا جودى said:

 اتفضل انا استخدم هذا الروتين فى تنقيذ الشورت كت

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة 

السلام عليكم 

بعد تركيب Access 64bit توقف زر فتح نافذة فتح ملف في جميع برامجي 

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

تفعيل وإلغاء الشفت.rar

34 دقائق مضت, ابا جودى said:

انا عدلت الكود من خلال الموبايل اعتذر لعدم وجود مرفق

طلع عندي نفس الخطأ اللي بالكود السابق 

واذا جعلت اسم الاختصار بالانجليزي يشتغل تمام

الان, ابا جودى said:

جربتها وتمام الحمد لله ...

هل تم حل مشكلتك

100/%

بارك الله فيك 

وبما ان احنا في نفس الموضوع 

ياليت تشوف لي هذا الكود خاص بعمل اختصار على سطح المكتب مايقبل الترميز مش عارف ليه 

    DB_Name = Application.CurrentProject.Name
    DB_Path = Application.CurrentProject.Path
    icon_Name = "Arc5.ico"
    icon_Path = Application.CurrentProject.Path
   ' icon_Name_Path = icon_Path & "\" & icon_Name
 icon_Name_Path = icon_Path & "\icon\" & icon_Name
With CreateObject("WScript.Shell")
  With .CreateShortcut(.SpecialFolders("Desktop") & "\البرنامج.lnk")
    .TargetPath = DB_Path & "\" & DB_Name
    .WindowStyle = 1
    .Hotkey = ""
    .IconLocation = icon_Name_Path
    .Description = "برنامج  "
    .WorkingDirectory = DB_Path & "\"
      .Save
  End With
End With

17 دقائق مضت, ابا جودى said:

تفضل ☺️

الله يتفضل عليك 

تسلم شاكر ومقدر لك 

15 دقائق مضت, ابا جودى said:

اتفضل التطبيق الذى يساعدك ع التحويل 

شكرا لك أخ محمد 

حاولت التطبيق ولم انجح أتمنى منك التعديل على الأكواد المشار اليها 

السلام عليكم 

بالمرفق تقويم أم القرى 

في الفورم Cal

توجد هذه الاكواد 

    Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _
                            "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة"

    Me.cboMonth.RowSource = "1;January;يناير;2;February;فبراير;3;March;مارس;4;April;أبريل;5;May;مايو;6;June;" & _
                            "يونيو;7;July;يوليو;8;August;أغسطس;9;September;سبتمبر;10;October;أكتوبر;11;November;نوفمبر;12;December;ديسمبر"

    Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _
                            "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة"

وبسبب مشاكل اللغة العربية في الاكود اريد تغيير اسماء الاشهر باللغة العربية الى الترميز العالمي 

UmAlQuraUp.mdb

6 ساعات مضت, jjafferr said:

مادمت في اول الطريق في هذا الاتجاه ، فقلتها وأقول لك نصيحة من واحد ابيضّت لحيته في طريق الاكسس : اكتب الرسالة اللي تريدها بالعربي في الجدول ، ثم نادها عن طريقة رقم الرسالة عن طريق الامر Dlookup وانا وضعت لك رابط امثلة استعماله 🙂 

والله انا مقتنع بكل كلمة تقولها لكن المشكلة احسها شائكة علي بما أني في بداية الطريق 

مثلا عجزت عن تنفيذ الرسالة برسالة نعم  لا مع تنفيذ الشرط 

اذا كان نعم يفتح النموذج واذا كان لا يلغي الأمر 

انظر المرفق 

عبارة عن برنامجك اضفت له نموذج Form1 وضعت به 2 زر أمر 

زر أمر بالطريقة العادية وزر أمر بطريقتك 

لكن فشلت بتنفيذ الدالة Response بطريقتك 

msg.rar

Up

39 دقائق مضت, jjafferr said:

وعلشان خاطرك عملتها لك ، وبدل Debug.Print استعمل msgbox :

كبرت الصورة وشفتها لكن تظهر المسج لكلمة موافق 

لوكان المسج نعم لا كيف نعمل .....؟

22 دقائق مضت, jjafferr said:

هذه احد الطرق ، ولكن مافي داعي استعمالها ، لأنك ستضع في الجدول الجملة بالعربي ،

دخت وما عرفت اطبق شي احس راسي بينفجر

وقلت استخدم تحويل الى اسكاي اسهل لي 

22 دقائق مضت, jjafferr said:

وعلشان خاطرك عملتها لك ، وبدل Debug.Print استعمل msgbox :

😂 الصورة صغيرة ما شفت شي

19 ساعات مضت, jjafferr said:

1. اليك رابط آخر قد يفيدك:

والله ما اخفيك لم غيرت لغة الاكسس ولغة جهازي صار البرنامج يظهر فيه اخطاء كثيرة وماعاد يشتغل 

موب عارف هل اعيد برمجته هذا امر متعب الكائنات كثيرة 

طيب

لو سمحت استاذي ارجو تطببيق تحويل هذه الشفرة الى نص واستدعائها في  بالرسالة من خلال الزر اللي موجود بالنموذج بالمرفقات  لاني بحثت وما لقيت 

شي 

chr(202) & chr(227) & chr(32) & chr(202) & chr(228) & chr(221) & chr(237) & chr(208) & chr(32) & chr(199) & chr(225) & chr(200) & chr(209) & chr(228) & chr(199) & chr(227) & chr(204) & chr(32) & chr(200) & chr(228) & chr(204) & chr(199) & chr(205)

msg.accdb

منذ ساعه, jjafferr said:

لجعل برنامجك يعمل على جميع الكمبيوترات :

شكرا لك استاذنا على مرورك واجابتك 

1 ساعه مضت, jjafferr said:

1. اعمله بأقل اصدارات الاكسس ، مثلا 2003 ، وإلا ، فالبرامج المعمولة على اكسس 2007 فما فوق ، لن تعمل مع الاكسس 2003 ،

هذي مش مشكلة لان جميع الاجهزة التي سيعمل عليها البرنامج اصدار الاكسس 2013 فما فوق 64bit

1 ساعه مضت, jjafferr said:

2. نصب الاكسس الانجليزي ، ومافي مانع تنصب معاه حزمة اللغة العربية ،

هل المقصود تنصيب على الجهاز الذي سيتم عمل البرنامج عليه ام المستخدم ؟

1 ساعه مضت, jjafferr said:

3. جميع اسماء الكائنات (وليس البيانات) يجب ان تكون باللغة الانجليزية ، ومافي مشكلة في ان تكون المسميات Caption باللغة العربية ،

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

1 ساعه مضت, jjafferr said:

4. لا تكتب في الكود إلا باللغة الانجليزية 🙂

هل الشرح على الكود ينطبق عليه هذا الامر 

مثل 

'اهذا الكود لعمل الحفظ 

1 ساعه مضت, jjafferr said:

وهذا موضوع شبيه بموضوعك :

صراحه الموضوع توهني 

فهناك كلام عن طريقتك في استدعاء المسميات والرسائل باللغة العربية وهي على ما اعتقد صعبه على مبتدأ مثلي 

ولا اعرف كيف سأحفظها بالجدول وكيف سأستدعيها 

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

او وضعها في الكود 

أتمنى استاذي تفصل لي في الموضوع بالتفصيل  الممل 

وتتحمل أسألتي لاني بصراحه تعبت مع البرنامج وأصبت بخيبة الامل عندما اشتغل على اجهزة ولم يشتغل مع الاجهزة أخرى 

ولا يمكن تعديل لغة الاجهزة بسبب صلاحيات المستخدمين