أمير2008

بالنسبة لسؤالك الرئيسي في عنوان الموضوع الخاص بالقائمة المنسدلة

هل تريد هذا الشكل ؟

pro2.rar

يمكن أن تستخدم IIF في كود الاستعلام

,IIf([Table1].[عمل مياة],"TRUE","False") AS ['وضع التنفيذ']

Database14.rar

أنا معلوماتي المتواضعة عنها أنها :

دالة وضع الصفر للقيمة الخالية

NullToZero function

N  = Null

Z = Zero

وفي قواعد بيانات أوراكل درست في جزء السيكوال دالة شبيهة  بالصورة :

NVL

مثال :

SELECT NVL(commission, 0)
FROM sales;

وهذا المثال معناه : اذا لم يكن هناك كوميشن في جدول المبيعات فقم بكتابة صفر كقيمة لحقل العمولة

طبعاً ممكن نتعامل مع أحرف وأرقام أخرى غير الصفر

يا باشا الشكر لله

أنا زيك مبتدئ ومازلت أتعلم الأكسس

وكلنا نتعلم من بعض مفيش مشكلة

بالنسبة للحقل [total cum]

اذا وضعنا NZ لذلك الحقل بالقيمة صفر

فمعناه أنه اذا كان خاليا يأخذ القيمة صفر

وهذا يفيد في أشياء كثيرة منها  العمليات الحسابية

حيث تقدر تتعامل مع القيمة null على أنها صفر

معذرة أخي على عدم التوضيح

لكن اذا رأيت الكود بهذا الشكل فمعناه أنه كود استعلام

يعني تفتح الاستعلام وتعرض كود السيكوال

وبعدين تضع الكود مكان الكود الموجود

cum december.rar

كما قال أستاذنا أبو خليل

اعدادات اللغة هي السبب في هذه الرسالة

ولو عاوز تتأكد اعمل نسخة من قاعدة بيانات على أكسس 2010

وهذه الرسالة حدثت معي ووجدت أن بعض نسخ الويندوز تدعم اللغة العربية بالكامل اذا تم الضبط لاحقا أو سابقاً

لكن نسخ أخرى تحدث فيها أخطاء إلا اذا كانت اللغة في أثناء اعداد ويندوز تم ضبطها

لذلك أقترح إما أن تقوم باعداد نسخة ويندوز مجربة لديك

أو أن تتجنب المسميات العربية لكائنات قاعدة البيانات

يعني جداول واستعلامات ونماذج وخلافه

كذلك المسميات داخل النموذج والتقرير وكافة الدوال والماكرو إلخ

اجعلها جميعا باللغة الانجليزية

وجرب

يمكن تفشل المحاولة ويمكن تفشل أيضاً

هههههه

جرب الكود ده

SELECT december.Zone, december.Category, december.SubCategory, december.Activity, december.[Cost Center], december.Total, Nz([Total Cum],0) AS Expr1, Sum([Total]+Nz([Total Cum],0)) AS [Total dece], Sum(Nz([total cum],0)+[total]) AS [cum dece]
FROM novmber RIGHT JOIN december ON novmber.[Cost Center] = december.[Cost Center]
GROUP BY december.Zone, december.Category, december.SubCategory, december.Activity, december.[Cost Center], december.Total, Nz([Total Cum],0);

أنا أقول لك حل افتراضي ربما ينجح وربما لا

لكن لن نخسر شيئا في التفكير معا وفي محاولة التنفيذ

أولا تسجل البيانات بالكيفية المطلوبة في حقل واحد

ثانيا نستخدم كود لنسخ بيانات الحقل إلى حقلين مؤقتين نقوم بانشائهما في الجدول

ثالثا نصمم حقلين متجاورين رأسيا في التقرير مصدر بياناتهما الحقلين المؤقتين

أعتقد أن العقبة البرمجية الوحيدة هي كود لتقسيم بيانات الحقل إلى نصفين

وعليكم السلام ورحمة الله

طيب معلش ممكن ترفق  آخر ملف لا يسبب عندك مشاكل ونعمل تصفية من جديد ؟

هحاول أنفذ على ما هو موجود دون التعديل في الهيكلية

وطبعا تحدد طريقة التصفية بالضبط التي تريد

ما شاء الله أبا عمر

هذه احدى الطرق وهي مثال للأستاذة/ زهرة

معدل على حسب ملفك

ويحفظ مسار الصورة في حقل بالجدول

EMP2-UP.rar

بصراحة يا أستاذ رعد :

أنا فقط أرفقت قاعدة بياناتك مع تعديلات  أعتقد أنها هامة

وكان الهدف الرئيسي هو اجراء التصفية باستخدام الكومبوبكس

وتطبيق الطريقة على ملفك وليس اكمال العمل علي ملفي

خاصة وأنني حذفت 95% من السجلات لتسهيل متابعة التعديلات

وبالنسبة لحقول الجدول : فالمفترض أن جدول الموظفين يسجل فيه بعض البيانات الخاصة به

أما البيانات العامة أو المكررة لأكثر من موظف فالمفترض تسجيلها في جدول مستقل ويرتبط بجدول الموظفين برقم

وهذا يطلقون عليه normalization

فمثلا : الموظف اسمه : أحمد القسم : 3 المؤهل : 4 : الوظيفة 1 وهكذا

- تقصد حقل القسم في جدول الموظفين أم في كومبوبكس القسم في نموذج البحث ؟

- كم عدد الاستعلامات الجديدة  وما أسماؤها ؟ لأني لا أتذكر أن أنشأت أي منها .

- نعم التصفية مباشرة بالكومبوبكس

أنا عن نفسي أقترح هذه العلاقة :

هذا المثال بناء على مثالك لكن مع فقدان البيانات نتيجة إعادة تكوين العلاقات بين الجداول

فحاول أخذ الفكرة من المرفق والتعديل على الأصل عندك إن أمكن

search.rar

جرب التعديل ده

TestLink.rar

أخي الفاضل  abdallah80

طلبك بسيط غير معقد وغير محتاج إلى عباقرة كما تقول

فهذه العبارات بصراحة تعقد الأمور :

(أين العباقرة) ( لماذا لا تردوا ) ( وين المشرفين ) ( وبن الخبراء )  ( هل الموضوع صعب عليكم )  .......... إلخ

لأن ذلك يعتبر تحميل زائد على ظروف الناس ومشاغلهم الآخرى أو على ما هو متاح لديهم من معلومات

فأنا عن نفسي مبتدئ بالأكسس وفي نفس الوقت بعض الموضوعات أعلم اجابتها لكنها ستأخذ مني وقتا

ومقولتي الدائمة أنه : محال أن نعلم كل شيئ عن أي شيئ

وكلنا عزيزي نتعلم

بالنسبة لقاعدة بياناتك :

- أنت أضفت مرجع يسبب خطأ عندي وهو access 2000 to vb6 converter

- نصيحة لا تستخدم تسميات مخالفة لأصول التسمية الصحيحة مثل الكلمة المحجوزة Date

- أنصحك بدراسة أي كود تأتي به لقاعدة بياناتك جيدا بحيث تفهم وظيفة  كل جزء فيه

وسبب نصيحتي الأخيرة أن الحل موجود عندك بالفعل بقاعدة بياناتك

وآسف للإطالة

تفضل

لو كان بمقدرتي وظروفي

تفضل الكود

Private Sub combo_a_Change()
Me.Text13 = DLookup("[price_a]", "العدسات", "[type_a] = '" & Me.combo_a & "'")
End Sub

في حدث بعد التحديث للكومبوبكس نفذ دالة

DLookup

للبحث في حقل السعر بشرط أن حقل النوع بالجدول يساوي ما هو مكتوب في الكومبوبكس

db.rar

اذا كنت في نموذج الإدخال

فاذهب لخصائص مربع النص موضع ادخال الرقم القومي

في خانة قناع الادخال validation rule

اكتب

(Like "??????????????")

وفي خانة نص التحقق Validation Text

اكتب

"يجب إدخال 14 رقم "

خاصة هذه المعلومة الهامة :

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", "0", "REG_DWORD"

فمنذ فترة صممت برنامجا لتسجيل المكتبات التشغيلية وكان يعمل بامتياز عندي لكن في أجهزة أخرى كانت هناك رسائل خطأ

ولم أكن أعلم موضوع EnableLUA

حسب فهمي للموضوع أعتقد أنكم تريدون برنامج تنفيذي exe بأي لغة من اللغات

يكون مثلا في صورة إعداد لقاعدة البيانات على جهاز المستخدم

ويحتوى على قاعدة البيانات

وهذا ما جذبني للموضوع بسبب محاولاتي فعل ذلك سابقاً

أبـوخليل

وما دام خط سيرنا اخذ وجهة  اخرى فسأوجز هنا العناصر والخطوات التي  نسير عليها  وأسأل ربي العون على ذلك

1- قراءة حساب المستخدم ودرجة الأمان

2- ان كان الامان منخفضا  فسنكمل تنصيب برنامجنا  .. وكفينا.. وعوفينا

3- ان كان الامان مرتفعا يقوم البرنامج بتخفيضه ثم يعيد تشغيل النظام

4- سيقلع النظام بعد اعادة التشغيل على برنامجنا  ويفتح النموذج الهدف  

5- يتم اضافة المكتبات وتسجيلها واكمال تنصيب البرنامج

6 - اعادة الامان الى وضعه السابق

7- اعادة تشغيل النظام ( اختياري )

 

الخطوات من 1 إلى 6 منطقية التسلسل ورائعة وتنفيذها متاح برمجيا

لكن احب اسجل بعض المقترحات للنقاش :

- الخطوة السابعة أعتقد غير ضرورية للتقليل من رسائل اعادة التشغيل للمستخدم

- بطريقة ما يكون هناك مكان داخل البرنامج لا يدخله سوى المبرمج ويحدد فيه المكتبات التشغيلية المطلوبة التي سوف يتم اعدادها تلقائيا عند جهاز المستخدم

وعليكم السلام ورحمة الله

يا باشا ليس هناك خطأ

كل ما هنالك أن المعادلة الحسابية في النموذج المطلوب أن تعمل في حالة تحديث بيانات أي خلية أو مربع نص في النموذج

يعني تضع نسخة  المعادلة في حدث

AfterApdate

لكل مربع نص به أرقام مرتبطة بالمعادلة

أنا أرى أن البرنامج المقترح يجب أن يكون تنفيذي exe

ويقوم بكل شيئ تلقائيا دون تدخل المستخدم مطلقا

ويكون البرنامج شامل لكل المكتبات التشغيلية التي يتطلبها الأكسس

وعليكم السلام ورحمة الله وبركاته

نعم كلامك صحيح

خاصة وأن هناك اصدارات ويندوز مختلفة وكذلك أكسس وكذلك ملفات مكتبات التشغيل

لذلك فتصميم برنامج يقوم بهذا العمل تلقائيا هو الحل الأمثل

2003

مثال 1.rar