عمر ضاحى

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

لا اكذب عليك لم تكن هكذا رؤيتى للبرنامج كنت اريد ان اجعل هذا الاختيارات بعيد عن المستخدم لان هذا سيكون سيستم لا يمكن ان يكون بشكل مع موظف وبطريقه اخرى مع موظف بل كنت اريد ان اجعل النظام من الكود نفسه اى اذا اردت ان اجعل النظام يحسب يوم الجمعه فقط او الجمعه والسبت او بدون كله فى هذا السطر Netholidyas = holidaysdat - Fri_Days - sat_Days حيث ان لكل عنصر من الثلاثه داله خاصه به holidaysdat بيستمد معلوماته من جدوله Fri_Days يستمد معلوماته من عدد ايام الجمعه بين التاريخين sat_Days يستمد معلوماته من عدد ايام السبت بين التاريخين فكيف اعيد الصياغه من جديد مع الشرح علشان افهم ليه انا هختار الداله دي واترك الداله دي هذا اذا كان لن يتعبكم فانا اشعر بالاحراج انى اتعبت كل العمالقه امثالكم

انا حملت النموذج وهو شغال تمام انا لى طلبين من حضرتك 1- لو حابب اكتب هذا الكود ب VBA علشان احاول اطبقه عندي افعلها ازاى 2-استأذن حضرتك ان تنظر الى الملف المرفق وتنظر الى الاكواد وتشوف الاليه التى يعمل بها الكود واستسمحك ان يكون صبرك معي طويل حبه حبتين كده 😁 وانظر الى نتيجة الكود الخاص ب holidaysdate = هتلاقيه شغال تمام لكن فى الكود التالى والذى لا يعمل

If begdate <= enddate Then begdate = begdate - 1 Else enddate = enddate - 1 End If Date1 = Fix((begdate + (7 - WkDay)) / 7) Date2 = Fix((enddate + (7 - WkDay)) / 7) CountWkDay = Abs(enddate - begdate) هذا بعد التعديل للعمل عندي والنتيجة اخرجلى عدد 18 وانا اريد عدد يوم الجمعه خلال الفتره يعنى مثلا اليوم تاريخ 20/07/2021 ولو قولت ليوم 27/07/2021 هنا هيكون النتيجه هي ( 1 يوم جمعه و 1 يوم سبت خلال هذه الفتره ) وهذا ما اريده

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

انا اريد ان افهم هذا وفعليا اريد ان اتعلمها لكن لما اجرب بالاقى بيدينى خطأ والدنيا بتقف لان الداله محتاجه شرح توضيحي اكثر قليلا اعتذر لكن انا مش فاهم نقطه هنا انا استبدل Date1 ب begdate عندي ؟ انا لا اريد ان تظهر النتيجه فى الفورم بل يحتفظ بها الاكسيس فى الذاكره للرجوع اليها ويحدث سبب وجودها وهو الداله التاليه التى سيكون بها العمليه الحسابيه

للاسف لم يعمل معي ايضا هل هو يعمل جيدا معك ؟ انا معايا اصدار 2019 هل لهذا تأثير محتمل ؟ وايضا اعتقد ان من الممكن ان يكون الخطأ فى هذا السطر "WeekdayName(weekday([HoliDays]),true)= 'Fri'" & _

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

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

الله يعطيك العافيه لما بتضع الاكواد كده ويجلس من مثلى من المبتدئين ويقراء الكود اجده سهل لانى باعرف ليه غيرت النقطه دي للنقطه أخرى عشان اعمل حاجه زي التعديل او ارسال المعلومات الى الجداول لك كل تحياتي

السلام عليكم عيد مبارك عليكم عارف انه النهرده عيد ^_^ كل سنه وانتم طيبين لكن انا الكود ده شاغل دماغي عاوز اعرف فين مشكلته 😅 فى الكودين بالاسفل يفترض انهم يعطونى عدد ايام الجمعه بين تاريخين وايضا السبت لكن بيعطينى صفر 'حساب عدد ايام الجمعة ضمن الاجازة الرسمية بين التاريخين Fri_Days = DCount("[HoliDays]", "tblHoliDays", _ "WeekdayName(weekday([HoliDays]),true)= 'Fri'" & _ "and [HoliDays] between #" & begdate & "# and #" & enddate & "#") Debug.Print "Fri_Dats:--->" & Fri_Days 'حساب عدد ايام السبت ضمن الاجازة الرسمية بين التاريخين sat_Days = DCount("[HoliDays]", "tblHoliDays", _ "WeekdayName(weekday([HoliDays]),true)= 'Sat'" & _ "and [HoliDays] between #" & begdate & "# and #" & enddate & "#") Debug.Print "Fri_Dats:--->" & Fri_Days هل يمكنكم معرفة اين الخطأ ؟

تم حل المشكله لما حطيت اسم الجدول بين "[]" DSum("[Days]", "[tblVacation]", "[EmpCode]=" & Me.CbEmpNo)

لم تعمل حتى لما اخذتها فى نموذج خارجي بنفس الجدول ونفس البيانات لم تعمل

السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير وعيد اضحي مبارك عليكم واعادة الله علينا وعليكم باليمن والبركات بعد اذن الاساتذه الكبار والجميع انا مش عارف ليه الكود ده بيدينى خطأ او مش خطأ يعنى خطأ لا لكن بيدينى النتيجه صفر وفى الجدول هناك اكثر من اجازه اجماليا يتخطأ العدد المطلوب الكود هو total = DSum("[Days]", tblVacation, "[EmpCode]=CbEmpNo") Debug.Print "totalVacation:--->" & total حيث ان [Days] هو الحقل الذى بيه عدد الايام المطلوب جمعها tblVacation طبعا هذا اسم الجدول [EmpCode]=CbEmpNo هنا المعيار ال هيجمع عليه (رقم الموظف) راجعت الكود اكثر من مره لكن دائما النتيجه هي صفر هذه صورة من debug عشان اتبع الاكواد ونتائجها وكانت النتيجة صفر عشان كده كل ما تالها من إجراءات كانت بها خطأ وكل عام وحضراتكم بخير انتم والاسرة الكريمه

اولا احب اشكرك على مساعدتك الكود يعمل جيدا

هذا هو كمثال Project2.accdb

انا فكرت فى كود زي كده If DLookup("[Paid]", "[tblSolaf1]", "") = No And DLookup("[SolfaDate]", "[tblSolaf1]", "") <= Month() Then MsgBox "هناك سلف لم يتم الانتهاء منها", vbInformation, "تنبيه" DoCmd.OpenForm "1Home" Else DoCmd.OpenForm "frmSalary" End If لكن طبعا مدينى خطأ فى نقطة الشهر لان التعبير واضح ان خطأ فمش عارف اعبر عنها ازاى

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

والله لا اعرف كيف ان اعطيك حقك ومعروفك معى ومع غيري الف الف شكر وجعلك الله من المغفور لهم فى هذه الايام المباركه

السلام عليكم كنت محتاج كود لنموذج غير منضم الكود يستدعيلى قيمة الراتب من جدول الرواتب اسم الجدول tblSalary اسم الحقل ال فيها القيمه BasicSalary المرجع هو رقم الموظف وده بختاره من قائمة فى النموذج هذه القائمه اسمها CbEmpNo جربت هذا Dim str2 As String str2 = "Select * from tblSalary " Me.RecordSource = str2 str2 = "Select * from tblSalary where [IDSalary]=" & Me.CbEmpNo.Column(0) Me.txtbascSalary = Me.CbEmpNo.Column(1) لكن هذا لا يعمل معى لا ادري ليه

تم حل المشكله الكود سليم الخطأ من الجداول عندي حقل المفترض انه نص كان رقم

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

ايضا بعد اذن حضراتكم المفترض ان الكود الذى بالأسفل خاص بجزئية اقساط السلف Private Sub cmdSave_Click() Dim db As DAO.Database Dim rs As Recordset Dim id As Integer On Error Resume Next Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then MsgBox ctl.Name & " " & "لا تترك الحقل فارغ" ctl.SetFocus Exit Sub End If End If Next ctl Set db = CurrentDb Set rs = db.OpenRecordset("tblSolaf") rs.AddNew rs.Fields("EmpCode") = Me.CbEmpNo rs.Fields("SDate") = Me.txtdatedes rs.Fields("Solfa") = Me.txtTotalSolfa rs.Fields("Remarks") = Me.txtNote rs.Fields("MostanadNo") = Me.MostanadNO rs.Update rs.Close Set rs = db.OpenRecordset("tblSolaf1") Dim i Dim j For i = 0 To Forms![frmSolfa]![txtpartSolfa] - 1 rs.AddNew rs.Fields("SolfaCode") = Me.CbEmpNo rs.Fields("SNO") = i + 1 j = i + 1 rs.Fields("Statment") = "Kest No " & j rs.Fields("Mostanad1") = Me.MostanadNO rs.Fields("SolfaDate") = DateAdd("m", i, txtDateSolfaStart) rs.Fields("SolfaValue") = Me.txtammSolfaP rs.Update Next i rs.Close DoCmd.RunCommand acCmdSaveRecord Me.Requery MsgBox "Successfully Saves..!", vbInformation, "Warning" DoCmd.Close DoCmd.OpenForm "frmsolfa" DoCmd.GoToRecord , , acNewRec End Sub لكن ولسبب ما مش عارف ليه مش راضي يشتغل انا فعلت كل شئ وكل البيانات مظبوطه بس مش بيقسم الاقساط ويضعها فى جدول اقساط السلف (Solfa1) هل يمكن حل هذا !

انا بالفعل عامل فى العلاقه ربط رأس باطراف وعامل فى جدول ساعات الاضافى حقل EmpCode ورابطه بالموظفين تم عمليت الربط فى بعد التحديث لحقل عدد الساعات اضفت VBA Me.b1 = Me.a1 Me.b2 = Me.a2 Me.Refresh واشتغل كويس بس دلوقتى الحقول انا ظابط انه فيها كسور (علامات عشريه) وعملت ده فى الجدول ايضا لكنه يعود ويجبر الكسور تاني ايه الحل اريدهم ان يكونو مثل بعض

لا استطيع دمجهم لان جدول الرواتب به اساس الرواتب لكل موظف مع البدلات وهذه بيانات لا اريد تكرارها لكن جدول الاضافى هتكون به بيانات تكرر كثيرا لان بعدها اريد عمل الرواتب الشهريه واربطها بيه اذا كان له اضافى هذه المشكله وشكرا جزيلا