رمهان

اخي السائل معليش : لماذا وضعت الثلاث خيارات في نموذج فرعي . مع العلم انه يمكن وضعها في النموذج الرئيسي بدل مربعات النص! اقصد انا مش شايف فائدة من وضعها في نموذج فرعي ! تحياتي

مادام الاستاذ رمهان حامل الراية ، نريد الحل بالمعكوس كذلك ، يعني نتكلم بالعربي ، والبرنامج يحول الكلام الى نص بس قبل لا أخونا أبوخليل يعطيني كرت أحمر (طبعا أخونا عبدالرحمن عنده الصلاحية بعد ) ، لخروجنا عن الموضوع ، ويحتاج نفتح موضوع جديد عندكم الصلاحية لفصل الموضوع لاحقا لوسمحتوا ، اذا أخونا الاستاذ رمهان تكرم بالاجابة جعفر اهلا بك اخي الاستاذ جعفر هنا اقول رمهان مش قد مسئولية الموضوع هذا ليحمل الراية وعذراً ! احيانا الصراحة زينة !! ويظهر لي انك ستفيدنا استاذ جعفر هنا ! تنبيه : الموضوع يجب ان ننظر له كبحث عن معلومة وليس كتطوير ! لانه موضوع تطوير او كيف نجعل الويندوز يقرأ عربي هو بمثابة بحث ولا اخفيكم تسابقة له شركات كبيرة واتوقع الاخوة من مصر لهم الحصة الاكبر في ذلك ! وهذه احدى الشركات http://www.rdi-eg.com/ اذاً ننظر للموضوع كبحث عن معلومة فقط ونقول: ياميكروسوفت هل انتي لديك مكتبة خاصة للتحدث بالعربي ! وهنا انا قمت بارسال ايميل لميكروسوفت وللقسم الخاص بذلك وانتظر الرد وطبعا اوافيكم به ان شاء الله ! تحياتي

في اقرب فرصة ان شاء الله !

اخي مستر ستيف اتوقع لابد ان يكون اللغة موجودة لديك وهنا لاحظ في الريجيستري يوجد الانجليزي ! هل ممكن نحول للعربي الله اعلم هذا الشرح https://msdn.microsoft.com/en-us/library/hh362866%28v=office.14%29.aspx ولي عودة ان شاء الله تحياتي

وجزاكم الله بالمثل واكثر ..

اخي وائل : انت راضي ومبسوط على الطريقة .. انتهى .. فهو معيار النجاح ! تحياتي

اخي السؤال غير واضح ماذا تريد ان تعمل هل تعرف ماهي dao تحياتي

تفضل لاحظ: النظام يشيك اولا على محتوى t1 فاذا وجد - نمر بشروطها او less than ويمر بشروطها ! Private Sub t2_AfterUpdate() If InStr(1, [t1], "-") > 0 Then If (Val([t2]) > Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) > Val(Left([t1], InStr(1, [t1], "-") - 1))) Then t2.BackColor = vbRed ElseIf (Val([t2]) < Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) < Val(Left([t1], InStr(1, [t1], "-") - 1))) Then t2.BackColor = vbBlue Else t2.BackColor = vbWhite Exit Sub End If End If If InStr(1, [t1], "than ") > 0 Then If Val([t2]) >= Val(Right([t1], Len([t1]) - 10)) Then t2.BackColor = vbRed Else t2.BackColor = vbWhite End If End If End Sub بالتوفيق

تفضل بالتوفيق TT.rar

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

اخي وائل : استفساراتي هي احد وسائل تحليل الانظمة ! اريد فقط الجواب : معناته لو طلب الزبون الصنف 1001 ثم 1002 سيكون 1002 اخر الفاتورة ! بعد فترة رجع لك وقال زود الطلب على 1002 ! هنا لن ندرج سجل جديد ! سنعدل على الكمية الموجودة ! يعني نفس شغلنا القديم ! الملخص : لا يفتح سجل جديد لمادة سابقة الا اذا تم الفصل بينهم بمادة اخرى ! لكن هنا ركز معي : ممكن الزبون وهو امامك يقول : عطني 1001 و 1002 وفي نفس اللحظة يقول زود 1001 واحذف 1002 بعدين يقول خلاص اعطيني 1002 ونقص 1001 ! كل هذا في نفس اللحظة ! فيصعب معرفة متى نفتح سجل جديد هنا : فكرة الحل لدي هو انه : اذا تريد ان يكون الصنف سجل جديد اضغط على اخر السجلات اي في المربع الفارغ ثم اضغط زر المادة المطلوبة : هنا راح نخلي النظام ذكي ويعرف!

اخي وائل : احتاج الاجابة على السؤال بالمشاركة 26!

السؤال الآن : لو اصبحت المادة المراد تعديل الطلب عليها اخر مادة بالفاتورة ! هل برضه يدرج سجل جديد ! حتصبح المادتين في اخر الفاتورة تحت بعض بكمية مختلفة ؟؟

اعزائي هذا كود رمهاني .. سريع مجاني ..! DoCmd.SetWarnings False Set rs = CurrentDb.OpenRecordset("vtb"): rs.MoveLast: rs.MoveFirst For i = 1 To rs.RecordCount Step 6 Set rs1 = CurrentDb.OpenRecordset("select * from vtb where id between " & i & " and " & i + 5 & " order by id"): rs1.MoveFirst Do While Not rs1.EOF xsql_val = xsql_val & "'" & rs1(1) & "'," rs1.MoveNext Loop xsql_val = Left(xsql_val, Len(xsql_val) - 1) DoCmd.RunSQL "insert into rtb(b1,b2,b3,b4,b5,b6) values(" & xsql_val & ")" xsql_val = "" Next i DoCmd.SetWarnings True اخي ابو منتظر : يمكنك تنفيذ الكود في اي مكان . مثلا خلف زر امر وعند النقر ! مع ملاحظة : لو نفذته اكثر من مرة سيكرر البيانات فيمكن وضع سطر واحد حذف سجلات الجدول قبل تنفيذ الكود ! تحياتي وبالتوفيق

لانه تم استخدام خاصية القيمة الافتراضية للكمية لاختصار الوقت . يمكنك حذفها او تغييرها !

اخي الاستاذ مارد : لم افهم عليك تمام ! هل تقصد ان لديك فكرة حل وتريد ان ننفذها ؟ وحسب فهمي تريد ان تشيك هل المادة موجودة في الفاتورة الحالية ام لا باستخدام عد السجلات ؟ فابشر احنا معا ولكن اتوقع لو تضعها بموضوع جديد افضل ! اخينا احمد وجيه : انا جديد عهد بالمنتديات ومعرفة قوانينها ولكن حسب فهمي انه : يتم الرد على المشاركة لمساعدة السائل في مشكلته فهو من سيفهم الحل مباشرة بدون شرح اما اذا كان هناك شرح لشي معين يتم بموضوع جديد . واسمح لي ان الخص وجهة نظري : 1. لشرح كل مشاركة رد ستحتاج وقت كثير من ما يفقد الرد على اكبر عدد مشاركة ممكن ! 2. كل عضو يسأل بملف وحسب افكاره فاحيانا انا ارد بحل في جزئية معينة ولا افهم باقي السيناريو الذي مشا به فصعب ان اقضي وقت حتى افهم كيف برنامجه يعمل 3.احيطك علما ان الاخ السائل لا يريد الشرح بقدر مايريد الحل 4. من اراد ان يشرح شيئا يذهب لموضوع جديد ويشرح مايريد ! انا ليس لدي الوقت فاغلب وقتي رد على مشاركات ! كما ان هناك سبب وهو عندما اكتب موضوعا جديدا لا بد ان اعطيه حقه او لا اكتب ! 5. تستطيع ان تضع استفسارك حول جزئية معينة اثناء المشاركة ! 6. بعض المشاركات قد تكون الاستفادة منها الفكرة او الطريقة بغض النظر عن طريقة التنفيذ! تحياتي

ولا يهمك يادكتور ! ماذا تريد ان تنفذ بالكود ؟ كل الشروط الثلاثة ؟ ام أي شرط فيهم ؟

اوك عدل على التنسيق الشرطي السابق بحذف شرط الخلفية الزرقاء وتعديل شرط الخلفية الحمراء الى Val([t2])>=Val(Right([t1];Len([t1])-10)) بالتوفيق

تفضل اخينا وائل ولاحظ :الفكرة تمت بانشاء اجراء mm يستقبل قيم الكود حسب خاصية tag لزر الامر ! بمعنى مثلا تريد اضافة زر امر للمانجو .. اتبع الخطوات التالية : 1. تنشئ زر الامر طبيعي وتغير العنوان زي ماتحب 2. تذهب لخاصية tag لزر الامر وتكتب الكود للصنف وهنا 1003 نقصد المانجو ( طبعا هذا مش معقول انه لكل زر اكتب رقم لكود ولكن هذا السيناريو تبعك ولكن نفذته بطريقة تسهل العمل ) وللطريقة الافضل علينا الانتظار حتى اجهز الفكرة وبموضوع جديد وعند فرصة الوقت ان شاء الله ! 3. تذهب لحدث عند النقر وتلصق الجملة التالية وهي عبارة عن مناداة الاجراء وتمرير قيمة tag للزر الحالي Call mm(Me.ActiveControl.Tag) طبعا اصبح تكرار العمل لكل صنف اسهل بكثير من ماكنت انت حتعمله من تكرار في الاكواد وتعديلات داخل الاكواد ! بالتوفيق TT.rar

مافيه مشكلة ! بمعنى لن يوجد رقمين في a انما جملة less than 200 طبعا والرقم متغير والجملة متغيرة! وهل هناك جملة greeter than 200 ويصبح لون النص شي اخر ! ولو سمحت انت شو هوه اللي قاعد تعمله! ابي افهم القصة ! هل هو برنامج يقرأ نتائج اجهزة طبية ؟؟ ام ماذا ؟؟ الاستفسارات اللي زي كذا بتشغل البطيخة بتاعتنا على قولة الاستاذة زهرة !! تحياتي

الاستاذ عبدالله قدور اعتقد ان يكون هناك تعارض حيث قد يصادف عدد التسلسل وعدد الايام في الايام والاشهر القادمه ! اتاكد ولي عوده! تحياتي

عزيزي انظر التنسيق الشرطي ! بالتوفيق New Microsoft Access قاعدة بيانات.rar

ياسلام عليك !! كفيت ووفيت ! اضافة بسيطة الذي يتم هو عملية مزامنة synchronization بين البرنامج المحلي والهدف ! ويتم استخدام برنامج محلي لعمل المزامنة مثل ال دروب بوكس وغيره ! اذا كان هناك اكثر من مستخدم وفي نفس الوقت فلا ينفع مشاركة الملف على القوقل درايف او سكاي درايف وغيره ! تحياتي

اتوقع استاذ مارد انه يقصد قيمتين في مربع واحد !! فهل هذا صحيح يا دكتور ! فاذا كان صحيح هل العلامة - هي الفاصل بين الرقمين ام ان هناك علامات اخرى ؟!!