عمر ضاحى

السلام عليكم عيد مبارك عليكم عارف انه النهرده عيد ^_^ كل سنه وانتم طيبين لكن انا الكود ده شاغل دماغي عاوز اعرف فين مشكلته 😅 فى الكودين بالاسفل يفترض انهم يعطونى عدد ايام الجمعه بين تاريخين وايضا السبت لكن بيعطينى صفر 'حساب عدد ايام الجمعة ضمن الاجازة الرسمية بين التاريخين 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 واشتغل كويس بس دلوقتى الحقول انا ظابط انه فيها كسور (علامات عشريه) وعملت ده فى الجدول ايضا لكنه يعود ويجبر الكسور تاني ايه الحل اريدهم ان يكونو مثل بعض

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

فكرت ان اجعل النتائج التى ستظهر فى الاستعلام فى حقل فى الفورم واجعله غير مرئى واضع كود VBA بحيث اقول له عند تغير اى بيانات قم بنسخ القيم من A1 الى B1 حيث ان A1 هو الحقل التى ستظهر فى النتيجه من الاستعلام اما حقل B1 هو الحقل الذى سوف يخزن فيه البيانات التى سوف تخزن فى الجداول لكن عند التنفيذ كتبت فى ال VBA ان Me.b1 = Me.a1 Me.b2 = Me.a2 لكنها مش عارف ليه بتشتغل اول ما افتح الفورم لكن لو جربت اغير اسم الموظف لا تعمل تاني

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

تم اعادة رفع ملف المرفق بسبب مشكلة فى الاستعلام وتم بناء الاستعلام من اول وجديد

السلام عليكم بعد اذن حضراتكم محتاج مساعدة انا معايا استعلام (ضامم جدول رواتب وجدول معلومات الموظف وجدول الوقت الاضافى ) وعندي فورم رابطه بالاستعلام للحصول على المعلومات منه المطلوب :- 1- ان اجعل حقل قيمة الساعه به عمليه حسابيه (اخذ القيمه من جدول الرواتب وتقسيمها على 30 ثم تقسيم 8 ثم ضرب فى 1.5) ووضعها ك قيمه محسوبه 2-اان اجعل حقل الاجمالى محسوب من حقل عدد الساعات مضروب فى حقل قيمة الساعه كيف افعل هذا فى الاستعلام Project2.accdb

بسم الله ما شاء الله اولا بحب اشكر حضرتك على الشرح تسلم ايدك ويحفظك الله فى مشكله معي حاليا فى حال ان البيانات موجوده فى اكثر من جدول كيف اضيف الجداول فى الاستهلام الالحاقى (كما فى الحال معي حاليا) لان البيانات متقسمه على جداول كثيره

اولا احب ارحب بمداخلتك لحل المشكله والان اتعلمت كود جديد [txtArName] = DLookup("[ArName]", "GetInfo", "EmpID =[T2]") لكن انا ملاحظ ان هذا الكود فقط يقوم باستدعاء البيانات لكن اذا احببت ان اضيف او اعدل او احذف كيف بافعلها

هو مفيش شرح لهذا الموضوع هنا ؟

فى حد معين حضرتك ممكن ترشحه لى

لان الغرض من الموضوع ان اتعلم كل شئ بس بالتدريج انا حاليا خلاص عرفت اعمل الفورم كامل مع نظام ان يكون الفورم منضم لكن وجدة ان عندما اقوم بتسجيل موظف وثم اتراجع عن التسجيل لغرض ما او لخطأ او لاي سبب قد يحدث اجد ان رقم الموظف يعطينى رقم جديد قد اصل لرقم 30 وكل ال معايا هما مثلا 10 موظفين وده مش عاوزه (ممكن تتحل تلقائيا لما اعمل اعادة ضغط واصلاح لقاعدة البيانات ) لكن هذا حل غير مجدي وليس عملي والغرض كله ليس برنامج موظفين او غيره(طبعا هحتاجه فى شغلى ان شاء الله مستقبلا لو انتهيت منه ولكن الغرض منه هو التعليم بحث انا من زمان ونفسي اتعلمه لكن لم يسعفنى الوقت بسبب الشغل لكن حاليا انا فى فترة اجازه واريد ان استغل الفتره دي فى التعلم قدر المستطاع (الواحد بقي بيصحى ويحلم بالمشاكل ويصحى على حلها 😅 ان شاء الله لو كانت المشكله بسيطه ) لهذا اريد ان اتعلم الموضوع ده

هل يوجد شرح حتى اعمل مثله