عفرنس

هذا صحيح .. كل معلم له ملف مستقل ..

أخي @ابو البشر البرنامج يتم استيراد البيانات اليه من خلال جدول الطلاب . البيانات تشمل ( المستوى -الشعبة - والمادة - واسم الطالب ) وكل هذه مجتمعة في الجدول .. أما أسماء المعلمين فهي مستقلة ولذلك تلاحظ انها في جدول مستقل .. فمن الصعب اضافة كل معلم في الجدول

أخي @أبو إبراهيم الغامدي الأخ @أبو عبدالله الحلوانى استطاع ايجاد الحل للشعب من 1الى 4 بقي شعبة 5 الى 8 كنت أريدها بنفس الطريقة ..

أخي @أبو عبدالله الحلوانى حتى تتضح الصورة : الان كل قالب اكسل يحوي 8 شيتات .. وعندي كمثال مادة الرياضيات يدرسها معلمان . المعلم الاول يدرس من شعبة 1 الى 4 المعلم الثاني يدرس من شعبة 5-8 كل معلم سأعطيه طلابه في ملف اكسل فالمعلم الاول سيكون طلاب شعبة 1 في شيت رقم 2 وطلاب الشعبة 2 في شيت رقم 4 وهكذا شعبة3 في شيت 6 وطلاب شعبة 4 في شيت 8 _______ المعلم الثاني / اريد يكون طلاب شعبة 5 في شيت 2 وطلاب الشعبة 6 في شيت رقم 4 وهكذا شعبة 7 في شيت 6 وطلاب شعبة 8 في شيت 8 ان شاء الله اكون وضحت مرادي

جزاك الله خيرا أخي الفاضل @أبو إبراهيم الغامدي على مرورك .. هذا هو البرنامج وقوالب اكسل .. ** ملحوظة : كنت أضفت ماهو في المستطيل الأحمر المرفق في الصورة .. فأحيانا تنجح الطريقة وأحيانا أخرى لا تنجح .. إليكم القوالب مرفقة .. @Shivan Rekany تجربة.rar البرنامج.rar

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

@أبو عبدالله الحلوانى

صحيح .. بمعنى ان بيانات شعبة 1و 5 ستكون في شيت 2 وبيانات شعبة 2و 6 ستكون في شيت 4 وبيانات شعبة 3و 7 ستكون في شيت 6 وبيانات شعبة 4و 8 ستكون في شيت 8 ----------- طبعا شعبة 1 2 3 4 ستكون في ملف اكسل مستقل وشعبة 5 6 7 8 ستكون في ملف اكسل آخر لان الملف الأصلي لا يحتوي الا على 8 شيتات فقط

@Barna

تم التوصل إلى الحل ..

السلام عليكم حاولت أعدل في جملة INSERT لاستيراد البيانات من ملف اكسل المرفق لكن لم أصل إلى نتيجة .. لعلكم تجدون لي الحل .. بوركت جهودكم تجربة.rar

@ابوخليل لعلك تسعفنا في هذا أخي الكريم

@أبو عبدالله الحلوانى

جزاك الله كل خير أخي @أبو عبدالله الحلوانى هذا هو المطلوب .. بقي نقطة أتمنى تكون بسيطة وهي :: مادة الرياضيات كمثال لها 8 شعب يدرسها معلمان .. كل واحد منهما يدرس 4 شعب .. ( أحمد يدرس شعبة 1-2-3-4 ) هنا تم اضافة البيانات كما هو مطلوب وبنجاح .. و ابراهيم يدرس الأربع الأخرى . السؤال / كيف نستطيع عندما نحدد الشعب الخاصة بإبراهيم يضيف شعبة 5 في شيت 2 ، وشعبة 6 في شيت 4 وشعبة 7 في شيت 6 وشعبة 8 في شيت 8 ** بمعنى شعبة 1 و شعبة 5 عندما يتم اختيارهم تكون بياناتهم في شيت رقم 2 .. وشعبة 2 و شعبة 6 عندما يتم اختيارهم تكون بياناتهم في شيت رقم 4 .. شعبة 3و شعبة 7 عندما يتم اختيارهم تكون بياناتهم في شيت رقم 6 .. شعبة 4و شعبة 8 عندما يتم اختيارهم تكون بياناتهم في شيت رقم 8 .. أتمنى أكون وصلت ما أقصد . شاكر لك مرة أخرى

أخي @أبو عبدالله الحلوانى هناك ملحوظتان .. هما : ** لم يعد يظهر رقم الشعبة في البرنامج كما في الصورة المرفقة ** لم يتم اضافة أسماء الطلاب والرقم الأكاديمي في الشيت رقم 4 . إنما تم اضافتهم في ملف جديد في شيت رقم 4 وهذا غير المطلوب . المطلوب ( جميع الشيتات حتكون في صفحة واحدة، بحيث الشعبة 1 في الشيت رقم 2 والشعبة 2 في شيت رقم 4 والشعبة 3 في الشي رقم 6 .. )

تفضل المرفق .. وفقك الله .. ملحوظة / يجب ان يكون البرنامج ومجلد السجل الالكتروني معا في مجلد واحد . تجربة.rar

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

سأقوم أنا بتصدير البيانات بعد تحديد الشعبة أولا .

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

حياك الله أخي @أبو إبراهيم الغامدي لعل الصور المرفقة توضح المطلوب .. 1- في الرنامج يتم اختيار الصف والشعبة والمادة واسم المعلم . 2- يتم اختيارملف كسل المرفق 3- تصدير أو ترحيل رقم الطالب الأكاديمي إلى ملف اكسل ويكون في العمود D و كذلك اسم الطالب ليكون في عمود C في شيت رقم 2 . هذا كله من خلال البرنامج المرفق من النموذج المسمى Form2 . طلبي هو ( أريد ترحيل أسماء الطلاب وأرقامهم الأكاديمية للشعبة 2 لتكون في شيت رقم 4 ، والشعبة 3 لتكون في شيت 6 وهكذا .. ) أرجو أن أكود أوصلت مأريد بشكل أفضل .

https://www.officena.net/ib/topic/59268-مسح-المستندات-بالاسكنر-بصيغة-pdf-بواسطة-الأكسس/ ربما تجد ضالتك في هذه المشاركة

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("Select * FROM temp ORDER BY stuname", dbOpenSnapshot) objWorkbook.Sheets(2).range("B1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![text1] & ")" & " -- " & "(" & [Forms]![FORM2]![text2] & ")" & " المادة " & "(" & [Forms]![FORM2]![text3] & ")" & " معلم المادة / " & "(" & [Forms]![FORM2]![text4] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("C5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("C5").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" MsgBox "تم تصديرالبيانات بنجاح" End Function هذا الكود يتم ترحيل البيانات من خلاله إلى شيت رقم 2 فقط في ملف اكسل المرفق في أول الموضوع . ( ما الذي يجب تعديله في الكود حتى أستطيع أرحل البيانات إلى أكثر من شيت ، بحيث يتم تحديد الشيت المراد ترحيل البيانات إليه ؟ ) @jjafferr @صالح حمادي @أبو عبدالله الحلوانى

يارب تيسر لي من يعينني على طلبي هذا .. 🤲🤲

@jjafferr @محمد أبوعبدالله @Barna @Shivan Rekany

النموذج الذي يتم منه تصدير الأسماء إلى ملف اكسل المرفق هو Form2