عمر ضاحى

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

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

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

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

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

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.