-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-
-
عدد المشاركات
165 -
تاريخ الانضمام
-
تاريخ اخر زياره
كل شيء نشر بواسطة alhaithm
-
السلام عليكم ورحمة الله وبركاته أعزائي الكرام أريد تعديل على الكود أدناه بحيث يقوم بتقسيم ما يقرأة قاري الباركود من أرقام في حقلين يضع في الحقل الأول الأرقام الستة الأولى من الباركود ، ويضع بقية الأرقام في حقل السعر علما بأن ما يوضع على حقل السعر قد يحتوي مبالغ على النحو الآتي: 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 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 رد على 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 مع كود التنفيذ للزر إلى النموذج الفرعي فأصبح يعمل بنجاح من أي مكان يكون فيه المؤشر سواء في النموذج الرئيس أو الفرعي. فهل يوجد لديك حلا أبسط من هذا ، فإن كان فهاتيه ، ففيه فائدة لهذا ولغيره مستقبلا. تمنياتي لك بالتوفيق والنجاح أخوك/الهيثم -
فتح تطبيق من داخل الأكسيس في وندوز 8.1
alhaithm رد على alhaithm's موضوع في قواعد بيانات Microsoft Access
شكرا أخي استفدت من المثال الذي أعدته الأخت زهرة الذي أرفقت بعاليه فشكرا لك والشكر والتقدير للاستاذة الكريمة زهرة على كل ماتقدمه -
الأخوة الأعزاء بأدناه أكواد فتح أحد تطبيقات وندوز للفتح من داخل الأكسيس ، وهذا الأكواد تعمل كلا على حدة مع وندوز إكس بي فقط ولاتعمل مع وندوز 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