عمر ضاحى

انت عندك حاجتين اما خانة اختيار او مجموعة اختيارات

1.rar اتفضل هل هذا ما تريد ؟

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

جرب الملف ال رفعته لك

ارفع ملف اتفضل هذا ملف من عندي عملته لك على السريع Test.rar

😅 هيكون راح فين بس ارفع ملف طيب اعمله لك ابحث عن ملف اسمه MSO.dll هتلايه فى مجلد الاوفيس

@سامر محمود

ده بسبب ان هناك مكتبه مفقود Microsoft Office x.x Object Library طبعا x.x ترمز لرقم الاصدار الافيس ال عندك ومش هتفرق الرقم المهم تاكد من وجودها

ما الخطأ الذى ظهر لك فى الكود الخاص بى ؟ ايضا ارفق ملف

جرب الكود ده Dim db As DAO.Database Dim rs As DAO.Recordset Dim recordCount As Integer Dim updateCount As Integer Dim xNUMBER As Double Set db = CurrentDb Set rs = db.OpenRecordset("t1", dbOpenDynaset) xNUMBER = mh1.Value Do While Not rs.EOF If rs!daraja > 0 Then If updateCount < 12 Then rs.Edit rs!CurrFasl = "F" rs.Update updateCount = updateCount + 1 Else Exit Do End If End If rs.MoveNext Loop rs.Close Set rs = Nothing db.Close Set db = Nothing

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

جرب الكود هذا Dim db As DAO.Database Dim rs As DAO.Recordset Dim xNUMBER As Double Set db = CurrentDb Set rs = db.OpenRecordset("T1", dbOpenDynaset) xNUMBER = mh1.Value Do While Not rs.EOF If rs!daraja >= xNUMBER Then rs.Edit rs!CurrFasl = "F" rs.Update Else rs.Edit rs!CurrFasl = "" rs.Update End If rs.MoveNext Loop rs.Close Set rs = Nothing db.Close Set db = Nothing MsgBox "DONE" Me.Form.Requery

يعنى انت عاوز تقول لو الدرجة اعلى من 16 يكتب F ؟ طيب لو اقل من 16 يعمل ايه ؟

جرب هذا الكود فى كل مره هيسألك اين تريد حفظ التقرير وقابل للتطوير Dim reportName, FileNameIs As String Dim fd As fileDialog Dim strFolderPath As String reportName = "RepPrintTallyPO" FileNameIs = "POs Report" Set fd = Application.fileDialog(msoFileDialogFolderPicker) If fd.Show = -1 Then strFolderPath = fd.SelectedItems(1) strFolderPath = strFolderPath & "\" & FileNameIs & ".xls" DoCmd.OutputTo acOutputReport, reportName, acFormatXLS, strFolderPath, False MsgBox "The File Saved On ( " & strFolderPath & " ) Successfully" Else MsgBox " The file has been cancelled ", vbCritical End If Set fd = Nothing

فى اعدادات النظام تحقق من التلى لك تحتار عربي مصر او السعودية زي ما تحب

بعد اذن استاذى الجليل / @ابوخليل هل جربت هذا الموضوع ممكن تلاقى ما تريد فى نظام الحضور والانصراف للموظفين هنا انا كنت عامل حاجه زي كده زمان جرب وان شاء الله هتلاقى ما تريد

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

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

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

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

استاذه / صفي طلبك فى حد ذاته فيه تعارض لا يجوز ان تطلبي تقريب وتحديد تاريح ميلاد لان الاثنين معا لن يكون فيها دقه اذا اردتي تحويل تاريخ الميلاد الى عمر او تحويل العمر الى تاريخ ميلاد طلبك هنا هيكون مظبوط لكن ان تطلبي تحديد تاريخ الميلاد وتقريب العمر هنا هتظهر نتائج خطأ لاحظي الصوره التاليه فى اخر مشهد بعد ما جاب تاريخ الميلاد وقربت غير الدينا ولتحويل العمر الى تاريخ ميلاد هتحتاجي الدالة هذه Function CalcBdate(years As Integer, months As Integer, days As Integer) As Date CalcBdate = DateAdd("yyyy", -years, Date) CalcBdate = DateAdd("m", -months, CalcBdate) CalcBdate = DateAdd("d", -days, CalcBdate) End Function وايضا الصب هذا Sub TestCalcBirthdate() Dim years As Integer Dim months As Integer Dim days As Integer years = Me.Y.Value months = Me.M.Value days = Me.D.Value bdate = CalcBdate(years, months, days) End Sub age collect.rar.

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

بص علاج موضوعك هنا من الاخر

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

بعتذر عن التأخير اتفضلى الكود حسب طلبك (بعد اصلاح خطأ سابق) Sub xCalcAge() Dim years As Integer Dim months As Integer Dim days As Integer Dim xD, xM, xY As Integer Dim xAge As Double years = Nz(Y, 0) months = Nz(M, 0) days = Nz(D, 0) '---------------------------------------------------------- If days >= 20 Then xM = months + 1 xD = 0 Else xD = days End If '---------------------------------------------------------- If xM >= 10 Then xY = years + 1 xM = 0 Else xY = years xM = months End If '---------------------------------------------------------- If xY = 0 And xM = 0 And xD <> 0 Then xAge = xD ageunit = "Days" ElseIf xY = 0 And xM <> 0 And xD <> 0 Then xAge = xM ageunit = "Months" ElseIf xY = 0 And xM <> 0 And xD = 0 Then xAge = xM ageunit = "Months" ElseIf xY <> 0 And xM = 0 And xD <> 0 Then xAge = xY ageunit = "Years" ElseIf xY <> 0 And xM <> 0 And xD = 0 Then xAge = xY & "." & xM ageunit = "Years" Else xAge = xY & "." & xM ageunit = "Years" End If age = xAge End Sub مرفق الملف age collect.rar . جربي واذا تم حل المشكلة اختاري افضل اجابة