عفرنس

إخواني الفضلاء .. كنت قد صممت البرنامج المرفق لنقل الأسماء والرقم الأكاديمي إلى ملف الإكسل من نوع xslm . وكان الأخ محمد @Barna قد عمل مشكورا واجتهد معي في وضع الكود الذي ينفذ ذلك .. لكني قمت بإضافة ( المادة ) في جدول جديد . وأضفتها أيضا في حقل في جدول student . ومن ثم طبقت الكود الذي عمله الأستاذ محمد @Barna . لكنه وللأسف لم ينقل الرقم الأكاديمي ( stuacdid ) إلى عمود ( B ) في ملف اكسل ولا الأسماء ( stuname ) في عمود ( C ) . ** هذا هو الكود الذي عمله الأخ @Barna في المشاركة : تصدير الى ملف اكسل من نوع xlsm 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(sXlsFile) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")" 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) & sXlsFile & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" إليكم المرفق .. يارب تزين الأمور . FF.rar

إليك المرفق .. لا أدري إن كان ما تريد متابعة الشيكات v391.rar

أخواني @Barna @kanory @jjafferrتحية طيبة لك .. في البرنامج أضفت جدول خاص بالمادة وأريد أن يتم تصفية الطلاب حسب المادة والشعبة ومن ثم يتم التصدير .. ( لأنه كما تعلم صف أول ثانوي الشعبة رقم 2 كمثال ليس كلهم يدرسون مادة اجتماعيات ) طبعا الأمور تمام لكن المشكلة التي واجهتني هي بعد ما أضغط زر التصدير لا أجد الرقم الأكاديمي ولا اسماء الطلاب في ملف الاكسل .. بصراحة خشمي صدع .. فريت الكود فر .. ولا طلعت بنتيجة . وهذا المرفق برنامج تصدير الطلاب الى السجل الإلكتروني33.rar

شكر الله لك أخي محمد @Barna شي جميل وعمل رائع .. كفيت ووفيت .. ألف ألف شكر .. وفقك الله ويسر أمرك ..

فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو .. @@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها ..

جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. لكن عندي بعض الملحوظات وهي : اذا عندي مادة اجتماعيات كمثال : للصف الأول الثانوي والصف يتكون من 5 شعب . وصدرت بيانات الشعبة رقم ( 1 ) في الملف يتم تصديرها تمام . ثم اذا أردت تصدير شعبة رقم ( 2 ) واخترت ملف الاكسل في المجلد لنفس المادة يحذف بيانات الشعبة رقم ( 1) ويضع هذه مكانها . كيف نحل المشكلة ذي ؟؟

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

لأسف أخي @محمد أبوعبدالله ليس هذا المراد .

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

سأجرب ومن ثم اوافيكم بالنتيجة ..

هذا المرفق . وأظن نسيت ارفاقه في المشاركة السابقة .. المطلوب نقل البيانات من عمود t1 إلى عمود B في ملف اكسل المرفق وعمود F16 في عمود C في الملف المرفق . نقل البيانات .rar

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

اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B في ملف اكسل وعمود F16 في عمود C في ملف اكسل . والتصدير يكون في ورقة ( متابعة الدرجات ) .. لكم الود والتقدير ..

احسن الله اليك .. ❤❤

أريد طريقة نص التلميح داخل عنصر غير منظم ..

تفضل هذا الرابط حيفيدك https://infotechaccountants.com/topic/444-كود-تحويل-الأرقام-إلى-حروف-في-الأكسس/?do=findComment&comment=712

@jjafferr 🌹🌹🌹

هذا قدرت عليه .. الاستعلامات هي اللي صدع براسي

أستاذ @jjafferr الجدول الذي في الاستعلامات هو tbl1 وليس شيئا من الجداول التي تحوي البيانات ..

0725= الأول المتوسط 0825 = الثاني المتوسط 0925 = الثالث المتوسط 0125 = الأول الإبتدائي 0225 = الثاني الإبتدائي 0325 = الثالث الابتدائي 0449 = الرابع الابتدائي 0549 = الخامس الابتدائي 0649 = السادس الابتدائي بحيث يتم التعديل في جميع الجداول التي يرد الرقم فيها ..

أخي @jjafferr في جدول sheet2 كمثال عمود f3 رمز الصف الدراسي وهو عبارة عن الرقم 0725 .. فإذا عملت تقرير سيظهر الرقم الذي هو رمز للصف الاول مثلا .. فالذي اريد هو عمل تعديل لهذا الرقم وبقية ارقام الصفوف الدراسية في الجداول من خلال النموذج وعبر الكود .. ارجو ان يكون وضح قصدي

نفس المشكله خذ الملف مرفقا واصنع فيه ما شئت برنامج استيراد بيانات اكثر من شيت.rar

الخطأ في هذا السطر CurrentDb.Execute ("Delete * From " & "qry_" & lngCount)

ما فهمت عليك .. تم اضافة السطر الثاني فظهرت الرسالة

العفو بالتوفيق