عمر ضاحى

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

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

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

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

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

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

اعتقد ان هذا ما حدث علشان كده قررت اسيب موضوع الحقول الغير منضمه لانها اصعب بكثير عليا من الحقول المنضمه وعليه اعدت بناء النموذج كله من اول وجديد واضفت باقى الجداول واثناء العمل على ملئ البيانات ظهرت لى مشكله اخرى الا وهي الاستعلام نفسه لما باضيف جدول الرواتب فى الاستعلام مش بيشتغل ومش بيجبلى اى قيم وانا مش ضايف اى معايير علشان يجلبلى جميع البيانات ف اريد ان اعرف هل للاستعلامات حدود من البيانات التى يقوم بجمعها ؟ مرفق المشروع للمعرفة السبب Project.rar