jjafferr

شكرا اخوي محمد 🙂 جعفر

السلام عليكم 🙂 لا اعتقد بأنك بحاجة الى جدول tbl_Years ، ولا Tbl_Archiv (تم عمل حقل Archived في الجدول Tbl_Projects ، بحيث لما تختار المشروع ، لا يظهر في التقارير) 🙂 طريقة العمل: أ. تختار الشهر والسنة من النموذج frm_A_A ، ب. الاستعلام qry_Project_in_Period يعمل تصفية للمشاريع ، ويعتمد على الجدول tbl_Projects: يقارن بين التاريخ الذي اخترته في النموذج ، وبين تاريخ بداية ونهاية المشروع ، فيظهر فقط المشاريع بين التاريخين ، يظهر المشاريع التي لم يم ارشفتها Archived . وحسب اختيارنا ، هذه نتيجة الاستعلام ، وهو المشروع الوحيد الذي سيتعامل معه البرنامج : . ج. الاستعلام qry_All هو العقل المدبر ، والذي يربط جميع البيانات المطلوبة معا : . د. وعلى اساس هذا الاستعلام ، عملنا التقرير rpt_All : . تفضل اذا عندك اي اسئلة ، فانا الى هنا واتوقف 🙂 جعفر HR.zip

وعليكم السلام اخوي سلمان 🙂 لقيت لك هذا الكود ، بس ما عندي الشبكة علشان اجرب 🙂 http://visualbasic.happycodings.com/date-time/code3.html جربه واخبرنا النتيجة لوسمحت 🙂 جعفر

وعليكم السلام 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء فتح موضوع جديد يتناسب مع هذه القواعد 🙂 جعفر

رجاء معاينة الاستعلام qry_All ، فهو كل اللي تحتاج له ، ولكنه بحاجة الى بيانات الجدول Tbl_Employees ، ومافي داعي تعبئ الحقل "بند الموازنة" ، فالحقل Dif يقوم بهذا تلقائيا على اساس اختيار الشهر من النموذج : . الباقي التصفية ، باسم المشروع ، والسنة (رجاء مراجعة مشاركتي السابقة) 🙂 وعمل تقرير يكون هذا الاستعلام مصدر بياناته 🙂 جعفر HR.zip

اللي فهمته هو : في الجدول Tbl_A_c ، حقل التاريخ (01-03-2020) الموجود في السجل الاول ، واقعا يجب ان يكون لكل السجلات ، صح ؟ يعني في الصورة اعلاه ، السجل: تصنيع 1 ، سائق ، يجب ان يكون التاريخ امامه هو (01-03-2020) ، وهكذا لبقية السجلات ، صح ؟ او ان حقل التاريخ في الجدول فقط يرمز للتاريخ الذي تم اختياره من النموذج ، وان المقارنة لازم تكون لحقل مارس (وهو الذي تم اختياره في النموذج) ؟ سؤال : من اي جدول / حقل نحصل السنة ؟ جعفر

وعليكم السلام 🙂 هناك مجموعة امثلة لملفات الاكسل اللي من موقع النور : . . . . . رجاء تشوفها ، واذا المطلوب غير هذا ، رجاء تخبرنا 🙂 جعفر

شكرا جزيلا اخوي كاسر 🙂 هذه فكرة ان شاء الله استخدمها للنسخة التالية 🙂 بحيث ، نجمع هذا العمل مع Backup ، سواء بزر او عند الخروج من البرنامج 🙂 جعفر

وعليكم السلام 🙂 بعض الاوقات ، وهذا حصل معي ، يعطب الكومبوبوكس !! فلا تحاول وتعمل اي شيء ، سوى حذفه وعمله من جديد (لا تنسخ الكائن/الكومبوبوكس القديم ، نعم تقدر تنسخ الكود) 🙂 جعفر

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

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

السلام عليكم 🙂 هناك 3 طرق لعمل الذي تريده ، فإختار الطريقة التي تناسبك 🙂 . 1. اختيار السجل كاملا: الكود Private Sub Form_Current() Me.my_ID = Me.Text1 End Sub والتنسيق الشرطي واحد للحقول كلها Expression is: [my_ID]=[iid] . 2. اختيار كل حقل بطريقة مستقلة ، وبيانات الحقل المتشابهة كلها ستظهر : الكود Private Sub Text1_Click() Me.my_ID = "1|" & Me.Text1 End Sub Private Sub Text2_Click() Me.my_ID = "2|" & Me.Text2 End Sub والتنسيق الشرطي للحقل iid Expression is: Mid([my_ID],1,InStr([my_ID],"|")-1)=1 And Mid([my_ID],InStr([my_ID],"|")+1)=[iid] للحقل fName Expression is: Mid([my_ID],1,InStr([my_ID],"|")-1)=2 And Mid([my_ID],InStr([my_ID],"|")+1)=[fName] . 3. اختيار كل حقل بطريقة مستقلة ، وكل حقل له استقلاليته : الكود Private Sub Text1_Click() Me.my_ID = "1|" & Me.Text1 & "|" & Me.Text2 End Sub Private Sub Text2_Click() Me.my_ID = "2|" & Me.Text1 & "|" & Me.Text2 End Sub والتنسيق الشرطي للحقل iid Mid([my_ID],1,InStr([my_ID],"|")-1)=1 And Mid([my_ID],InStr([my_ID],"|")+1,InStr(3,[my_ID],"|")-3)=[iid] And Mid([my_ID],InStr(3,[my_ID],"|")+1)=[fName] للحقل fName Mid([my_ID],1,InStr([my_ID],"|")-1)=2 And Mid([my_ID],InStr([my_ID],"|")+1,InStr(3,[my_ID],"|")-3)=[iid] And Mid([my_ID],InStr(3,[my_ID],"|")+1)=[fName] . جعفر 1174.RemainFocus_OutsideForm.accdb.zip

حياك الله 🙂

السلام عليكم 🙂 رجاء معاينة qry_All ، وسترى اننا بحاجة الى المزيد من البيانات ، مثل الشهر (من اين نأخذه ، هل من النموذج) ونقارنه مع اي حقل في الجدول 🙂 رجاء تعبئة بيانات الجداول المطلوبة 🙂 جعفر HR.zip

حياك الله 🙂

تفضل 🙂 1174.RemainFocus_OutsideForm.accdb

اخي الفاضل 🙂 وبعد 10 مشاركات في هذا الموضوع ، وانت شايف اننا ما فاهمين طلبك ، اما آن الاوان ان تخبرنا بالضبط شو اللي تريده ، وبالتفصيل ، لوسمحت !! جعفر

الحمدلله 🙂 الظاهر القلة من الاعضاء يعرف اهمية هذا البرنامج (وخصوصا بنسخته الاخيرة 🙂 ) فياريت ، وبدون امارة عليكم اخواني @kaser906 و @محمد سلامة و @سلمان الشهراني ان تعطونا بعض تجاربكم ، حتى يستفيد الجميع 🙂 جعفر

هذا نفس الكود السابق ، ولكن على النموذج المستمر ، واذا ما كان اللي تريده ، فرجاء New 1.accdb

رد اخي احمد و ردي انا يعطون نفس النتائج ، ويكونون في حدث النقر على الزر 🙂 جعفر

هذه طريقة اخرى Private Sub Command2_Click() 'Me.Child0.SetFocus Screen.PreviousControl.SetFocus End Sub جعفر

حياك الله 🙂 جعفر

وعليكم السلام 🙂 راجع العلاقات بين الجداول عندك ، فهي اللي تمنع ادخال مادة غير موجودة في جدول آخر !! جعفر

حياك الله 🙂 الكود الذي عندك يشتغل ، لما عندك سجلات ، ولكن في بداية السنه ، وحيث لا يوجد سجل ، اي الحقل no لا توجد له قيمة ، المعادلة ستعطيك نتيجة Null وبالتالي ستحصل على رسالة خطأ ، فلازم نعالج هذا الموضوع ، و أحد الطرق هي الدالة nz ، والتي نطلب منها استبدال Null بالرقم صفر ، فيعمل الكود بالطريقة الصحيحة 🙂 بدلا عن t2 = DMax("[no]", "hesab", j) + 1 استعمل t2 = nz(DMax("[no]", "hesab", j),0) + 1 جعفر

وعليكم السلام 🙂 انا ما اعرف اسماء الحقول في الجدول ، لذلك يجب ان تغير اسمائها في الكود 🙂 الموجود عندك j = "Year(datee) = " & Year(Me.datee) t2 = DMax("[no]", "hesab", j) + 1 اضف السطر الثاني j = "Year(datee) = " & Year(Me.datee) j = j & " And [Sanad]='" & Me.t1 & "'" t2 = DMax("[no]", "hesab", j) + 1 غير [Sanad] الى اسمه الصحيح في الجدول ، وغير Me.t1 الى اسمه الصحيح في النموذج 🙂 جعفر