-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-
-
عدد المشاركات
165 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
0 عاديعن alhaithm
-
الرتبة
عضو
- تاريخ الميلاد 10/18/1958
طرق الإتصال
- MSN alhaithm
-
Website URL
http://www.alhaithm
.com - ICQ 0
- Yahoo alhaithm
معلومات الملف الشخصي
- الجنس ذكر
- الدولة : Al-Ain U.A.E.
- اهتمامات Programming
أحدث الزائرين لملفلك الشخصي
-
السلام عليكم ورحمة الله وبركاته أعزائي الكرام أريد تعديل على الكود أدناه بحيث يقوم بتقسيم ما يقرأة قاري الباركود من أرقام في حقلين يضع في الحقل الأول الأرقام الستة الأولى من الباركود ، ويضع بقية الأرقام في حقل السعر علما بأن ما يوضع على حقل السعر قد يحتوي مبالغ على النحو الآتي: 2972.00 أو 972.05 أو ، 75.15 أو 1.14 أو .052 والباكود كاملا يكون بهذا الشكل: 2150023942.75 21500357.75 2150045.77 215005267.75 الأزرق هو كود الصنف والأسود السعر مرفق قاعدة بيانات بها كود صممته العملاقة زهرة سنة 2012 لنفس قاعدة البيانات ولكن كانت مهمته تقسيم الباكورد على 3 حقول (رمز الصنف و الكمية و السعر) وقد أجريت على كود زهرة التعديل أدناه وقد نجح هذا التعديل ولكن ظلت مشكلة الفلسات يتجاهلها قارئ الباركود Dim xProductID, xSalesPrice xProductID = Mid([ProductID], 1, 6) xSalesPrice = Format(Mid([ProductID], 7, 4), "0000") If xProductID = 215002 Or xProductID = 215003 Or xProductID = 215004 Then ProductID = xProductID SalesPrice = xSalesPrice za-Exam-UP2.rar za-Exam-UP2.rar
-
السلام عليكم لدي كود أحتاج لإختصار له If xProductID = 1650001 Or xProductID = 1650002 Or xProductID = 1650003 Or xProductID = 1650004 Or xProductID = 1650005 Then ProductID = xProductID بدلا من تكرار الرقم من 1650001 إلى 1650100 أريد اختصارا
-
كود تغيير لون الخط في حقل في نموذج وتقرير بشرطين
alhaithm posted سؤال in قواعد بيانات Microsoft Access
مطلوب كود لتغير لون الخط في حقل رقمي في النموذج وفي التقرير عندما يتحقق شرطان ، شرط في قيمة الحقل وشرط في قيمة حقل آخر في نفس النموذج. للتوضيح إذا كانت قيمة الحقل الحالي TR أكبر من 16 وكانت قيمة الحقل ANC في النموذج تساوي 1 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 10 فيجب أن يكون لون الخط في الحقل TR أزرق وإذا كانت قيمة الحقل الحالي TR أكبر من 18 وكانت قيمة الحقل ANC في النموذج تساوي 2 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 7 فيجب أن يكون لون الخط في الحقل TR أزرق أرجو أن أحصل على هذا الكود مع تحياتي وتقديري -
الأخوة الأعزاء تظهر هذه الرسالة الإجرائية المرفقة في النموذج عند تنفيذ حدث ولا يتم يتم تنفيذ هذا الحديث وذلك في أكسيس 2010 فقط بينما لا تظهر الرسالة بتاتا في أكسيس 2000 ويتم نفيذ الحدث أرجو المساعدة في تعطيل هذه الرسالة ولكم خالص التقدير ALARM.bmp
-
تعبئة حقل في نموذج فرعي بكبسة زر في نموذج رئيس
alhaithm posted سؤال in قواعد بيانات Microsoft Access
في قاعدة البيانات المرفقة يوجد زر طباعة على نموذج رئيس ، أريد أن يقوم هذا الزر بعد الكبس عليه بتعبئة جميع أسطر حقل في نموذج فرعي واسم الحقل Printed وأريد تعبئته بأي قيمة مع تحياتي وتقديري DataUpdate.rar -
تحديث السعر دون تغيير السعر القديم فى الفواتير
alhaithm رد على khaledhelmy's موضوع في قواعد بيانات Microsoft Access
السلام عليكم ورحمة الله وبركاته وكل عام وأنتم بخير لعلي فهمت طلبك وهو مرفق تحياتي UPDATE_PRICE Alhaithm1.rar -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
شكرا أختي الكريمة نسخة 2000 وجدت أنها الأسرع والأخف في العمل عبر الشبكة ، لذلك أنا باقي عليها. قد يحتاج هذا الأمر إلى بحث مطول لإزالة المعوقات. عموما وكما أسلفت أن الأكواد كلها تعمل بعدما وضعت منها نسخة على النموذج الفرعي. مشروعي القادم هوتحويل مالدي إلى MS SQL SERVER ساحتاج إلى جهودكم. تحياتي وتقديري -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
2000 -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
أختي الكريمة الأمر Print يعمل معي منذ سنوات بدون أي مشكلة وعلى كل حال غيرته إلى Print1 في كل النموذج والفورم وجاءت نفس الرسالة فاستبعدت كل الآوامر الخاصة بأمر Print من النموذج وعملت Debug وقبل التصحيح لأرى إذا كان الكودات الأخرى ستعمل أم لا وكانت النتيجة أن أكواد الأمر 113 و 122 لم تعمل بينما عملت البقية -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
أختي الكريمة وضعت الأكواد كما ذكرت ، ولكن عند الضغط على مصحح الأخطاء Debug تظهر الرسالة التالية Compile error Invalid or Unqualified refrence ثم يضلل المؤشر على Me.Print.SetFocus -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
شكرا على اهتمامك الأزرار كلها في النموذج الرئيس -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
الأستاذة الكريمة/ زهرة شكرا جزيلا ، أنا سعيد بل ومحظوظ لأنك من يرد على مواضيعي ، بل عندما أضع موضوعا تكون أمنيتي لحظتها أن يكون أنتي المجيب فيكون ذلك ، فالحمد الله. الكود الذي أوردته أعلاه يعمل بشكل طبيعي إلا على 113 وهو F2 و 122 وهو F11 ولكنك إجابتك ألهمتني أن المشكلة ليست في الكود ، فتنبهت. إلى أن الكود لا يعمل إذا كان المؤشر متوقف لحظتها في النموذج الفرعي أما إذا وضعت مؤشر الماوس على أي حقل في النموذج الرئيس فإن الكود يعمل بنجاح. فنسخت أوامر زر 113 و 122 مع كود التنفيذ للزر إلى النموذج الفرعي فأصبح يعمل بنجاح من أي مكان يكون فيه المؤشر سواء في النموذج الرئيس أو الفرعي. فهل يوجد لديك حلا أبسط من هذا ، فإن كان فهاتيه ، ففيه فائدة لهذا ولغيره مستقبلا. تمنياتي لك بالتوفيق والنجاح أخوك/الهيثم -
بعض أوامر الفيجول على النموذج تعمل والبعض لا يعمل لماذا
alhaithm posted سؤال in قواعد بيانات Microsoft Access
ركبت الكود التالي لتغعيل مفاتيح الاختصار ولكن بعضها لم يشتغل بالرغم من أنها جميعا تشتغل بالكبس على على الزر بالماوس يا ترى من يفيدني عن السبب وجزاه الله خيرا 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 -
alhaithm أعطى سمعة إيجابية لــ إجابة على سؤال: فتح تطبيق من داخل الأكسيس في وندوز 8.1
-
فتح تطبيق من داخل الأكسيس في وندوز 8.1
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
شكرا أخي استفدت من المثال الذي أعدته الأخت زهرة الذي أرفقت بعاليه فشكرا لك والشكر والتقدير للاستاذة الكريمة زهرة على كل ماتقدمه