عمر ضاحى قام بنشر يوليو 16, 2021 مشاركة قام بنشر يوليو 16, 2021 (معدل) السلام عليكم بعد اذن حضراتكم محتاج مساعدة انا معايا استعلام (ضامم جدول رواتب وجدول معلومات الموظف وجدول الوقت الاضافى ) وعندي فورم رابطه بالاستعلام للحصول على المعلومات منه المطلوب :- 1- ان اجعل حقل قيمة الساعه به عمليه حسابيه (اخذ القيمه من جدول الرواتب وتقسيمها على 30 ثم تقسيم 8 ثم ضرب فى 1.5) ووضعها ك قيمه محسوبه 2-اان اجعل حقل الاجمالى محسوب من حقل عدد الساعات مضروب فى حقل قيمة الساعه كيف افعل هذا فى الاستعلام Project2.accdb تم تعديل يوليو 16, 2021 بواسطه عمر ضاحى اضافة مرفق + اصلاح مشكلة فى المرفق رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 تم اعادة رفع ملف المرفق بسبب مشكلة فى الاستعلام وتم بناء الاستعلام من اول وجديد رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 16, 2021 مشاركة قام بنشر يوليو 16, 2021 تفضل استاذ عمر ...انا مشيت على المرفق الاول Project2.accdb 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 9 دقائق مضت, Eng.Qassim said: تفضل استاذ عمر ...انا مشيت على المرفق الاول Project2.accdb 576 kB · 1 download اولا لا اعرف كيف اشكر حضرتك غير ان يجعلها الله فى ميزان حساناتك ويحفظك الله المشكله تحديدا التى اوجهاها انى اريد ان احول هذه القيم فى اماكنها فى الفورم بحيث لما اختار الموظف واكتب عدد الساعات يظهر لى النتيجه ولما اضغط حفظ يرسل البيانات الى الجداول طبعا الفوم مش شغال فى المرفق الاول بسبب مشكله ما كانت فى الاستعلام وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 فكرت ان اجعل النتائج التى ستظهر فى الاستعلام فى حقل فى الفورم واجعله غير مرئى واضع كود VBA بحيث اقول له عند تغير اى بيانات قم بنسخ القيم من A1 الى B1 حيث ان A1 هو الحقل التى ستظهر فى النتيجه من الاستعلام اما حقل B1 هو الحقل الذى سوف يخزن فيه البيانات التى سوف تخزن فى الجداول لكن عند التنفيذ كتبت فى ال VBA ان Me.b1 = Me.a1 Me.b2 = Me.a2 لكنها مش عارف ليه بتشتغل اول ما افتح الفورم لكن لو جربت اغير اسم الموظف لا تعمل تاني رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 16, 2021 مشاركة قام بنشر يوليو 16, 2021 32 minutes ago, عمر ضاحى said: اولا لا اعرف كيف اشكر حضرتك غير ان يجعلها الله فى ميزان حساناتك ويحفظك الله المشكله تحديدا التى اوجهاها انى اريد ان احول هذه القيم فى اماكنها فى الفورم بحيث لما اختار الموظف واكتب عدد الساعات يظهر لى النتيجه ولما اضغط حفظ يرسل البيانات الى الجداول طبعا الفوم مش شغال فى المرفق الاول بسبب مشكله ما كانت فى الاستعلام وشكرا جزيلا عزيزي عمر... الاستعلام يستخدم للاستعلام عن شيء ما في السجلات ولانستخدمه في فورم ادخال المعلومات للموظف او العامل .. سيبنا من الاستعلام دلوقتي .. اقترح عليك ان تجعل جدول الرواتب مع جدول الساعات الاضافية ثم تضيف حقلين محسوبين لاستخراج قيمة الساعة والحقل الثاني بضربها بعدد الساعات .. ولاتنسى العلاقة بين جدول الموظفين وجدول الرواتب ..وبهذا يمكنك ان تعمل نموذج من هذين الجدولين لادخال المعلومات .. انا استطيع ان اعملها لكن اريدك ان تتعلم 16 minutes ago, عمر ضاحى said: فكرت ان اجعل النتائج التى ستظهر فى الاستعلام فى حقل فى الفورم واجعله غير مرئى واضع كود VBA بحيث اقول له عند تغير اى بيانات قم بنسخ القيم من A1 الى B1 حيث ان A1 هو الحقل التى ستظهر فى النتيجه من الاستعلام اما حقل B1 هو الحقل الذى سوف يخزن فيه البيانات التى سوف تخزن فى الجداول لكن عند التنفيذ كتبت فى ال VBA ان Me.b1 = Me.a1 Me.b2 = Me.a2 لكنها مش عارف ليه بتشتغل اول ما افتح الفورم لكن لو جربت اغير اسم الموظف لا تعمل تاني هذه العملية لاتستطيع معها اضافة سجل جديد لان الاستعلام (قافل عليها) 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 3 دقائق مضت, Eng.Qassim said: عزيزي عمر... الاستعلام يستخدم للاستعلام عن شيء ما في السجلات ولانستخدمه في فورم ادخال المعلومات للموظف او العامل .. سيبنا من الاستعلام دلوقتي .. اقترح عليك ان تجعل جدول الرواتب مع جدول الساعات الاضافية ثم تضيف حقلين محسوبين لاستخراج قيمة الساعة والحقل الثاني بضربها بعدد الساعات .. ولاتنسى العلاقة بين جدول الموظفين وجدول الرواتب ..وبهذا يمكنك ان تعمل نموذج من هذين الجدولين لادخال المعلومات .. انا استطيع ان اعملها لكن اريدك ان تتعلم لا استطيع دمجهم لان جدول الرواتب به اساس الرواتب لكل موظف مع البدلات وهذه بيانات لا اريد تكرارها لكن جدول الاضافى هتكون به بيانات تكرر كثيرا لان بعدها اريد عمل الرواتب الشهريه واربطها بيه اذا كان له اضافى هذه المشكله وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يوليو 16, 2021 مشاركة قام بنشر يوليو 16, 2021 3 minutes ago, عمر ضاحى said: لا استطيع دمجهم لان جدول الرواتب به اساس الرواتب لكل موظف مع البدلات وهذه بيانات لا اريد تكرارها لكن جدول الاضافى هتكون به بيانات تكرر كثيرا لان بعدها اريد عمل الرواتب الشهريه واربطها بيه اذا كان له اضافى هذه المشكله وشكرا جزيلا اوكي مافي مشكلة .. انسى الحقول المحسوبة وانسى الاستعلام ولاتضيف اي حقل محسوب ..اعمل جدول لادخال المعلومات من الجداول الثلاثة ..بس انتبه عندك العلاقة بين جدول الموظفين والساعات الاضافية غير صجيحة ...اعمل حقل لكود الموظفين في جدول الساعات واربطه بالمفتاح الرئيسي لجدول الموظفين رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 (معدل) 36 دقائق مضت, Eng.Qassim said: اوكي مافي مشكلة .. انسى الحقول المحسوبة وانسى الاستعلام ولاتضيف اي حقل محسوب ..اعمل جدول لادخال المعلومات من الجداول الثلاثة ..بس انتبه عندك العلاقة بين جدول الموظفين والساعات الاضافية غير صجيحة ...اعمل حقل لكود الموظفين في جدول الساعات واربطه بالمفتاح الرئيسي لجدول الموظفين انا بالفعل عامل فى العلاقه ربط رأس باطراف وعامل فى جدول ساعات الاضافى حقل EmpCode ورابطه بالموظفين تم عمليت الربط فى بعد التحديث لحقل عدد الساعات اضفت VBA Me.b1 = Me.a1 Me.b2 = Me.a2 Me.Refresh واشتغل كويس بس دلوقتى الحقول انا ظابط انه فيها كسور (علامات عشريه) وعملت ده فى الجدول ايضا لكنه يعود ويجبر الكسور تاني ايه الحل اريدهم ان يكونو مثل بعض تم تعديل يوليو 16, 2021 بواسطه عمر ضاحى رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 16, 2021 الكاتب مشاركة قام بنشر يوليو 16, 2021 ايضا بعد اذن حضراتكم المفترض ان الكود الذى بالأسفل خاص بجزئية اقساط السلف 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) هل يمكن حل هذا ! رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 17, 2021 الكاتب مشاركة قام بنشر يوليو 17, 2021 (معدل) up انا محتاج اما ان اصلح الكود او لو هناك طريقه اخرى انا عندي جدولين واحد به كود الموظف مرتبط ببيانات الموظف وبه معلومات اجماليه للسلفه وواحد به اقساط السلفه المفترض انى لما ادخل قيمة القسط وعدد الاقساط فى الفورم يقوم الكود بعمل عمليه حسابيه وهى تقسيم السلفه حسب العدد ومن ثم ارسالها الى جدول الاقساط لكن ده مش بيحصل ده ممكن يسجل سطر قيد واحد فقط تم تعديل يوليو 17, 2021 بواسطه عمر ضاحى رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يوليو 17, 2021 الكاتب مشاركة قام بنشر يوليو 17, 2021 تم حل المشكله الكود سليم الخطأ من الجداول عندي حقل المفترض انه نص كان رقم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.