عدم نقل الأسماء والرقم الأكاديمي في ملف xslm

[عفرنس]

إخواني الفضلاء ..

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

لكني قمت بإضافة ( المادة ) في جدول جديد . وأضفتها أيضا في حقل في جدول student . ومن ثم طبقت الكود الذي عمله الأستاذ محمد @Barna . لكنه وللأسف لم ينقل الرقم الأكاديمي ( stuacdid ) إلى عمود ( B ) في ملف اكسل ولا الأسماء ( stuname ) في عمود ( C ) . 

** هذا هو الكود الذي عمله الأخ @Barna  في المشاركة : 

تصدير الى ملف اكسل من نوع xlsm

  اقتباس

تصدير الى ملف اكسل من نوع xlsm

Expand  

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.rarFetching info...

تم تعديل يوليو 27, 2020 بواسطه فايز..

[عفرنس]

الأئمة الخبراء 

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

ألا يمكن تتفاهمون مع موضوعي هذا .. ودي تُصلِحُون بيننا .. 

تم تعديل يوليو 27, 2020 بواسطه فايز..

[محمد أبوعبدالله]

السلام عليكم

مرحبا اخي الكريم

المشكلة عندك في معيار الاستعلام فمثلا الاستعلام يقوم باشاء جدول بمعيار الاسم

[Forms]![FORM2]![text1]

ومعيار الشعبة

[Forms]![FORM2]![text3]

بينما انت عندك text3 = المادة

 

ايضا لديك مشكلة بوجد زيادة في النص مرة في اول النص ومرة في اخره

مثال : في النموذج وفي مربع وتحرير وسرد text3 انسخ كلمة " احياء "2 والصقها في نوت باد ستجد انها بها زيادة في اول الكلمة

مثال اخر : في الجدول ستجد مسافة زائدة في نهاية الصف "الأول الثانوي "

تحياتي

[عفرنس]

  في 27‏/7‏/2020 at 11:33, محمد أبوعبدالله said:

السلام عليكم

مرحبا اخي الكريم

المشكلة عندك في معيار الاستعلام فمثلا الاستعلام يقوم باشاء جدول بمعيار الاسم

[Forms]![FORM2]![text1]

ومعيار الشعبة

[Forms]![FORM2]![text3]

بينما انت عندك text3 = المادة

 

ايضا لديك مشكلة بوجد زيادة في النص مرة في اول النص ومرة في اخره

مثال : في النموذج وفي مربع وتحرير وسرد text3 انسخ كلمة " احياء "2 والصقها في نوت باد ستجد انها بها زيادة في اول الكلمة

مثال اخر : في الجدول ستجد مسافة زائدة في نهاية الصف "الأول الثانوي "

تحياتي

Expand  

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

[محمد أبوعبدالله]

  في 27‏/7‏/2020 at 11:38, فايز.. said:

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

Expand  

نعم اخي

في النموذج غير قيم مربح وتحرير وسرد = text3 الى الشعب الموجودة عندك

او غير text2 الى الشعب الموجودة عندك >>> وغير في الاستعلام من text3 الى text2

تحياتي

[عفرنس]

  في 27‏/7‏/2020 at 11:42, محمد أبوعبدالله said:

نعم اخي

في النموذج غير قيم مربح وتحرير وسرد = text3 الى الشعب الموجودة عندك

او غير text2 الى الشعب الموجودة عندك >>> وغير في الاستعلام من text3 الى text2

تحياتي

Expand  

أخي @محمد أبوعبدالله يبدو أنك ما فهمتني ..

القضية وما فيها .. 

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

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

أرجو أكون أوصلت ما أريد 

تم تعديل يوليو 27, 2020 بواسطه فايز..

[محمد أبوعبدالله]

تفضل اخي الكريم

انظر الى حقل المادة في النموذج اضفت لك الشعبة 5

FF.rarFetching info...

ولكن حقيقة لا افهم لماذا المسافات الزائدة

D: " " & [sub] & " "

تحياتي

[عفرنس]

  في 27‏/7‏/2020 at 12:02, محمد أبوعبدالله said:

تفضل اخي الكريم

انظر الى حقل المادة في النموذج اضفت لك الشعبة 5

FF.rar 86.19 kB · 0 تنزيلات

ولكن حقيقة لا افهم لماذا المسافات الزائدة

D: " " & [sub] & " "

تحياتي

Expand  

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

[Barna]

  في 27‏/7‏/2020 at 12:19, فايز.. said:

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

Expand  

حتى لا يحدث لبس --------------->

تم الاستغناء عن 3 جداول :

1- جدول المواد

2- جدول الشعب

3- جدول الصف

والاكتفاء في جلب هذه المعلومات من الجدول الاساسي فقط ........

تم التعديل على هذا الاساس ............ ---------------->>>>>> انظر المرفق 

 

برنامج تصدير الطلاب للسجل FFالالكتروني.mdbFetching info...

[عفرنس]

  في 27‏/7‏/2020 at 13:46, Barna said:

حتى لا يحدث لبس --------------->

تم الاستغناء عن 3 جداول :

1- جدول المواد

2- جدول الشعب

3- جدول الصف

والاكتفاء في جلب هذه المعلومات من الجدول الاساسي فقط ........

تم التعديل على هذا الاساس ............ ---------------->>>>>> انظر المرفق 

 

برنامج تصدير الطلاب للسجل FFالالكتروني.mdb 404 kB · 0 تنزيلات

Expand  

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

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

 

 

تم تعديل يوليو 27, 2020 بواسطه فايز..

[عفرنس]

  في 27‏/7‏/2020 at 14:08, فايز.. said:

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

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

 

 

Expand  

أخي @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