عفرنس

أخي الفاضل @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

السلام عليكم لدي هذا البرنامج أعمل عليه في اضافة أسماء وأرقام الطلاب للشعبة رقم 1 في عمود C و عمود D في شيت رقم 2 في ملف اكسل المرفق . ** الان أريد اضافة بيانات الشعبة رقم 2 في شيت رقم 4 وبيانات أيضا الشعبة رقم 3 في شيت رقم 6 .. وهكذا بقية الشعب . بنفس الطريقة . تجربة.rar

جزاك الله خيرا .. هذا هو المطلوب ياصاحبي ..

ههههه زر تصدير أسماء الطلاب يا شيخنا في نفس النموذج هذه الصورة مرفقة

Form2

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