عفرنس

احسن الله اليك .. ساجرب واوافيك بالنتايج

المرفق صحيح فيه طالب واحد .. ورايح يكون فيه أكثر من 200 طالب .. أنا عندي ثلاثة ملفات اكسل .. أول ثانوي ثاني ثانوي ثالث ثانوي ==== يتم استيراد جدول أول ثانوي = ثم جدول ثاني ثانوي = ثم جدول ثالث ثانوي .. اذا تريد ارفق الملف كاملا أرفقته ** بالنسبة لجدول student لك الحرية تعديل الحقول بحسب ما تراه مناسبا .. ربما لم أوفق في وضع الحقول المناسبة .. تراني على قد حالي يا @د.كاف يار

نصيحة مقبولة ..

السلام عليكم إخواني الفضلاء .. @jjafferr @د.كاف يار @kanory @محمد أبوعبدالله@Barna كيف لي باستيراد ملف جدول الطلاب ؟؟ إليكم المرفق .. ولكم الحرية في التعديل ما ترونه مناسبا في جدول student مجلد جديد (2).rar

ان كان الملف بصيغة MDE فلن يتم فتح وضع التصميم ..

يا ليت لو اخترت افضل اجابة حتى يعلم المتابع انه تم الاجابة على السؤال

شكر الله لك يا صاحبي ...

كيف الطريقة ؟؟

@kanory @محمد أبوعبدالله

أريد فتح مجلد محدد من خلال زر في نموذج .. بحثت عن الكود لم أصل إلى النتيجة . إليكم المرفق .. برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد.mdb

جزاك الله خيرا ..

لا أريد أن يفتح اكسل بعد عملية تصدير البيانات .. ما الذي يجب تعديله ؟ __برنامج تصدير الطلاب للسجل الالكتروني - نسخة.mdb

Public Function barnaExcelFile(sXlsFile As String) Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrname = [text3] fldrpath = CurrentProject.Path & "\السجل الالكتروني\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If Dim LExcelOriginal As String Dim LExcelCopyOf As String LExcelOriginal = sXlsFile LExcelCopyOf = CurrentProject.Path & "\السجل الالكتروني\" & [text3] & "\" & [Forms]![FORM2]![text2] & "_..xlsm" FileCopy LExcelOriginal, LExcelCopyOf Dim db1 As DAO.Database Dim Rst1 As DAO.Recordset Set db1 = CurrentDb Dim objExcel As Object Dim objWorkbook As Object Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(LExcelCopyOf) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![text1] & ")" & " -- " & "(" & [Forms]![FORM2]![text2] & ")" & " المادة " & "(" & [Forms]![FORM2]![text3] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("b5").Select End If End With objExcel.DisplayAlerts = True objWorkbook.Close SaveChanges:=True Set objWorkbook = Nothing objExcel.Quit Set objExcel = Nothing Set Rst1 = Nothing Set db1 = Nothing VBA.Shell "Explorer.exe " & Chr(34) & LExcelCopyOf & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" End Function @د.كاف يار هل هذا صحيح ؟؟

أين يتم وضع الكود ؟؟

جزاك الله خيرا ياليت لو تعينني على التعديل في المرفق ...

أخي @محمد أبوعبدالله @Barna لي طلب وهو : أنني بعد تصدير البيانات الى اكسل يتم فتح ملف الاكسل مباشرة . وأنا لا أريد ذلك ما الذي يمكن تغييره ؟ حتى لا يتم فتح الملف

لدي مجلد باسم ( السجل الالكتروني ) . هذا المجلد يحتوي على ( عدة مجلدات ) كل مجلد باسم المادة أريد بعد تصدير ملف الاكسل لمادة الرياضيات مثلا يحفظ في المجلد الخاص بمادة الرياضيات الموجود في مجلد ( السجل الإلكتروني ) أرجو أن يكون مطلوبي واضحا ولكم جزيل الشكر .. برنامج تصدير الطلاب للسجل الالكتروني حسب المادة معتمد.mdb

غفر الله ولك .. وجزاك خيرا ..

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

السلام عليكم ورحمة الله وبركاته عندي هذا البرنامج المرفق أرغب في ما يلي : عند اختيار الصف الثالث الثانوي كمثال الشعبة 5 يظهر لي المواد الخاصة بهذه الشعبة فقط وليس جميع المواد . هل هذا ممكن ؟؟ ‏‏برنامج تصدير الطلاب للسجل الالكتروني - نسخة.mdb

تقبل الله منا ومنكم صالح الاعمال وكل عام وانتم بخير

جزاك الله خيرا هل استغنيت عن النموذج ؟

جزاك الله خيرا اخي @kha9009lid

تفضل أخي الكريم @angelloay أرجو أن يكون طلبك .. >>> انظر النموذجين واختر أيهما شئت .. Database2.accdb

جزاك الله خيرا .. وكل سنة وأنت طيب .. عيدكم مبارك .