alhaithm

شكرا جزيلا لك

السلام عليكم لدي كود أحتاج لإختصار له If xProductID = 1650001 Or xProductID = 1650002 Or xProductID = 1650003 Or xProductID = 1650004 Or xProductID = 1650005 Then   ProductID = xProductID   بدلا من تكرار الرقم من 1650001 إلى 1650100 أريد اختصارا   

مطلوب كود لتغير لون الخط في حقل رقمي في النموذج وفي التقرير عندما يتحقق شرطان ، شرط في قيمة الحقل وشرط في قيمة حقل آخر في نفس النموذج. للتوضيح إذا كانت قيمة الحقل الحالي TR أكبر من 16 وكانت قيمة الحقل ANC في النموذج تساوي 1 فيجب أن يكون لون الخط في الحقل  TR أحمر ، ولكن إذا كانت أقل من 10 فيجب أن يكون لون الخط في الحقل TR أزرق وإذا كانت قيمة الحقل الحالي TR أكبر من 18 وكانت قيمة الحقل ANC في النموذج تساوي 2 فيجب أن يكون لون الخط في الحقل  TR أحمر ، ولكن إذا كانت أقل من 7 فيجب أن يكون لون الخط في الحقل TR أزرق   أرجو أن أحصل على هذا الكود مع تحياتي وتقديري  

الأخوة الأعزاء تظهر هذه الرسالة الإجرائية المرفقة في النموذج عند تنفيذ حدث ولا يتم  يتم تنفيذ هذا الحديث وذلك في أكسيس 2010 فقط بينما لا تظهر الرسالة بتاتا في أكسيس 2000  ويتم نفيذ الحدث أرجو المساعدة في تعطيل هذه الرسالة ولكم خالص التقدير ALARM.bmp

في قاعدة البيانات المرفقة يوجد زر طباعة على نموذج رئيس ، أريد أن يقوم هذا الزر بعد الكبس عليه بتعبئة جميع أسطر حقل في نموذج فرعي واسم الحقل Printed وأريد تعبئته بأي قيمة  مع تحياتي وتقديري DataUpdate.rar

السلام عليكم ورحمة الله وبركاته وكل عام وأنتم بخير   لعلي فهمت طلبك وهو مرفق تحياتي  UPDATE_PRICE Alhaithm1.rar

شكرا أختي الكريمة   نسخة 2000 وجدت أنها الأسرع والأخف في العمل عبر الشبكة ، لذلك أنا باقي عليها.   قد يحتاج هذا الأمر إلى بحث مطول لإزالة المعوقات.   عموما وكما أسلفت أن الأكواد كلها تعمل بعدما وضعت منها نسخة على النموذج الفرعي.   مشروعي القادم هوتحويل مالدي  إلى  MS SQL SERVER   ساحتاج إلى جهودكم.   تحياتي وتقديري

ركبت الكود التالي لتغعيل مفاتيح الاختصار ولكن بعضها لم يشتغل بالرغم من أنها جميعا تشتغل بالكبس على على الزر بالماوس   يا ترى من يفيدني عن السبب وجزاه الله خيرا     Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)  If KeyCode = 116 And Shift = 0 Then OCD_Click  End If  If KeyCode = 120 And Shift = 0 Then Print2_Click  End If  If KeyCode = 119 And Shift = 0 Then Print_Click  End If  If KeyCode = 113 And Shift = 0 ThenVisaPayee_Click End If If KeyCode = 122 And Shift = 0 ThenCashPayee_Click End If End Sub الذي لا يعمل هو 113 لمفتاح F2و 122 لمفتاح F11 

2000

أختي الكريمة   الأمر Print يعمل معي منذ سنوات بدون أي مشكلة وعلى كل حال غيرته إلى Print1  في كل النموذج والفورم وجاءت نفس الرسالة   فاستبعدت كل الآوامر الخاصة بأمر Print من النموذج وعملت Debug وقبل التصحيح لأرى إذا كان الكودات الأخرى ستعمل أم لا وكانت النتيجة أن أكواد الأمر 113 و 122 لم تعمل بينما عملت البقية

أختي الكريمة   وضعت الأكواد كما ذكرت ، ولكن عند الضغط على مصحح الأخطاء Debug  تظهر الرسالة التالية Compile error Invalid or Unqualified refrence ثم يضلل المؤشر على Me.Print.SetFocus

شكرا على اهتمامك   الأزرار كلها في النموذج الرئيس

الأستاذة الكريمة/ زهرة   شكرا جزيلا ، أنا سعيد بل  ومحظوظ لأنك من يرد على مواضيعي ، بل عندما أضع موضوعا تكون أمنيتي لحظتها أن يكون أنتي المجيب فيكون ذلك ، فالحمد الله.   الكود الذي أوردته أعلاه يعمل بشكل طبيعي إلا على 113 وهو F2  و 122 وهو F11   ولكنك إجابتك ألهمتني أن المشكلة ليست في الكود ، فتنبهت. إلى أن الكود لا يعمل إذا كان المؤشر متوقف لحظتها في النموذج الفرعي أما إذا وضعت مؤشر الماوس على أي حقل في النموذج الرئيس فإن الكود يعمل بنجاح.   فنسخت  أوامر زر 113 و 122 مع كود التنفيذ للزر إلى النموذج الفرعي فأصبح يعمل بنجاح من أي مكان يكون فيه المؤشر سواء في النموذج الرئيس أو الفرعي.   فهل يوجد لديك حلا أبسط من هذا ، فإن كان فهاتيه ، ففيه فائدة لهذا ولغيره مستقبلا.   تمنياتي لك بالتوفيق والنجاح   أخوك/الهيثم

شكرا أخي    استفدت من المثال الذي أعدته الأخت زهرة الذي أرفقت بعاليه   فشكرا لك والشكر والتقدير للاستاذة الكريمة زهرة على كل ماتقدمه

الأخوة الأعزاء   بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 8 (32 بيت و 64 بت)   فهل من منجد لتعديله للعمل مع وندوز 8.1 (32 بت)   Private Sub OpenKey_Click() On Error GoTo Err_OpenKey_Click ' Dim RetVal' RetVal = Shell("C:\WINDOWS\System32\osk.exe", 1)      Dim stAppName As String     stAppName = "C:\WINDOWS\System32\osk.exe"    Call Shell(stAppName, 1) ' Call Shell("osk.exe", 1) Exit_OpenKey_Click:    Exit Sub Err_OpenKey_Click:    MsgBox Err.Description    Resume Exit_OpenKey_Click    End Sub

شكرا أختي الكريمة الأستاذة / زهرة   مبدعة دائما وصبورة   رائع جدا زر الكاتيجوري وتلوين الأزرار رائع أخذت به   جزاك الله خيرا ووفقك ورفع من شأنك في الدنيا والآخرة

بسم الله والصلاة والسلام على رسول الله    في قاعدة البيانات المرفقة وعلى النوذج الفرعي المرتبطة بالرئيس مطلوب الآتي: عندما نختار الفئة من مربع سرد وتحرير الفئة يجب الا تظهر في مربع سرد وتحرير الصنف إلا ما ينتمي لتك الفئة المختارة وهكذا كلما تختار الفئةفي السطر التالي تتغير محتويات حقل الصنف تبعا للفئة SWaida.rar أرجو أن يكون الحل بسيطا تحياتي

ممتاز تم المطلوب ، جزاك الله خيرا أختي الكريمة زهرة ، ندعوا لك بظهر الغيب باللفظ قبل الكتابة.   بعد التطبيق العملي تظهر بعض الحاجات منها أن فتح القوائم المنسدلة (مربع التحرير والسرد) عبر شاشة اللمس صعب نظرا لصغر سهم فتح القائمة مع كبر الأصابع وعدم وجود لوحة مفاتيح وماوس. فهل ممكن فتح أي قائمة منسدلة بكبسة زر على النموذج الفرعي ، مثل زر الهروب الذي عملتيه.   تحياتي وتقديري لك

شكرا أختي الكريمة زهرة   هذا المطلوب   ملاحظة : هذا هو النموذج الذي عملتي عليه أزرار الأرقام سابقا ، وجتد به مشكلة لم أتنبه لها إلا الآن وهي موجودة في النموذج من الأول قبل الإضافة الثانية وهي عند فتح النموذج يفتح سطر جديد خالي في النوذج الفرعي فقط عندما لا يكون في الجدول أي سجل يعني في السجل الأول فإذا أدخلنا البيانات في الجدول مباشرة قبلها ، ثم يقبل بعد ذلك الإدخال عبر النموذج (يعني أول سجل لا يمكن إدخاله عبر النموذج) إذا جربتي ووجدتي حلا إسعفيني   تحياتي وتقديري لك

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

السلام عليكم ورحمة الله وبركاته   في قاعدة البيانات المرفقة والمصممة على أكسيس 2000 وعلى النموذج المسمى s وضعت أزرار أرقام لتستخدم كلوحة مفاتيح لكتابة الكمية في النموذج  ومسح الرقم عند الخطأ، هذه الأزرار بحاجة لكود حتى تتفعل فهل من متطوع لعمل هذا الكود. مرفق قاعدة البيانات Just.rar

شكري وتقديري لك عمل الكود بالشكل المطلوب أسأل الله الجواد الكريم أن يجعل ذلك في ميزان حسناتك فتكون كالجبال من حيث لا تعلمي   وسوف أقوم بتجربته على شاشة لمس لاحقا   أطمع في كود بسيط لصناعة زر الهروب ESC على النموذج وليس الغرض منه عمل تراجع ولكن عندما ينتقل المستخدم إلى سطر جديد وقد تجاوز حقل مطلوب لا يمكنه عمل أي شئ إلا بالضغط على زر الهروب أريد خصائص هذا الزر على النموذج   وقد علمتي الآن أنني سوف أزيل لوحة المفاتيح والماوس نهائيا من الكمبيوتر ليكون الاستخدام من شاشة لمس فقط فإن كان لك ملاحظات أو إضافات على النموذج موضوع الطلب فأرجو أن تتكرمي علينا بها   تمنياتي لك بالتوفيق

الأخت الكريمة تحية طيبة وبعد:   كل من يعرف قدراتك يتمنى أن تكوني أنت من يقرأ موضوعة ويلبي طلبه ، وأنا عندما أضع موضوعا أتمنى دوما أن يكون أنتي المجيب فتتحقق أماني دوما فالحمد لله   الملف بعد تعديلك حملته وجربته ، ويبدو لي أنك كنت على عجالة لمشاغلك  .   يحتفظ حقل الكمية بالكمية السابقة ويضيف بجوارها كمبية الطلب الجديد ، مرفق صورة لما أعنيه   إذا كان موضوع وجود صفر كقيمة افتراضية في حقل الكمية يسبب إشكالا أو يعقد الكود البرمجي فلا لزوم له فلتكن القيمة الافتراضية لحقل الكمية فارغة وهو الأفضل   تحياتي لك وتمنياتي لك بالتوفيق

Just2.rar

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