• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

alhaithm

اعضاء
  • عدد المشاركات

    162
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن alhaithm

  • الرتبة
    عضو
  • تاريخ الميلاد 10/18/1958

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : Al-Ain U.A.E.
  • اهتمامات Programming
  1. مطلوب كود لتغير لون الخط في حقل رقمي في النموذج وفي التقرير عندما يتحقق شرطان ، شرط في قيمة الحقل وشرط في قيمة حقل آخر في نفس النموذج. للتوضيح إذا كانت قيمة الحقل الحالي TR أكبر من 16 وكانت قيمة الحقل ANC في النموذج تساوي 1 فيجب أن يكون لون الخط في الحقل  TR أحمر ، ولكن إذا كانت أقل من 10 فيجب أن يكون لون الخط في الحقل TR أزرق وإذا كانت قيمة الحقل الحالي TR أكبر من 18 وكانت قيمة الحقل ANC في النموذج تساوي 2 فيجب أن يكون لون الخط في الحقل  TR أحمر ، ولكن إذا كانت أقل من 7 فيجب أن يكون لون الخط في الحقل TR أزرق   أرجو أن أحصل على هذا الكود مع تحياتي وتقديري  
  2. الأخوة الأعزاء تظهر هذه الرسالة الإجرائية المرفقة في النموذج عند تنفيذ حدث ولا يتم  يتم تنفيذ هذا الحديث وذلك في أكسيس 2010 فقط بينما لا تظهر الرسالة بتاتا في أكسيس 2000  ويتم نفيذ الحدث أرجو المساعدة في تعطيل هذه الرسالة ولكم خالص التقدير ALARM.bmp
  3. في قاعدة البيانات المرفقة يوجد زر طباعة على نموذج رئيس ، أريد أن يقوم هذا الزر بعد الكبس عليه بتعبئة جميع أسطر حقل في نموذج فرعي واسم الحقل Printed وأريد تعبئته بأي قيمة  مع تحياتي وتقديري DataUpdate.rar
  4. السلام عليكم ورحمة الله وبركاته وكل عام وأنتم بخير   لعلي فهمت طلبك وهو مرفق تحياتي  UPDATE_PRICE Alhaithm1.rar
  5. شكرا أختي الكريمة   نسخة 2000 وجدت أنها الأسرع والأخف في العمل عبر الشبكة ، لذلك أنا باقي عليها.   قد يحتاج هذا الأمر إلى بحث مطول لإزالة المعوقات.   عموما وكما أسلفت أن الأكواد كلها تعمل بعدما وضعت منها نسخة على النموذج الفرعي.   مشروعي القادم هوتحويل مالدي  إلى  MS SQL SERVER   ساحتاج إلى جهودكم.   تحياتي وتقديري
  6. أختي الكريمة   الأمر Print يعمل معي منذ سنوات بدون أي مشكلة وعلى كل حال غيرته إلى Print1  في كل النموذج والفورم وجاءت نفس الرسالة   فاستبعدت كل الآوامر الخاصة بأمر Print من النموذج وعملت Debug وقبل التصحيح لأرى إذا كان الكودات الأخرى ستعمل أم لا وكانت النتيجة أن أكواد الأمر 113 و 122 لم تعمل بينما عملت البقية
  7. أختي الكريمة   وضعت الأكواد كما ذكرت ، ولكن عند الضغط على مصحح الأخطاء Debug  تظهر الرسالة التالية Compile error Invalid or Unqualified refrence ثم يضلل المؤشر على Me.Print.SetFocus
  8. شكرا على اهتمامك   الأزرار كلها في النموذج الرئيس
  9. الأستاذة الكريمة/ زهرة   شكرا جزيلا ، أنا سعيد بل  ومحظوظ لأنك من يرد على مواضيعي ، بل عندما أضع موضوعا تكون أمنيتي لحظتها أن يكون أنتي المجيب فيكون ذلك ، فالحمد الله.   الكود الذي أوردته أعلاه يعمل بشكل طبيعي إلا على 113 وهو F2  و 122 وهو F11   ولكنك إجابتك ألهمتني أن المشكلة ليست في الكود ، فتنبهت. إلى أن الكود لا يعمل إذا كان المؤشر متوقف لحظتها في النموذج الفرعي أما إذا وضعت مؤشر الماوس على أي حقل في النموذج الرئيس فإن الكود يعمل بنجاح.   فنسخت  أوامر زر 113 و 122 مع كود التنفيذ للزر إلى النموذج الفرعي فأصبح يعمل بنجاح من أي مكان يكون فيه المؤشر سواء في النموذج الرئيس أو الفرعي.   فهل يوجد لديك حلا أبسط من هذا ، فإن كان فهاتيه ، ففيه فائدة لهذا ولغيره مستقبلا.   تمنياتي لك بالتوفيق والنجاح   أخوك/الهيثم
  10. ركبت الكود التالي لتغعيل مفاتيح الاختصار ولكن بعضها لم يشتغل بالرغم من أنها جميعا تشتغل بالكبس على على الزر بالماوس   يا ترى من يفيدني عن السبب وجزاه الله خيرا     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 
  11. شكرا أخي    استفدت من المثال الذي أعدته الأخت زهرة الذي أرفقت بعاليه   فشكرا لك والشكر والتقدير للاستاذة الكريمة زهرة على كل ماتقدمه
  12. الأخوة الأعزاء   بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 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
  13. شكرا أختي الكريمة الأستاذة / زهرة   مبدعة دائما وصبورة   رائع جدا زر الكاتيجوري وتلوين الأزرار رائع أخذت به   جزاك الله خيرا ووفقك ورفع من شأنك في الدنيا والآخرة
  14. ممتاز تم المطلوب ، جزاك الله خيرا أختي الكريمة زهرة ، ندعوا لك بظهر الغيب باللفظ قبل الكتابة.   بعد التطبيق العملي تظهر بعض الحاجات منها أن فتح القوائم المنسدلة (مربع التحرير والسرد) عبر شاشة اللمس صعب نظرا لصغر سهم فتح القائمة مع كبر الأصابع وعدم وجود لوحة مفاتيح وماوس. فهل ممكن فتح أي قائمة منسدلة بكبسة زر على النموذج الفرعي ، مثل زر الهروب الذي عملتيه.   تحياتي وتقديري لك