عفرنس

إخوتي الفضلاء : اريد البحث في مربع تحرير وسرد بحيث يظهر لي ما أريد البحث عنه فقط لأن القائمة عندي طويلة . طبعا هو عند باسم المادة ( TEXT3 ) برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

أخي @Barna أريد إضافة ربط الصف مع المادة والشعبة في الكود . ومن ثم يعطيني رسالة ( لا يوجد طلاب للشعبة في هذه المادة ) في حال لم يكن للصف الذي اخترته والمادة طلاب يمكن تصديرهم .. هذا الكود .. DoCmd.SetWarnings False DoCmd.RunSQL " SELECT Student.stuacdid, Student.stuname INTO temp FROM Student WHERE (((Student.ÇáÔÚÈÉ)=[Forms]![FORM2]![text2]) AND ((Student.ÇáãÇÏÉ)=[Forms]![FORM2]![text3]));" DoCmd.SetWarnings True

شكر الله لك .. أخي @محمد أبوعبدالله تم المطلوب بنجاح

أريد كود استيراد البيانات الى الجدول مع حذف البيانات الموجودة في الجدول أثناء الاستيراد . والشكر موصولا إليكم .

جزاكما الله خيرا @ابوخليل @jjafferr والحمد لله تم المطلوب بنجاح ..

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

أما هذه فصحيح . زدنا يا مولانا .

@jjafferr وعليكم السلام وما هي هذه المشاكل ؟؟

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

ما هو كود نقل البيانات من استعلام إلى جدول ؟ حيث جربت هذا الكود ولم ينفعني DoCmd.RunSQL "INSERT INTO StuSce2 ( A1, A2, A3, A4, A5, A6 ) " & _ " SELECT StuSce.A1, StuSce.A2, StuSce.A3, StuSce.A4, StuSce.A5, StuSce.A6 " & _ " FROM q_StuSce RIGHT JOIN StuSce ON q_StuSce.A1 = StuSce.A1 " & _ " WHERE (((q_StuSce.A1) Is Not Null));"

أريد تحديد المجلد اللي يحفظ فيه الملف بعد التصدير @ابوخليل لأنه يحفظ لي في المستندات مباشرة .. وأنا أريد غير المستندات .

انا أقول تستاهل " عروسة " 💞

شكر الله لكما @ابو البشر @ابوخليل

ما هو كود تصدير استعلام إلى اكسل مباشرة . دون ان أعمل تقرير للاستعلام ثم اصدره اكسل

أخي محمد @Barna شكر الله لك .. المطلوب تمام جزاك الله خيرا . أخي @محمد أبوعبدالله أيضا أشكرك على مجهودك معي .. وفقك الله .

اخي @محمد أبوعبدالله لم يضبط معي .. لم يتم نقل الأسماء في عمود C ولا الارقام في عمود B

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

أخي @محمد أبوعبدالله هل طبقت التعديل على المرفق وضبط معك ؟؟

تريد تفريغ البيانات من جميع الجداول ؟؟ وضح

الأئمة الخبراء @jjafferr @محمد أبوعبدالله @Barna @kanory ألا يمكن تتفاهمون مع موضوعي هذا .. ودي تُصلِحُون بيننا ..

إخواني الفضلاء .. كنت قد صممت البرنامج المرفق لنقل الأسماء والرقم الأكاديمي إلى ملف الإكسل من نوع 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 وإلا لم يكن لهذا الملف أي فائدة .. تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو .. @@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها ..