osama ababneh

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

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

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

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

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

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

عداد الوقت TIMER اخواني السلام عليكم ارجو ان تعذروني لطريقتي في الشرح الممل والسبب ان الموضوع موجه الى المبتدئين ولا اريد ان يكون احد المهتمين في حالة من الغموض تجاه اي شيئ إخواني عداد الوقت يعتبر من الخاصيات الرئيسية في برمجة قواعد البيانات ومن خلاله تستطيع عمل توقيت لإجراء أوامر معينة و حركات جميلة تضفي لمسات جمالية في النموذج فأي كود تستطيع أن تضعه في عداد الوقت ليتم تنفيذه وطبعا عداد الوقت ليس كود وإنما مكان يوضع فيه الكود ففي السابق وضعنا الكود عند الفتح ويمكن وضعة عند التحميل أو الإغلاق أو التحديث أو أو .... ويمكن أيضا وضعة عند عداد الوقت واليكم الطريقة: ندخل على خصائص النموذج ==== حدث==== عند عداد الوقت ونضع الكود الذي نريده مثال لعمل ساعة في النموذج انشئ نموذج جديد بطريقة عرض التصميم ادخل تسمية جديدة وسميها (TIME1) ادخل تسمية أخرى وسميها (TXT3) ادخل صورتين مختلفتين في النموذج لهما نفس القياسات وسميهما (PIC1) (PIC2) أولا الساعة ادخل على الكود عند عداد الوقت وضع هذا الكود time1.Caption = Time ثانيا النص المتحرك txt3.Left = txt3.Left + 100 If txt3.Left = 2500 Then txt3.Left = 0 End If ثالثا إخفاء وإظهار الصور ( الوميض) pic1.Visible = Not pic1.Visible ادخل على خصائص الصور واجعل الخاصية مرئي تساوي ( لا ) كما تعلمنا في الدرس السابق وبعد ذلك نستبدل القيمة الموجودة في الفاصل الزمني لعداد الوقت ونضع فيها مثلا 500 علما ان الثانية الواحدة = 1000 بالتالي يصبح الكود كاملا كالاتي Private Sub Form_Timer() time1.Caption = Time pic1.Visible = Not pic1.Visible txt3.Left = txt3.Left + 100 If txt3.Left = 2500 Then txt3.Left = 0 End If End Sub آلية العمل ففي المثال السابق سيتم تنفيذ الكود كل عشر ثانية أي ستتحول قيمة التسمية () إلى الوقت الحالي كل عشر ثانية وبالتالي ستجد أن الثواني تتغير والنص يتحرك والصور تعطي وميض وهذه هي الفكرة الأساسية وفكر أنت بالكم الهائل من الأفكار التي ممكن أن تطبقها باستخدام هذه الطريقة Ex.rar

اخواني اولا اشكركم على الردود المشجعة خاصية الاخفاء والاظهار (VISIBLE) وباستخدام هذة الخاصية تستطيع اخفاء او اظهار أي شيئ تريدة سواء في النموذج او التقرير والصيغة هي: XXX.VISIBLE=TRUE ====== اظهار XXX.VISIBLE=FALSE ====== اخفاء مثال: بالرجوع الى نفس المثال نغير خاصية الإظهار للتسمية (TXT1) وذلك بالدخول الى خصائص == تنسيق == نغير القيمة مرئي الى (لا) الان ندخل الى النموذج ونضع هذا الكود عند الفتح Private Sub Form_Open(Cancel As Integer) txt1.Visible = False End Sub ثم بالإضافة الى الكود الموجود اصلا في زر الامر نضيف الآتي txt1.Visible = True النتيجة: عند فتح النموذج تختفي خانة النتيجة وعند الضغط على زر النتيجة فانها تضهر من جديد

اخي الكريم اتوقع ان تجد طلبك في هذا الرابط http://www.officena.net/ib/index.php?act=S...;t=177&st=0

اخي من الصعب طباعة نموذج وهو مغلق (النموذج الثاني) اما النموذج الحالي فيمكنك طباعتة عن طريق الكود: DoCmd.PrintOut acSelection, , , acHigh

اخي اذا امكن ان ترفق الملفيكون افضل بكثير فاذا لم استطع ان اساعد فبالتاكيد فان الاخوان لن يقصرَو في ذلك

اخي بنك بانثر جرب استخدام (enabled.) xxx.Enabled=False او box1.Enabled=true اي تضع كود عند الفتح يجعل كل الحقول مغلقة عدا ما تريد ثم تضع في الحقل الاول بعد التحديث كود يجعل الحقل الثاني مفتوح وهكذا وجرب وانشاء الله تمشي الامور مع هذه الطريقة

اخي سائد تجنبا لتكرار نفس الموضوع عدة مرات لو تكرمت وقمت باضافة رد على موضوعك السابق وليس فتح موضوع جديد اما بالنسبة لطلبك فبالتاكيد ممكن لانه يمكنك استخدام اي معادلة رياضية في الاكسس ولكن للاسف طلبك غير واضح فاذا كان قصدك وجود مساعدات وتريد توزيعها حسب عدد الافراد فبامكانك ذلك عن طريق ادخال الكود تحت زر الامر (ابدا التوزيع) وغير ذلك يرجى التوضيح فلا احد في المنتدى ممكن ان يبخل عليك

اخي كما تفضل الاخ Knight22666 سابقا لو ارفقت قاعدة البيانات بالتاكيد لن يبخل احد في مساعدتك ولكن لتجنب تكرار كود العميل انشئ استعلام وضع فية كود العميل ثم ادخل على SQL وضع الامر التالي معتغيير اسم الجدول وكود العميل SELECT DISTINCT TABLE NAME.CUSTOMERCOD FROM TABLE NAME ORDER BY TABLE NAME.CUSTOMERCOD DESC;

الدالة msgbox تستخدم هذه الدالة لاضهار رسالة معينة عند للتحق من امر معين او التنبية للمستخدم باختصار نكتب كلمة msgbox متبوعة بعلامتي التنصيص "" وفيهما نص الرسالة الصيغة MsgBox(prompt[, buttons] [, title] [, helpfile, context]) حيث ان 1- Prompt وفية يتم ادخال نص الرسالة ويجب ان تكون بين علامتي التنصيص (" ") 2- Buttons وهي الازرار التي تريدها ان تضهر مع الرسالة مثلا ( موافق , الغاء , حفظ ....) 3- Title عنوان الرسالة ويجب ايضا ان يكون تكون بين علامتي التنصيص (" ") 4- Helpfile ملف المساعدة التابع لهذة الرسالة والان بعض الامثلة للأزرار الممكن استخدامها vbOKOnly ويضهر لنا رسالة تحتوي على الزر (موافق فقط) vbOKCancel ويضهر لنا رسالة تحتوي على الزر ( موافق , الغاء) vbAbortRetryIgnore ويضهر لنا رسالة تحتوي على الزر (تجاهل , اعد المحاولة , احباط) vbYesNoCancel ويضهر لنا رسالة تحتوي على الزر (نعم , لا , الغاء) vbYesNo ويضهر لنا رسالة تحتوي على الزر (نعم , لا) ولكن الاكثر استخداما هو vbOKOnly , vbOKCancel صيغة اخرى If MsgBox("www.officena.net", vbOKCancel) = vbOK Then DoCmd.OpenForm "officena" End If وهذا الكود ممكن استخدامة غالبا لاضهار رسالة تحقق في حال الخروج من البرنامج مثلا او حذف سجل .... الخ

مشكور اخي شريف على الرد الرائع

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

اخي الموضوع سهل والله اعلم اولا اعمل تقرير فية نفس محتويات النموذج وبالتالي اطبع التقرير وبالنسبة لرفع الملف حولة اولا الى rar ثم ارفعة

مشكور اخي الكريم على المرور

اخي شريف بامكانك استخدام الاكواد التالية لتغيير الخلفية BackColor = 7143423 لتغيير لون الخط ForeColor = 255 If txt1.Value > 50 Then txt1.ForeColor = 255 txt1.BackColor = 7143423 End If

اخي العزيز طلبك غير مفهزم فهل تريد جدول ام برنامج؟؟؟؟؟ واذا كان طلبك برنامج اذهب الى المشاركة http://www.officena.net/ib/index.php?showtopic=23060

اخواني سيتم اليوم شرح اضافة الشرط وشرح فتح نموذج او تقرير برمجيا اولا الشرط IF وظيفة الاداة IF هي التاكد من تحقق شرط معين ثم تنفيذ امر معين واذا لم يكن الشرط تحقق تنفيذ امر اخر مثال: بالرجوع الى المثال السابق المرفق في بداية الموضوع لو فرضنا اننا نريد التاكد من انه اذا كان احد مربعي النص اقل من صفر فانه تضهر رساله تقول انه لا يمكن ان تكون احدى القيمتين اقل من صفر وعدا ذلك فان النتيجة تضهر بشكل عادي فيكون الكود: If box1.Value < 0 Or box2.Value < 0 Then MsgBox "لا يجب ان تكون القيم اقل من صفر" Else txt1.Caption = ([box1] * [box2]) End If ثانيا فتح نموذج او تقرير بواسطة زر امر برمجيا الصيغة OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs) 1-FormName ( اسم النموذج المراد فتحة ويجب وضعة بين علامتي الاقتباس ( "اسم النموذج" 2-View طريقة العرض . 3-FilterName اسم الفلتر 4-WhereCondition الشرط المراد تطبيقة عند فتح النموذج 5-DataMode طريقة عرض البيانات 6-WindowMode شكل شاشة العرض 7-OpenArgs الشيئ الوحيد الذي يجب ان يتم ادخالة هو اسم النموذج اما باقي العناصر فهي اختيارية أي ليست ضرورية في كتابة الكود مثال: هذا المثال يفتح النموذج (الموظفين) اذا تحقق شرط ان اسم الموظف هو ( محمد) DoCmd.OpenForm "الموظفين", , ,"Name = 'محمد'" ملاحظة كل ما ورد ينطبق على التقارير أيضا

اخي العزيز يرجى توضيح طلبك اكثر قليلا

الله يعطيك العافية اخي على هذه المشاركة الجميلة ولكن الملف محمي بكلمة مرور !!!!! فكيف سنرى المحتوى

اخي الكريم لو تكرمت وارفقت الملف لكي نتمكن من مساعدتك