وعليكم السلام
عملت لك استعلام attendance query
يمكنك عمل نموذج مستمر ويكون الاستعلام مصدر بياناته ... كل ما علي ان ان تعمل combobox للموضف واخر للمشروع ..يقومون بعمل تصفية للبيانات في النموذج
CODE HR.rar
طبعا لاني اتوه في المسميات ...اختصرت الجداول والحقول التي تريدها...وانت احتار في البقية 😂
عملت لك دالة تقوم بتحديث البيانات من الجدولين.. افتح النموذج واضغط على الزر..
ولزيادة الفائدة عملت لك استعلامين تحديث ..اذا اردت استخدامهم
سؤالي هو مافائدة السنة والشهر في النموذج فليس لهم علاقة بالتحديث
تحديث بيانات جدول .accdb
اخي ومعلمي الغالي @أبوبسمله
غلبتني والله بأستخدامك ال UNION
راحت عن بالي...على كل حال زيادة الخير خيرين لاني كنت اظن ان القائمة المنسدلة تبحث في بيانات واحدة
انا عن نفسي اعطيك اجابة جيدة بعد اذن الاخ @محمد التميمي
وعليكم السلام..
حسب علمي ان القائمة المنسدلة تأخذ قيمة واحدة عند البحث..
اما اذا اردت ان تعتمد على مربع نص فيمكن البحث فيه عن عدة قيم لكن في النموذج المستمر وليس في النموذج المفرد
لربما احد الاخوة لديه فكرة معينة...
بصراحة انا لم انتبه لاجابتك استاذنا العزيز @Foksh الا بعدما اكملت الملف وارفقته بالمشاركة
كل الاعتذار منك استاذنا ..ولو اني اعرف بأنك جاوبت لما اكملت الملف
السلام عليكم اخي @عمار العبيدي
ثق بالله ان الجميع هنا يبغي الاجر والثواب..وقد اطلعت على مرفقك الان ..لكن بصراحة لم افهم منه شيئا
اقتراحي ان تعيد موضوعك من جديد مع شرح مفصل لما تريد واتركك من الاستعلامات والنماذج اللي عاملها
وان شاء ستجد حلا..
والله من وراء القصيد
وعليكم السلام
اعمل هكذا
Private Sub cbo1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
on error resume next
Me.cbo1.Dropdown
End Sub
السلام عليكم و رحمة الله وبركاته...
مع اعتذاري لعدم قراءة جميع التعليقات ( بسبب الصحة) ..شافانا الله واياكم
بعض المواقع الاجنبية تستخدم عبارة ( solved) ..واظن انها عبارة فيها نوع من اللياقة ...لان بعض الاجابات قد تكون افضل وكلفت صاحبها وقتا
لكن هذا يعني ان صاحب الطلب قد وجد ضالته في اجابة معينة ..اما بقية الاجابات قد يستفاد منها البعض
والله المستعان..
مشاركة مع استاذي @ابوخليل
Public Function RoundNmber(Rou As Double) As Double
If Rou - Int(Rou) < 0.5 Then
RoundNmber = Int(Rou) + 0.5
Else
RoundNmber = Int(Rou) + 1
End If
End Function