منتصر الانسي

اخي العزيز يمكن تجاوز مشكلة الترقيم التلقائي هذه بعملية (ضغط وإصلاح قاعدة البيانات) ولكنها لا تصلح الا آخر رقم فقط وليس مابينها فمثلاً لو كان لدينا السجلات (1 2 3 5 6 8) فإذا قمنا بحذف السجل 8 وعملنا ضغط وإصلاح قاعدة البيانات فسيعود الترقيم من 7 ولكنه سيتجاهل الرقم 4 المفقود ضمن السلسلة ويمكن تنفيذ هذا الأمر أيضاً عن طريق الكود والذي ستجده في مثالك المرفق تحياتي ,,, قاعدة بيانات2.rar

اخي العزيز بحسب مافهمته يمكننا أن نقسم هذا المربع الى قسمين او مربعين الأعلى لكتابة الملاحظات والأسفل يضم سطرين أول ثلاثة تكون فارغة . فهل هناك مايمنع ذلك ؟ تحياتي,,,

اخي العزيز عدل الشرط الى الشكل التالي Date()-[Date OfVisit]>=90 تحياتي,,,

تفضل اخي جرب التعديل المرفق تحياتي,,, mmm.rar

اخي العزيز أولاً : ستلاحظ في الإستعلام الأول تم تجميع المستلم بإسم (اجمالي_المستلم) وفي الإستعلام الثاني تم تجميع المنصرف بإسم (اجمالي_المصروف) والإستعلام الثالث (الرصيد) يظهر رصيد كل صنف كما بالصورة التالية ثانياً : في الإستعلام الثالث ستلاحظ أن بعض السجلات يكون فيها (اجمالي_المستلم أو اجمالي_المصروف) قيمة خالية بدون أرقام ولذا عند تنفيذ عملية الطرح تكون النتيجة فارغة حتى لو وجدت إحدى القيم كما بالصورة التالية والتي تبين نتيجة الاستعلام (الرصيد) في وضعه الأصلي بدون إستخدام أي دالة أو معيار ثالثاً : يتم استخدام دالة Nz وذلك لاستبدال القيمة الفارغة بأي قيمة نريد وتكون على الشكل Nz([MyVal];0) اي استبدال القيم الفارغة لحقل MyVal بالقيمة صفر وفي المثال نجد ما يلي Nz([أجمالي_المستلم];0) اي أن يتم استبدال القيم الفارغة من اجمالي_المستلم بالصفر (ولكن لأن اسم الحقل عربي يكون الشكل مختلف) لذا ستصبح نتيجة الاستعلام كما في الصورة التالية رابعاً : نلاحظ من الصورة السابقة أنه تم إظهار جميع الأصناف حتى مع تلك التي لاتوجد بها أي حركة لذا نقوم بوضع معيار أن يكون الرصيد غير مساوي للصفر (<>0) وتصبح نتيجة الإستعلام كما في الصورة التالية أرجو أن يكون الشرح واضح تحياتي,,,

اخي العزيز يبدو أن الكود لا يعمل مع إصدار 2007 أو أنه لايتعامل مع نوع الحقل هذا وأعتقد أيضاً أنه يقوم بإكمال النقط لما تبقى من السطر ولا يمتد لسطر آخر (لست جازماً ولكنه إعتقاد) لذا لن يفيدك حيث مافهمته أنك تريد أن تتواصل النقط حتى نهاية مربع النص ولكن اخي حامل المسك (لماذا لا نسلك طرق أخرى للوصول للنتيجة المطلوبة) ولا نقيد أنفسنا بفكرة واحدة وأعتقد أننا لو تشاركنا الأفكار فقد نحصل على طرق وحلول متعددة لذا لو سألتك عن سبب لجوئك لعمل تلك النقط ومدى أهميتها للبرنامج ...؟ فمن خلال ردك على هذا السؤال يمكن أن نجد حلول أخرى بالطرق المباشرة أو حتى الطرق الإلتفافية إن شاء الله تحياتي,,,

اخي العزيز لا ادري اذا كنت قد فهمت قصدك ولكن مرفق مثالك مع تقرير يظهر اسماء من ليس لهم قيم في اي شهر كان أرجو أن تطلع عليه والافادة عن مدى تلبيته لطلبك تحياتي,,, db1.rar

اخي العزيز يجب عليك تحديد الحقول المرتبطة بكل قائمة ويمكنك الإطلاع على الرابط هنـــا لعله يفيدك تحياتي,,,

اخي العزيز بدلاً أن نحصر الأمر على الدرجات من صفر الى عشرة من لأفضل الإستفادة من دالة التفقيط بعد تعديلها بما يتناسب مع الدرجات لتشمل الدرجات حتى مليار درجة لو حبيت مرفق لك مثالك بعد التعديل ويبقى مسألة الأمور اللغوية يمكنك مراجعتها وتعديلها أو طرحها هنا ليتم التعديل . تحياتي,,, درجات.rar

اخي العزيز بالإمكان ذلك ولكن نتيجة إنك عامل الرئيس والمعاونين في حقول مستقلة والأعضاء في حقل واحد سيعقد المسألة من حيث تصميم التقرير وتكون هذه الطريقة هي الأنسب أما فيما يخص الاستعلام التوحيدي فإنه عبارة عن دمج جملتي SQL (أو أكثر) في جملة واحدة عن طريق ربطها بكلمة (Union) ويشترط في الجملتين أن تشمل نفس عدد الحقول وبنفس الترتيب فمثلاً في هذا المثال شملت الجمل على الحقول (رقم اللجنة - اللجنة - الاسم - الصفة) وبنفس الترتيب أي لا يتم جعل الاسم بعد الصفة في إحدى الجمل مثلاً وبالإطلاع على الاستعلام في المثال فهو مكون من جملة Sql التالية SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-lejan].name,"الرئيس" As [TheJob] FROM [Al-lejan]; UNION SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-lejan].name1,"المعاون الاول" As [TheJob] FROM [Al-lejan]; UNION SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-lejan].name2,"المعاون الثاني" As [TheJob] FROM [Al-lejan]; UNION SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-Musad].Name, "عضو اللجنة" AS TheJob FROM [Al-lejan] INNER JOIN [Al-Musad] ON [Al-lejan].Nlejna = [Al-Musad].Nlj; وستلاحظ أنها مكونة من الجمل التالية SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-lejan].name,"الرئيس" As [TheJob] FROM [Al-lejan]; SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-lejan].name1,"المعاون الاول" As [TheJob] FROM [Al-lejan]; SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-lejan].name2,"المعاون الثاني" As [TheJob] FROM [Al-lejan]; SELECT [Al-lejan].Nlejna, [Al-lejan].NAlejna, [Al-Musad].Name, "عضو اللجنة" AS TheJob FROM [Al-lejan] INNER JOIN [Al-Musad] ON [Al-lejan].Nlejna = [Al-Musad].Nlj; ولو قمت بنسخ كل جملة لوحدها ولصقتها في محرر SQL في الاستعلامات سينتج عنها إستعلام مستقل وتم ربطها (توحيدها) بكلمة Union أرجو أن يكون الشرح واضح تحياتي,,,

اخي العزيز kemas طلبك ستجده في الموضوع هنــا في آخر مرفق تحياتي,,,

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

تفضل اخي تم إضافة إستعلام وتقرير تحياتي,,, اللجان.rar

تفضل اخي مثالك بعد التعديل تحياتي,,, الاسماء.rar

اخي العزيز مرفق لك تعديل أرجو ان يكون هو طلبك وستجده في الاستعلامات الثلاثة والتي تقوم بتجميع المستلم والمنصرف بحسب الصنف والثالث لإظهار الرصيد رغم تحفظي على تصميم الجداول فكان من الأفضل لك لو جمعت جدولي (المستلم والمصروف) في جدول واحد مع إضافة حقل وليكن اسمه (نوع الحركة) يتم فيه تحديد (وارد-منصرف) بدلاً من التشتت تحياتي,,, قاعدة بياناتي 6-9-2011.rar

اخي العزيز قد يكون الامر مرتبط بالمراجع افتح محرر فيجوال في برنامجك ثم افتح قائمة Tools واختر اول خيار References عندها سيظهر لك صندوق يحتوى على المراجع المعتمدة في برنامجك وإذا ظهرت كلمة Missing أمام احد المراجع قم بالبحث عنه سواء داخل الجهاز أو في الانترنت وقم بنسخه الى مجلد System32 في الويندوز يرجى التأكد مما سبق والافادة بالنتيجة تحياتي,,,

المعذرة المعذرة المعذرة كنت حاسس اني وقعت في خطأ بسبب الإرهاق وبالفعل كنت على خطأ اخي العزيز الكود الذي معك صحيح وليس عليه غبار وماعليك سوى استبدال السطر For I = Val(txtCount) To co + Val(txtCount) - 1 بهذا السطر For I = 1 To co + Val(txtCount) - 1 ولكنك ستواجه مشكلة في اول مرة حيث سيبدأ بالترقيم من 1 مما سيؤدي الى تكرار الرقم لذا يجب اولاً ان تجعل خاصية الحقل ID في الجدول قابل للتكرار ثم قم بتنفيذ الامر واذا اردت ان تعيد الخاصية كما كانت فليس هناك مشكلة مرفق لك المثال الاصلي بعد التعديل المذكور والمعذرة مرة أخرى (هذه من مساوئ السهر) تحياتي,,, Nu.rar

اخي العزيز من اطلاعي للبرنامج لا يوجد كود ترقيم تلقائي وللتأكد غير آخر رقم برقم 1000 مثلا ثم نفذ الأمر ستلاحظ أنه سيبقى كما هو ولكن الترقيم التلقائي ينفذ عند إضافة سجل جديد فقط وحتى وإن أردت تنفيذ الترقيم التلقائي فإن العملية تتطلب تصفير جميع السجلات في البداية ثم تنفيذ الترقيم لأن الكود Me!ID = Nz(DMax("[id]", "[student]"), 0) + 1 يقوم بأخذ أكبر رقم موجود ويضيف له 1 فإذا لم تصفر الأرقام أولاً فسيظل يزيد 1 على أكبر رقم ولن يبدأ من 1 وتصفير الارقام غير ممكنة لأنك جاعلها لا تقبل التكرار لذا فالمطلوب منك أولاً تعديل خصائص الحقل ID لتجعلها تقبل التكرار ثم إضافة كود التصفير قبل تنفيذ الترقيم مرفق لك مثالك معدل على عجل في هذا الوقت المتأخر لتجربه وإذا كان هناك أي مشكلة فالسبب الإرهاق تحياتي,,, Nu.rar

اخي العزيز في اصدارات 2007 و 2010 هذه الميزة مضمنة في البرنامج اما في 2003 فقد وضع حل كما في المرفق ويتطلب مايلي - إستيراد الوحدة النمطية (modMouseHook) الى برنامجك - في حدث (On Load او عند التحميل) في النموذج المراد إيقاف الماوس فيه يكتب الكود التالي Dim blRet As Boolean blRet = MouseWheelOFF(False) - وفي حدث (On Unload او عند إلغاء التحميل) يكتب الكود التالي Dim blRet As Boolean blRet = MouseWheelON وذلك لإعادة تشغيل عجلة الماوس - ضمن المرفقات ستجد أداة إسمها (MouseHook.dll) ويجب عليك إما أن تجعلها في نفس المجلد مع البرنامج أو تنسخها إلى المجلد (System32) في مجلد الويندوز لتعمل مع جميع البرامج في الجهاز تحياتي,,, الماوس.rar

تفضل اخي مثالك بعد التعديل تحياتي,,, db31.rar

اخي العزيز من خلال ردك (أجبت عن نفسك بنفسك) فطالما أن تلك المجاميع تظهر في الإستعلام فما فائدة إدخالها مرة أخرى إلى الجدول فلو فتحت الجدول أو الإستعلام ستظهر لنا صفحة بيانات لافرق بينهما سوى أن بيانات الإستعلام محتسبة أما بيانات الجدول مدخلة إدخال ولو قارنا بين فوائد وعيوب كل منها سنجد أن : في مثالك وبناء على قيمة الحقل (المبلغ) والذي يساوي (الكمية × سعر الوحدة) وسنطلق عليها أساس الإحتساب - البيانات المحتسبة تكون متغيرة ومتجددة ومحدثة بتحديث بيانات أساس الإحتساب وبالتالي تظهر لنا بيانات حقيقية تعكس الواقع ولا تؤثر في حجم قاعدة البيانات - أما البيانات المدخلة تظل جامدة (حتى ولو تغيرت بيانات أساس الإحتساب) مالم يتم تحديثها يدويا أو حتى عن طريق الكود وسيكون هناك إمكانية لظهور بيانات خاطئة وفوق هذا وذاك سيتم زيادة حجم الجدول بحجم تلك البيانات وفي إعتقادي أن جوهر قواعد البيانات هو عملية (إدارة البيانات) أي أن يتم إدخال بيانات خام وبحدها الأدنى (مالم تكن هناك ضرورة لها) وإستخراجها كمعلومات مفهومة ولها هدف المعذرة على الإطالة ولكن كان يجب توضيح هذه الفكرة للعلم فقط ولك أن تختار مايناسبك فإن كنت ترى من الضرورة إثبات هذه البيانات في الجدول فكل ماعليك هو - تغير إسم الحقل (Soum) إما في الجدول أو الإستعلام ليتم الإشارة إليه ولا يحدث خلط عند تنفيذ الكود حيث أن الحقل المحتسب في الإستعلام لايمكن تحديثه بواسطة الكود (المهم لو قمنا بتعديل إسم الحقل في الجدول الى Total) بدلاً من Soum - نكتب كود الإحتساب في حدث (بعد التحديث أو After Update) لحقلي (الكمية وسعر الوحدة) ليتم تنفيذ الإحتساب بعد كل تعديل لبيانات هذين الحقلين والذين هما أساس الإحتساب والكود هو على الشكل التالي Total = Contit * Unit_price ومرفق لك مثالك بعد التعديل المذكور تحياتي,,, PARPAIN_Email.rar

اخي العزيز ليكون في معلومك فإن الدالة في المثال تشمل التمدد الأفقي والرأسي ومرفق لك مثالك للتأكد ولكني فضلت أن يكون العرض ثابتاً حتى لا يتغير تصميم النموذج فالتمدد سيصل الى مايصل اليه طول النص الذي سيتم إدخاله (وهذا غير جيد من وجهة نظري) وأما بخصوص تصميم أستاذنا الكبير أبو هادي فما زلت (افصفصه بإنبهار) حتى أفهمه وأستوعبه جيداً (وأتعجب من عقلية واضعه)ولكن الكود الذي ذكرته أنت فأعتقد أنه خاص بصندوق الرسائل ككل اما مايخص مربع التسمية (LblPrompt) فالكود هو With Me.LblPrompt .Caption = BoxStyle.Prompt .Height = Height - 1200 .Move 50, _ IIf(.Height > 275, 180, (Height - 875 - .Height) / 2), _ Width - IconWidth - 365 If Height = 1785 Then .TopMargin = 85 End With تحياتي,,, 100.rar

اخي العزيز لماذا تُعقد المسائل على نفسك فبصفتك مصمم قاعدة البيانات يمكنك ان تضع الحلول التي تراها ومنها مايلي - تعديل التصميم لتجعل نوع الحقل نص بدل الرقم - إدخال نسبة العمر (6 أشهر تعادل نصف سنة أي 0.5) مثلاً - الحل الأفضل أن تجعل النتيجة محتسبة وذلك بأن يتم إدخال تاريخ الميلاد ويحتسب العمر حتى تاريخ اليوم أو تاريخ الإدخال مثلاً ويمكنك أن تبتكر حلك الخاص فما يهم المستخدم هو النتيجة وليس الطريقة وما يهمك هو أن تكون طريقة غير معقدة ولا تثقل على برنامجك تحياتي,,,

اخي العزيز اجعل اسم الماكرو بهذا الإسم (AutoExec)وعندها سيتم تشغيله عند فتح القاعدة تحياتي,,,

اخي العزيز مرفق لك مثالك بعد التعديل وبطريقة غير طريقة أبو هادي المهم هنا أن يكون عرض مربع التسمية ثابت اما الطول فسيتغير مع النص تحياتي,,, 100.rar