مصلح الحريصي

عدل الكود الذي كتبته ليصبح كما في الشكل التالي : On Error GoTo Err Dim pass As Integer Dim massage As Integer pass = InputBox("type your password", "Control box") If pass = 1212 Then DoCmd.OpenForm "contor" Else massage = MsgBox("Sorry your Pass is false") End If Err: If Err.Number = 13 Then MsgBox "أكتب هنا الرسالة التي تريد أن تظهر للمستخدم" End If

رائع لكن لا نريد استخدام الترقيم التلقائي في الجداول وسوف نستبدله بترقيم آلي عن طريق كود برمجي. ثمة مشكلة وأرى أنها مشكلة لا أعرف إذا كانت لديكم كذلك وهي مشكلة التاريخ فعندما نستخدم الميلادي حتماً هناك جهات تستخدم الهجري أيضاً في التاريخ الهجري مشكلة حتى ولو كانت بالتنسيق الهجري وهي : بعض الأشهر تكون 28 أو 29 يوماً بينما هي في الجري 30 يوم وهنا تقع المشكلة فحقل التاريخ لا يقبل أكبر من 28 أو 29 يوم بعض الأعوام يكون فيها الشهر الميلادي 29 يوم ولو استخدمنا الهجري وقام المستخدم بكتابة التاريخ على الشكل التالي 30/12/1423 عند الضغط على مفتاح Enter يتغير التاريخ مباشرة من 30/12/1423 إلى 1/1/1424 وهذا في بعض الأعوام وليس كلها. الحلول في رأيي : جعل نوع بيانات حقل التاريخ نصي مع التنسيق yyyy/mm/dd وبهذا يكون الحقل قابل للتاريخ الهجري أو الميلادي. مشكلة هذه الطريقة أنه لا يمكن إستخدام العمليات الحسابية على تاريخ نوع بياناته نصية . الحل : استخدام دوال تحويل البيانات " CDate نستدعي بيانات التواريخ من الجدول ونجري العمليات التي نريد بعد تحويلها ثم نعيدها للجدول بالنتائج على شكل " نصي " أود أن اسمع رأي الجميع فهذه النقاط ولا ندعها حتى نتفق على حل مناسب لها.

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

إن رأيتم ذلك هو الأفضل فأنا معكم فالهدف الوصول إلى النتائج المرجوه. نظام المخازن يرتبط بنظام المشتريات والمبيعات فالمشتريات هي جزء من نظام المخازن ولا بد من فهم كل من المشتريات والمبيعات لكي نفهم نظام المخازن

أخي المهاجر أنا معك في هذا الرأي وقد تطرقت له في بداية الموضوع . وطلبت أن يتم تحليل البرنامج من بداية إلى توزيعه مروراً بالجداول والعلاقات والنماذج والتقارير والاستعلامات وكيفية معالجة البيانات في المدخلات والمخرجات برمجياً أو بأي وسيلة أخرى ووضع الحلول للمشاكل المتوقعة " الفرضيات المستقبلية " وكل ذلك على الورق لأنني متأكد بأنه أثناء مواصلة التحليل سيظهر لنا مالا كنا نتوقعه ونضطر لإضافة حقول أو حذفها وإذا كان عملنا على الورق سيسهل لنا التعديل ثم بعد ما نتأكد من صحة ذلك نقوم بعمل مسودة نهائية يلتزم بها الجميع ثم نقسم العمل على مجموعات وكل مجموعة لها عمل مخصص وفي الأخير نقوم بعملية تجميع البرنامج وإجراء الإختبارات اللازمة عليه من جميع الجوانب ولا يمنع من عرضه على شريحة معينة من الناس لتجربته. أرجواأن نسمع رأي الجميع في ذلك أود أن يكون رأينا موحد على الشيء الصحيح .

أخي Wise كلام سليم وهذا ما نريده فعلاً. بالنسبة للبدء فقد قمت بنقل موضوعك السابق " تحليل المخاازن " وهو يعتبر مرحلتنا الأولى وتم نقله لأن فيه فوائد فبعد إطلاعي عليه وما دار فيه من مناقشات رأيت أنه من الضروري نقله لمشروعنا كون مضمونه جزء من المشروع . قمت بتقسيم المشروع إلى أربع مراحل أولها " تحليل المخازن " ولن ننتقل لأي مرحلة إلا بعد أن ننهي المرحلة السابقة كلياً . لذا سأقوم بإغلاق المناقشة هنا وسوف تكون بإذن الله البداية في "المرحلة الأولى " وكل مرحلة سيفتح لها موضوع خاص بها مثل المرحلة الأولى . فلنتوجه على بركة الله إلى المرحلة الأولى . أخي المهاجر حياك الله ولا أسف فاموضوع لا زال في البداية ونحتاج مشاركتك بقوة فكما رأيت ولدت فكرة المشروع صغرية جداً ولكنها ما لبثت أن كبرة واصبح نظام يعتمد عليه في الشركات والمؤسسات ولا بد من وجود فريق كبير لإنجازه فمرحباً بك وبقية الأخوة المشاركين. بالنسبة للمراحل فهي مراحل رئيسة ومراحل فرعية: الرئيسة هي التالي : مرحلة التحليل والمناقشة. مرحلة تصميم الجداول والاستعلامات مرحلة تصميم النماذج وتشمل الشفرات البرمجية " الكود " مرحلة تصميم التقارير المراحل الفرعية هي المرحلة الأولى : المخازن المرحلة الثانية : السلع المرحلة الثالثة : العملاء المرحلة الرابعة: الحسابات حيث أخذنا أول مرحلة رئيسة وهي مرحلة التحليل ثم قسمنا تلك المرحلة إلى مراحل فرعية ونبدأ بأول مرحلة فرعية وهي تحليل نظام المخازن وبما أن للأخ Wise موضوع بهذا الخصوص وفيه مناقشات مفيدة قمت بنقله وسوف نواصل على ما سبق مناقشته . فلنتوجه على بركة الله إلى المرحلة الأولى .

شكراً لك أخي Wise وجود محاسبين معنا وأهل الخبرة شيء رائع جداً . أتوقع الوصول في النهاية إلى نظام ممتاز وجامع للمخازن والسلع والعملاء والحسابات وسيكون برنامج رائع فعلاً فحسب ما ظهر لي من التحليل السابق وما سوف يتبعه أنه تحليل مركز . توكلوا على الله وأنا معكم ولكن خبرتي قليلة في مجال المحاسبة. أتمنا التوفيق للجميع

الأخ / Wise إذا أذنت لي سأقوم بنقل هذا الموضوع إلى موضوع برنامج البيع بالتقسيط للإرتباط الوثيق بينهما ونواصل مناقشته على أنه المرحلة الأول في البرنامج ما رأيك

الله يعطيك العافية أخي عادل كل يوم تطلع لنا بشيء جديد

هذا المثال والله يسلمك db2.rar

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

إذا كنت تقصد الرسائل الإفتراضية فلا يمكن أن تحتوي على السجلات ولكن يوجد طريقة قد تكون أحسن وهي إنشاء نموذج مستمر ثم كتابة شفرة عند تكرار الرقم المدخل يتم فتح النموذج المرفق به جميع البيانات المتعلقة بصاحب الرقم بالنسبة لــ ثم يضع هذه الملاحظات في حقل ( السوابق ) هل تقصد كل البيانات أم البيانات المدونة في الحقل الخاص بالملاحظات.

ليش المثال ما عمل لديك

الله يعطيكم العافية والصحة لقد نقلت ما كتبتموه بخط يدي وذلك حتى أتمكن من الإستفادة من تحليلكم ولكم أن تتخيلون مدى استفادتي من أرائكم وأعتقد بعد نهاية البرنامج ستكون لدي حصيلة رائعة في التحليل أراء الأخوين Wise و WinMaster رائعة حقاً وأرجو أن تتواصلا معنا باستمرار وأن تتسع صدورالجميع للنقاش

ا ل ح ر ي ص ي نفس الكود السابق استبدل فقط كلمة " ممتاز " بكلمة " نعم "

الأخ الكريم Hotrnaill ما شاء الله مثال ممتاز الله يعطيك العافية لي ملاحظة بسيطة : حاول أن تجعل الجداول تدل على محتواها وأعد العلاقات بين الجداول . فقد قمت بربط جدول بيانات القسيمة _ وهو خاص بالأفراد " بجدول " تفاصيل القسيمة " وهو جدول _ الأجازات وجعلت نوع العلاقات : واحد لواحد ألا يمكن أن يأخذ عسكري أجازتين مثلاً النسة الحالية والسنة القادمة. عموماً لقد قمت بعمل بحث بواسطة الرقم العسكري كما طلبت وهذا المثال مرفق وإذا رغبت في التعديل أو رغبت في شرح شيء أو لم يكن ذلك ما تريد فلا تترد ووضح ذلك في نفس هذه المشاركة ولا تشيل هم بإذن الله أتمنا لك التوفيق ajazat.rar

بالنسبة لإختيار أشكال من مجلد خاص فلم أجد ذلك من قبل وسبق وأن قام الأخ / ابو حمود وهو مبرمج أكسيس لديه خبرة كبيرة بمحاولة وأرفق كود بذلك إلا أن الكود لا يعمل بالشكل الصحيح حتى معه شخصياً كما ذكر. بالنسبة للأشكال المتوفرة في أكسيس فأستخدم الكود التالي : Screen.MousePointer = 9 وغير الرقم 9 بأي رقم فمعضم الأرقام لا تدل على أشكال والبعض الأخر سترى شكل الماوس. استخدم الإرتباط التشعبي في فتح النماذج والتقارير سوف يكون عند إذن مؤشر الفأرة على شكل يد. ربما يكون أحد الأخوة قد وصل إلى الكود الذي ينفذ ذلك .

اخي فتى الوادي لا أعرف سبب تلك الرسالة ولكنني قمت بعمل مثال على الرابط التالي لكي تتطلع عليه ملاحظة : بالنسبة للكود الخاص بالوقت أعلاه فأنه لا يتغير وظل على نفس الوقت الذي فتح النموذج عليه وعند الرغبة في أن يستمر الوقت أثناء ما يكون النموذج مفتوحاً فلا بد من نقل كودي الوقت أعلاه من حدث في الحالي إلى حدث " عند عداد الوقت " وجعل الفاصل الزمني لعداد الوقت = 1000 أي ثانية. أيضاً لا بد من ضبط وقت وتاريخ الجهاز تيحاتي للجميع Date_And_Time.rar

الكمال لله سبحانه وتعالى بالنسبة لتشعب الموضوع فقد يكون ذلك بسبب وجهات النظر فكل سيبدي رأيه بما يراه مناسب ثم في الأخير نستخلص ما يراه الجميع مفيد. بالنسبة للمخازن : أنا لا أتخيل وجود شركة أو مؤسسة بدون مخازن وإذا كان البرنامج لا يحتوي على مخازن فقد يكون فيه نقص . لقد بدأنا في الموضوع والتعب وارد وارد لا مفر منه وما دمنا سنتعب نطمح أن نصل بمشروعنا هذا إلى درجة ترضي المشاركين على الأقل لا نتحسف فيما بعد ونقول الله لو ولو . نرجوا أن تدقق في الجداول الأخ WinMaster وتخبرنا بملاحظاتك فذلك يسرنا جداً ونحن في إنتظار تحليلك للجداول.

أضف مربع نص وسمه : TxtTime1 يظهر فيه الوقت بصيغة 12 ساعة أكتب الكود التالي في حدث " في الحالي للنموذج Me.TxtTime1 = Time() أضف مربع نص وسمه : TxtTime2 يظهر فيه الوقت بصيغة 24 ساعة أكتب الكود التالي في حدث " في الحالي للنموذج Me.TxtTime2 = Time$() لاحظ الفرق في الكودين هي علامة الدولار $ فقط أضف مربع نص وسمه : TxtTDateHijri يظهر فيه التاريخ الهجري أكتب الكود التالي في حدث " في الحالي للنموذج Calendar = vbCalHijri TxtTDateHijri = Date TxtTDateHijri = Format(DateHijiri, "yyyy/mm/dd") & " هـ" أضف مربع نص وسمه : TxtTDateGreg يظهر فيه التاريخ الميلادي أكتب الكود التالي في حدث " في الحالي للنموذج Calendar = vbCalGreg TxtTDateGreg = Date TxtTDateGreg = Format(DateEnglesh, "yyyy/mm/dd") & " م " غير في تسميات مربعات النصوص مثل ما تريد

الأخ العزيز /Wise السلام عليكم ورحمة الله وبركاته يا ليت أن تعمل جداول على مسنتد وورد بالحقول والجداول التي شرحتها أعلاه وهناك حقل ملاحظات فيه شرح مختصر. أسلوبك أعجبني فعلاً ويدل على شخص لديه خبرة في هذا المجال فسوف تساعدنا كثيراً بخبرتك لذلك. نريد أن نناقشه بشكل موسع هذا الجانب . كيف يكون سيرنا في البرنامج. المرحلة الأولى : ستكون عن شراء البضاعة واستلامها ووضعها في المخازن فقط. ونريد مناقشة هذه المرحلة ولا ننتقل منها حتى نغطي جميع الجوانب والفرضيات والتنبؤ . فأرجو أن تلبي طلبي لأنني أريد أن أدقق في ما ذكرت بشكل مستقل. لك فائق تحياتي

جدول المشتريات نوع السلعة: سيارات _ كمبيوترات _ مكيفات _ جوالات رقم السلعة: الكمية السعر لإفرادي السعر الإجمالي: السعر لإفرادي ضرب الكمية جدول التفاصيل رقم المخزن : رقم السلعة : يتم تسجيله آلياً من قبل البرنامج رقم الصنف : يكون نص لإحتمال ورود أحرف أو رموز ضمن رقم الصنف اسم الصنف : الموديل ثمن الشراء : سنة إنتاج الصنف ثمن البيع الافتراضي : يقررها صاحب الشأن كحد أفتراضي نسبة الخصم : تحدد بنسب معينة حسب صلاحيات المستخدم انتهاء الصلاحية : الفائدة منها عرض بيان بالسلع المنتهية لإستبدالها وعدم بيعها مباع: ياخذ قيمتين ( نعم _ لا ) ذلك يساعد في معرفة إذا تم يع سلعة معينة أم لا الشرح التفصيلي لما سبق نوع السلعة: يتم اختيارها من قائمة منسدلة وإذا كان اسم السلعة غير موجود في تلك القائمة تظهر رسالة تخبر المستخدم بأن السلعة ليست من ضمن القائمة وهناك خيارين الموافقة بالإضافة أم رفض إضافتها فإذا تم اختيار إضافتها يظهر رقم جديد في حقل رقم السلعة آلياً. • إذا كانت السلعة ضمن القائمة يتم إضافة الكمية إلى الكمية الموجودة في جدول المشتريات بشرط مطابقة رقم السلعة. يبقى لدينا ثمن الشراء الافرادي وثمن الشراء الإجمالي ففيها مشكلة بعض الشيء تتمثل في الأتي: قد تكون نوع السلع التي سيتم إضافة السلعة الجديدة إليها الموجودة في المخازن بسعر أقل أو بسعر أكبر وهنا المشكلة فما رأيكم في ذلك. خطر ببالي خيارين : 1. أما أن نرفع السلعة الأقل سعراً إلى سعر السلعة الأعلى . 2. قسمة السعر الإجمالي على الكمية وهنا سوف يظهر سعر شراء جديد يقع بين السعرين الأعلى والأقل. فمن لديه فكرة أفضل يتفضل بها. بالنسبة لجدول التفاصيل فيكون مربوطا بجدول المشتريات بموجب رقك السلعة رأس من ناحية جدول المشتريات وأطراف من ناحية جدول التفاصيل بحيث أنه عندما يختار المستخدم نوع سلعة يظهر له تفاصيل تلك السلعة بالكامل بالنسبة لكيفية إضافة رقم السلعة في جدول التفاصيل فيتم على النحو التالي : عند قيام المستخدم بإضافة تفاصيل سلعة معينة يختار اولاً نوع السلعة من قائمة منسدلة فيظهر رقم السلعة في جدول التفاصيل آلياً دون تدخل من المستخدم. مثلاً: نوع السلعة كمبيوترات رقم السلعة 12 يختار من القائمة كمبيوترات فيظر الرقم 12 آلي

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

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

اخي الكريم طرحك ممتاز وصراحة أعجبت بإسلوبك في الطرح من حيث الوضوح والتفصيل. بالنسبة لما طلبت فأكتب الكود التالي في حدث " في الحالي " الخاص بالنموذج 2 If Txt1 = "ممتاز" Then Me.Txt1.BackColor = RGB(255, 0, 0) Me.Txt1.FontName = "Arabic Transparent" Me.Txt1.FontSize = 12 Me.Txt1.FontBold = True Me.Txt2 = DCount("[اسم_الطالب]", "جدول_الطلاب", "[التقدير]='ممتاز'") Else Me.Txt1.BackColor = RGB(255, 255, 255) Me.Txt1.FontName = Tahoma Me.Txt2 = DCount("[اسم_الطالب]", " جدول_الطلاب") End If سؤال : لماذا وضعت التقدير خانة إختيار مع أن خانة الإختيار لا تأخذ إلا قيمتين فقط بينما التقدير يتكون من خمس حقول ( ممتاز - جيد جدا - جيد - مقبول - ضعيف ) ثم إذا أحببت أن تغير في لون مربع النص وخطه مع كل تقدير استخدم : Select case فيه سهله وممتع هذا مثال مرفق وقد فضلت أن اشرح الموضوع أيضاً للفائدة Database1.rar