لدي سؤالين : السؤال الأول وهو عن أداة التسلسل الشجري الذي استخدمها الأخ محمد ندا في هذا الموضوع
لأني بغيت أسأل في نفس الموضوع حصلته مغلق والله يجزاكم كل خير على الموضوع المميز
السؤال الثاني : بسوي فورم للغياب اليومي لمجموعة مراحل ، الشي الي مو عارفه شلون اسويه مضبوط هو شلون اخزن بيانات الطالبات لكل يوم باليوم والتاريخ
يعني مثلا يوم السبت 3/3/1431 عندي 3 طالبات غياب من صف 1/1 شلون احفظ البيانات باليوم والتاريخ على مدار فصل دراسي كامل ؟
ومشكورين واتمنى تساعدوني لاني محتاجه اخلصه خلال يومين ..
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم ورحمة الله وبركاته
tiola ، أين قاعدة البيانات ؟
رجاء إرفاق قاعدة البيانات للتطبيق عليها بشكل مباشر .
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
وعليكم السلام ،،
قاعدة البيانات عندي مكونة من مجموعة جدوال للي هي الفصول الموجودة أول ( 7 فصول ) ثاني (6 فصول ) ثالث (4فصول) رابع (4 فصول ) خامس (4 فصول ) سادس (3فصول )
عندي جدول الغياب اليومي ، جدول الغياب الشهري ، جدول المتأخرات
الي ابيه يكون عندي فورم لبيانات الطالبات بحيق أقدر أضيف طالبات جديدات والتعديل والحذف
وفورم للغياب اليومي وهو الي كنت ابغى فيه أداة الشجرة عشان يشمل كل الفصول بفورم واحد بحيث أقدر اسجل يوميا وارجع لها كتقارير للطباعه إن أحتجتها
فورم للمتأخرات ونفس الشي بشكل يومي
فورم للغياب الشهري بس هل يصلح أجمع عدد نقرات التشك بوكس في حال كان بعذر او بدون عذر في تكست المجموع ..
ومشكورين كثير على جهودكم بس اتمنى تساعدوني بسرعة لانه مطلوب مني تسليمه يوم السبت القادم .
حيث أنني عملت على المشروع بالفيجوال بيسك.نت وواجهتني مشكلة ولم استطع حلها وتوقف البرنامج عن العمل واضطريت لعمله بالاكسيس لذا ارجوا المساعدة منكم ..
وشكراً
تم تعديل هذه المشاركة بواسطة tiola في 15 فبراير 2010 في 22:58
خيالي يتذكّر، ذاكرتي تتخيّل!
طيب ممكن بس أداة الشجرة شلون اضيفها للفورم ووين ألقاها لأنها أول مرة تمر علي ؟
وراح ترتب لي شغلي كثير .
خيالي يتذكّر، ذاكرتي تتخيّل!
tiola كتب:طيب ممكن بس أداة الشجرة شلون اضيفها للفورم ووين ألقاها لأنها أول مرة تمر علي ؟
وراح ترتب لي شغلي كثير .
النموذج فى وضع التصميم
اضغط على قائمة ادراج (insert)
اختار active x control
و من المربع الذى يظهر اختار Microsoft TreeView Control
و هذا مثال جميل مع شرح كامل
مشكور أخوي ماقصرت فادني كثير .
كان فيه مثال للمشرفة زهرة عن 3ComboBox طبقت نفس المثال لكن مايعطيني نتيجة مع اني كتبت نفس الكود مع التغير طبعاً
لكن يسوي تصغير للنافذة بدون مايفتح لي الفروم الي اخترته ..
وهذا الكود
اقتباسPrivate Sub MyClass_AfterUpdate()MyCa.Requery
End Sub
End Sub
Private Sub open1_Click()
DoCmd.Minimize
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "1" Then
DoCmd.OpenForm "Absence 1_1"
End If
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "2" Then
DoCmd.OpenForm "Absence 1_2"
End If
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "3" Then
DoCmd.OpenForm "Absence 1_3"
End If
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "4" Then
DoCmd.OpenForm "Absence 1_4"
End If
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "5" Then
DoCmd.OpenForm "Absence 1_5"
End If
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "6" Then
DoCmd.OpenForm "Absence 1_6"
End If
If MyClass.Column(1) = "Ãæáì ÅÈÊÏÇÆí" And MyCa.Column(1) = "7" Then
DoCmd.OpenForm "Absence 1_7"
End If
End Sub
وانا ابي اكررها على عدد الجداول الي موجودة عندي
خيالي يتذكّر، ذاكرتي تتخيّل!
القاعدة كبيرة وفيها معلومات ارفقتها ببداية الموضوع لكن بدون الفورم الي اتكلم عنه .
فإذا يصلح اوصفها ، لان ماعندي وقت ارجع احذف البيانات واررفقها من جديد ..
عندي فورم فيه 2ComboBox و Button واحد
الكومبو الأول فيها السنوات (أول - ثاني - ثالث - رابع - خامس - سادس ) والثاني الفصول ( 1 -2 -3 -4 -5 -6 )
ابي لما اختار السنة والفصل واضفط على زر الأمر ينقلني للفورم ..
خيالي يتذكّر، ذاكرتي تتخيّل!
المثال موجوده للأخت زهرة ، والكود ارفقته ومافيه شي عشان ارفق المثال كلها 2 كومبو بوكس وزر امر فقط
اتمنى تشوفون الكود الي ارفقته وتقولون لي وين الغلط ؟
لاني محتاجه الحل اليوم وصارلي كم يوم انتظر فإذا ممكن مشكورين تلقون لي حل . .
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم ورحمة الله وبركاته
أختي الكريمة .. في الكود الذي وضعتيه ... في السطر الثالث والرابع ... End Sub ... وهذا خطأ فيجب أن تحذفي أحدهما
قلت أن عند تنفيذ الكود يقوم بتصغير النموذج ولا يفتح شئ ... والسبب قد يكون لأن قيمة الكمبو بوكس الثاني هي رقمية ... والقيمة الرقمية لا تساوي "1" ... بل تساوي 1
وأرى من الأنسب عوضا عن وضع دالة شرطية ثم إغلاقها ثم البدء بدالة شرطية أخرى ... أن نستخدم If ثم ElseIf وهكذا وننهيها بـ End If
وكما ترين الجميع حاول مساعدتك ولكن عند عدم وجود مثال فيكون من الصعب التوصل للحل الصحيح وتكون المسألة مسألة تكهنات
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
وعليكم السلام ورحمة الله وبركاته
الف شكر لك تمت الاجابة ، يعطيكم العافية
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم ورحمة الله وبركاته
تكرمي أختي الكريمة
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
السلام عليكم ورحمة الله وبركاته
أرأيتي أختي عند تقديم المثال يسهل الحل ... وجزاك الله خير أخي hamidymom على جهودك في خدمة إخوانك
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
صح أخوي koao لك الشكر ..
تمت الاجابة اخوي hamidymom وشكرا ..
تم تعديل هذه المشاركة بواسطة tiola في 19 فبراير 2010 في 19:34
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم ورحمة الله
تبقى لي القليل من الأسئلة .
في قاعدة البيانات هل استطيع ان اختار من النموذج الاسم المسجل بالجدول ويدرجه لي بالنموذج
يعني مثلا بالقاعدة المرفقة بالرد اعلاه لو ادرجت اسماء بداخل الجدول وحفظتها ، لما اجي ابي اسجل الغياب اليومي بدل ما اكتب انا الاسم ورقم الهاتف اختارها من التكست
ويدرجها لي فقط . اتمنى وضح المعني والقاعدة مرفقة بردي اعلاه وشكراً
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم
اتمنى انكم تساعدوني بالباقي وارفقت لكم قاعدة البيانات كاملة ، صح اني مكررة اشياء كثيرة ، المفروض تكون بصورة اخرى لكن اتمنى تساعدوني .بنطرد من المدرسة والسبب هالقاعدة ..
1- نموذج الغياب اليومي Absence ابي لما ادخل غياب الطالبات اليومي ينزل مباشرة بالشهري Tmonth الي هو الاسم والايام بس انا اختار اذا كان بعذر او بدون عذر .،،
2- ابي اربط النموذج الغياب اليومي بموقع انترنت ، الموقع خاص sms ابي اربطه بحيث نفس الشي ينزل لي الاسماء بالموقع ويرسل المسجات على طول ؟؟
3- ابي البرنامج يكون ادخال بمعنى راح افرغه من بيانات مدرستي واعطيه اخرى ، بحيث يقدرون يدخلون شعار المدرسة + اسم المدرسة + مديرة المدرسة + المرحلة اذا كانت ابتدائي او متوسط او ثانوي
والسنوات والفصول ..
محتاجه كثير مساعدتكم وخلاص هالمرة ثابته السبت اخر شي ، ومشكورين مقدماً
تم تعديل هذه المشاركة بواسطة tiola في 24 فبراير 2010 في 01:53
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم ورحمة الله وبركاته
أختي الكريمة تيولا
أولاً أنا أقدر مجهودك العظيم في إنشاء قاعدة البيانات هذه ، ولكن أختي الكريمة لا تنزعجي مني :) فقاعدة البيانات هذه مبنية على أساس خاطئ !!
أختي الكريمة !! قاعدة البيانات هذه يلزمها إعادة بناء من جديد ، وأعتقد أختي أنه لا أحد من الأخوة الذين هم في المنتدى يفكر أن يعمل أي شيء من الذي طلبتيه ، ليس لطلباتك ، لا سمح الله ،
ولكن أختي تيولا طلباتك ليست بالطلبات السهلة أبداً !! ولا أحد من الأخوة سينفذ طلباتك على قاعدة مبنية بطريقة خاطئة ، لأنه سيتعب في تنفيذها !!
فأسأل الله أن يعينك أختي الكريمة على إعادة بناء القاعدة من جديد بطريقة صحيحة ، وبعدها إن شاء الله ، ضعي طلباتك من جديد وستجدين الأخوة في مساعدتك بإذن الله تعالى .
وأخيراً أختي تيولا أعتذر إن كنت قد أحبطت من عزيمتك ، ولكن ، شدي من حيلك ، وابدأي من جديد وعلى بركة الله
ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم
تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .
المشكلة انه مابقى وقت عندي بس مو مشكلة بحاول ان شاء الله ..
طيب بس ابي طريقة او شرح اداة الشجرة ، في احد الاخوان حطلي مثال لكن ماعرفت ..
كمان طريقة combobox يعني بدل ما اكرر النماذج ابي اختار منه ويجلب لي البيانات من الجدول على طول
وسوري كثرت بالاسئلة ، بس شلون اخلي الصورة اختيار لما يضفط عليها ويضيف صورة من الجهاز . .
وربط القاعدة بوقع انترنت بالبيانات ،
ومشكور اخوي ماقصرت ..
تم تعديل هذه المشاركة بواسطة tiola في 24 فبراير 2010 في 01:54
خيالي يتذكّر، ذاكرتي تتخيّل!
السلام عليكم ورحمة الله وبركاته
أختي الكريمة ... جربي هذا الكود لإضافة صورة
Dim fpath As Variant
With Application.FileDialog(3)
.Title = "Choose Picture"
.AllowMultiSelect = False
.InitialFileName = ""
If .Show = -1 Then
Me.PicB.Picture = .SelectedItems(1)
End If
End Withمع تغيير PicB لإسم مربع الصورة في برنامجك
وبخصوص الشجرة فلقد ساعد في إكمال برنامج لإستاذي كمال النحال ... تجدينه على هذا الرابط
/index.php?showtopic=212013&view=findpost&p=1050895
وساراجع مثالك وأحاول أجد لك طريقة لإستخدام نموذج واحد عوضا عن تكرار النماذج
وبالتوفيق
اللهم صلي على محمد وعلى آل محمد كما صليت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
وبارك على محمد وعلى آل محمد كما باركت على إبراهيم وعلى آل إبراهيم إنك حميد مجيد
النموذج الي راح اخليه وحيد اسويه بالمعالج لجدول واضيف اداة الشجرة .
او استخدم التصميم بدون اضافة جدول واضيف اداة الشجرة ..
وبالنسبة لكود الصورة ابيها تكون ثابتة يعني مو كل ما افنح النموذج اختار الصورة .
وشكراً
تم تعديل هذه المشاركة بواسطة tiola في 25 فبراير 2010 في 23:11
خيالي يتذكّر، ذاكرتي تتخيّل!