Foksh

اذا كنت قد طبقت الخطوات بالضبط ، فلا أعلم ما السبب ، ولكن اذا امكنك تصوير طريقة الترميش التي تتحدث عنها !! ما لم يكن هناك حدث عند الوقت في النموذج الفرعي على العموم كإضافة لكلامي ، جرب ما يلي : Private Sub Form_Current() DoCmd.Echo False Me.txtCurrentID = Me.itemcod DoCmd.Echo True End Sub

إذاً يا صديقي ، الخطوات يا صديقي كالآتي .. قمت بإنشاء مربع نص غير منضم ومخفي اسميته txtCurrentID ، وفي حدث في الحالي On Current للنموذج الفرعي ، قمت بوضع هذا السطر البسيط :- Me.txtCurrentID = Me.itemcod لجعل قيمة مربع النص هذا في كل صف = قيمة مربع النص itemcod . الآن قمت بتحديد جميع مربعات النص في النموذج الفرعي التي اريد ان يتم تغيير خلفيتها وفي التنسيق الشرطي لها ، قمت بإضافة شرط جديد Expression Is : [txtCurrentID]=[itemcod] واخترت لون الخلفية للمربعات كما اريد :- والنتيجة في الملف المرفق :- تلوين الفرعى.accdb

معك حق ، اختلطت علي الأمور يا صديقي ، هل هذا ما تقصده ؟؟

وعليكم السلام ورحمة الله وبركاته .. يمكنك استخدام الحدث عند التركيز والحدث عند فقدان التركيز لمربعات النص التي في الفرعي .. جرب هذا التعديل البسيط حيث استخدمت النمط التالي فقط بتغيير اسم مربع النص :- Private Sub itemcod_GotFocus() Me.itemcod.BackColor = &H808080 'لون رمادي وتستطيع تغييره كما تريد End Sub Private Sub itemcod_LostFocus() Me.itemcod.BackColor = vbWhite End Sub تلوين الفرعى.accdb

وما زلت تقع في نفس الخطأ !!!!!!! أرفق ملف اذا سمحت

هدفي التوجيه وليس الإنتقاد يا صديقي سامر

التوزيع سيتم على أي أساس ؟ يعني اللي من 25 - 30 هيكون توزيعهم ايه ؟؟ ..... إلخ ( أرجو التوضيح )

أخي سامر ، ارجو منك مستقبلاً أن تركز في طبيعة المعلومات التي تقدمها لنا . ففي المشاركة الأولى كان النموذج اسمه "الحركة" ، وهو بعد ارسالك للمرفق يقوم بفتح التقرير "حركة حالية" من خلال زر "الطباعة" . وبعد ارسالك للكود التالي :- توضح بعد المرفق انك قفزت لموضوع آخر مختلف في نموذج آخر وتقرير آخر .. على العموم بالنسبة للطلب الأخير وهو بخصوص الكود ؛ فقد تم تصويب الكود بوضعه في المكان الصحيح - وليس في حدث عند تحميل التقرير ، ودون الإعتماد على مربع النص "نوع الحركة" في التقرير نفسه ؛ بل بالقائمة المنسدلة "نوع الحركة" من النموذج "التقرير" - إلى الحدث عند التنسيق للقسم الموجود فيه المربعين ( w , m ) . المرفق بعد التعديل . الخزينة test.accdb

اخي @samyegypt1 جزاك الله كل خير ، ولكن اختيار افضل إجابة يتم عند الإنتهاء من الموضوع بإيجادك الحل ، وانا لم أحل المشكلة لك ، لذا ارجو منك إزالة افضل إجابة عن مشاركتي ومنحها لمن يستحقها في إجابتك 😇 .

اخونا الكريم @samyegypt1 ، قرأت طلبك أكثر من مرة محاولاً فهم طلبك ، إلا انني وجدت في نقاط طلبك نقص في المعلومات في معظمها . وأعتقد أن حال من مر من هنا هو كحالي . فأرجو أن تمنحنا تفصيلاً أكثر لكل نقطة منفصلة بشكل واضح حتى تحصل على طلبك في الحلول تبحث عنها 🤗 .

شكراً لك على هذا الموضوع المفيد معلمنا الفاضل @jjafferr 🤗 ،، سأتمعنه برفق آملاً منه الفائدة التي أرجوها .. والفيديو قد اتطلعت عليه سابقاً وقد اعجبتني جداً فكرته 😇 . وليس لدي مشكلة في طريقة تحريك الأهداف بالشكل الذي اريده وحيثما أريدها ؛ بقدر ما هي مشكلتي في عدم الإستغناء عن الصور واستبدالها برسوم تركيبية ( مربعات و دوائر ) لتلافي الترميش والفلاش ( الوميض ) .

بعد 9 شهور هذه المشاركة قرب يصير عندها عيال يا صديقي هههههه . تفضل نرجو منك عدم إهمال مواضيعك ، حتى نعلم إن كنت وجدت الحل أم لا !! Scanner 2 PDF.zip

🤦🏻‍♂️

اخي سامر رضي الله عنك وأرضاك 🤗 بما أنك لم تحصل على الحل ، فساعدنا وارسل مرفقك على الأقل 🙄 . انا الآن على سفري ، وقد لا أتمكن من رؤيته في الوقت الحالي ، عل أحد الأساتذة والإخوة يدعمك في الحل بعد إرسالك للملف 😅 .

اخي سامر الكل هنا أخوة ويساند بعضه البعض 😇 ما رأيك باستخدام الدالة Case كتجربة 😉 ، يمكن في حالة الجمل الشرطية في حالتك تكون أسهل . Select Case Me.نوع_الحركة Case "وارد" Me.w.Visible = True Me.m.Visible = False Case "منصرف" Me.w.Visible = False Me.m.Visible = True Case Else Me.w.Visible = True Me.m.Visible = True End Select حسب نوع الحركة ( منصرف ، وارد ، غير ذلك ) . وللنصيحة ، عند نسخ الأكواد وكانت تحتوي حروف عربية ، اجعل مؤشر الكتابة باللغة العربية ثم قم بالنسخ من محرر الأكواد الى المشاركة أو العكس من هنا الى هناك 🤗 جرب وأخبرنا بالنتيجة 😇

اخونا العزيز @سامر محمود ، وعليكم السلام ورحمة الله وبركاته ارسل مرفقك وستجد العديد من الحلول بإذن الله 😇

وعليكم السلام ورحمة الله وبركاته.. مشاركة و إضافة لما تفضل به معلمي الجليل الأستاذ أبو خليل ، جرب حصر المعيار بعلامتي تنصيص ، كالآتي :- If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = " & Me.Mo End If جرب وأخبرنا بالنتيجة 😇

السلام عليكم ورحمة الله وبركاته.. اختنا الكريمه @hanan_ms ، الله يعطيكي العافية على مجهودك.. استفساري بسيط ولكن للآن ما فهمت اسم الأداة و وظيفتها 😬 أرجو المعذرة منك ولكن بودي أشاركك أفكارك لكن صدقاً ما قد فهمت الفكرة والهدف من البرامج واسمه كأداة شبكة القواعد بيانات بنطاق الجغرافي.

عدم توافق اصدار الآكسيس وللأسف اني بعيد عن الكمبيوتر مسافة أكثر من 365 كيلومتر .. مشكور استاذنا الشايب قام بالتوجيه الصحيح 😇

هذه معضلة فعلاً بشمهندس موسى ، لكن بما آكسيس لديه قوى خارقة خفية فلاااا بد من وجود حل لهذه العضلة .... 😂 أقصد المعضلة

قد يكون مفتاح الشيفت محمي ، اذا قاعدة البيانات بصيغة Accde أو Mde فلاااااااا تتعب نفسك في البحث عن حل أما إذا كانت قاعدة البيانات بصيغة Accdb أو Mdb فهناك عدة طرق . منها إنشاء قاعدة بيانات جديدة واستيراد المكونات لها ، وإذا طلب منك كلمة مرور لقاعدة البيانات فاكتب الباسوورد الذي تملكه. غير ذلك.......... ليس لي دخل 😅

😳 شكلي مش منهم 🤦

ههههه 😂 اذا كان الاستعلام قام بفرز النتائج كما نريد ، فمن خلال استعلام تحديث نستطيع توزيع القيم على 3 حقول . ولكني تركت الأمر لصاحب الموضوع ليعود لي بالنتيجة على كل حال ، الفكرة هي وضع التعبيرات السابقة في خانة Update to في استعلام التحديث والباقي عليه 😇

اشكرك معلمي الفاضل @ابوخليل على مشاركتك .. قد تكون المشكلة في الملف ولا اعلم ذلك الا انني جربته على اصدار 2010 = 32 بت ولم تظهر هذه المشكلة. سأتحقق منه مرة أخرى واقوم برفعه

من خلال استعلام جديد ، اختر الجدول ، وبالافتراض ان الحقل اسمه "رصيد" اضف التعبيرات الثلاثة التالية في الحقول :- دائن: IIf([رصيد] < 0, [رصيد], Null) مدين: IIf([رصيد] > 0, [رصيد], Null) منتهى: IIf([رصيد] = 0, [رصيد], Null) جرب واخبرني بالنتيجة