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   ساحتاج إلى جهودكم.   تحياتي وتقديري

2000

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

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

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

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

ركبت الكود التالي لتغعيل مفاتيح الاختصار ولكن بعضها لم يشتغل بالرغم من أنها جميعا تشتغل بالكبس على على الزر بالماوس   يا ترى من يفيدني عن السبب وجزاه الله خيرا     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 

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

الأخوة الأعزاء   بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 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