اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . 

لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . 

ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B  في ملف اكسل وعمود F16  في عمود C في ملف اكسل .

والتصدير يكون في ورقة  ( متابعة الدرجات ) ..

لكم الود والتقدير .. 

قام بنشر (معدل)
  في 24‏/7‏/2020 at 18:22, ابو البشر said:

اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل

Expand  

جميل أخي @ابو البشر تم التعديل وظهر .. 

بقي كود التصدير ..

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

image.png.0509e80b1a2fb2cb39d84979ae0c437a.png

طبعا أريد ترحيل بيانات العمودين t1 و f16  إلى القالب المرفق في المشاركة الأولى لي . وليس انشاء ملف اكسل جديد .. 

تم تعديل بواسطه فايز..
قام بنشر

اين المرفق

  في 24‏/7‏/2020 at 18:51, فايز.. said:

أريد ترحيل بيانات العمودين t1 و f16

Expand  

على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها

ثم قم بتصدير الاستعلام

DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True 

تحياتي

قام بنشر
  في 24‏/7‏/2020 at 22:24, محمد أبوعبدالله said:

اين المرفق

على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها

ثم قم بتصدير الاستعلام

DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True 

تحياتي

Expand  

هذا المرفق . وأظن نسيت ارفاقه في المشاركة السابقة .. 

المطلوب نقل البيانات من عمود t1 إلى عمود B  في ملف اكسل المرفق وعمود F16  في عمود C في الملف المرفق . 

نقل البيانات .rarFetching info...

قام بنشر (معدل)
  في 24‏/7‏/2020 at 18:01, فايز.. said:

اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . 

لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . 

ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B  في ملف اكسل وعمود F16  في عمود C في ملف اكسل .

والتصدير يكون في ورقة  ( متابعة الدرجات ) ..

لكم الود والتقدير .. 

Expand  

اخي فايز ... 

ملف الاكسل المرفق . يخص مادة الاجتماعيات . فهل هذا يعني ان جميع المواد بنفس حقول المتابعة ام هي مختلف ؟؟؟

لان هناك مواد تختلف طريقة التقييم فيها مثل مواد العلوم . احياء . فيزياء ... وكذلك الحال لمواد المكتبة والبحث ... والقران الكريم ... وهكذا....

 

تم تعديل بواسطه Barna
  • Like 2
قام بنشر
  في 25‏/7‏/2020 at 17:34, Barna said:

اخي فايز ... 

ملف الاكسل المرفق . يخص مادة الاجتماعيات . فهل هذا يعني ان جميع المواد بنفس حقول المتابعة ام هي مختلف ؟؟؟

لان هناك مواد تختلف طريقة التقييم فيها مثل مواد العلوم . احياء . فيزياء ... وكذلك الحال لمواد المكتبة والبحث ... والقران الكريم ... وهكذا....

 

Expand  

جميع المواد عمود B يحتوي  الرقم الاكاديمي وعمود C يحتوي اسم الطالب .. 

انا هدفي من هذا البرنامج .. اريد نقل اسماء الطلاب وارقامهم الاكاديمية في هذين العمودين بضغطة زر .. 

سابقا كنت انسخ والصق لكن هذا يستغرق وقتا كثيرا .. 

خاصة اذا كل مادة لا تقل عن 5 شعب في كل مرحلة .. 

اذا اردت ارفق لك بقية المواد حاضر .. 

لكن في البداية نريد نطبق على مادة الاجتماعيات .. 

كتب الله اجرك .. 

قام بنشر

الاستاذ فايز 🙂

 

تقدر تعمل استعلام بالحقلين المطلوبين ،

ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 

 

جعفر

  • Like 2
قام بنشر (معدل)
  في 25‏/7‏/2020 at 18:43, jjafferr said:

الاستاذ فايز 🙂

 

تقدر تعمل استعلام بالحقلين المطلوبين ،

ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 

 

جعفر

Expand  

اعملهم فين ؟؟ 

في نفس برنامجك والا برنامجي ؟؟ 

لأن لما اختار الخطوة الاولى والثانية ما يظهر لي غير الجدولين اللذين في برنامجك .. 

ايضا لما اجي للخطوة رقم 3 لا يظهر لي ملفي الذي اريد ارحل العمودين له .. 

المرفق موجود مسبقا ولك ان تجرب وتوافينا بالنتائج 

تم تعديل بواسطه فايز..
قام بنشر

مشاركة مع حبايبنا الاساتذة ....

استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل .....

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"

انظر النتيجة في ملف الاكسل ..........

 

1.png

Ba_Deffi.rarFetching info...

  • Like 3
قام بنشر

استاذ فايز ،

في الرابط ، المادة 12 و 13 تقول :

  اقتباس

12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها.

Expand  

 

يعني استورد هذه الكائنات الى برنامجك 🙂

وبعدين كل شيء يتم من برنامجك 🙂

 

جعفر

 

قام بنشر
  في 25‏/7‏/2020 at 19:04, Barna said:

مشاركة مع حبايبنا الاساتذة ....

استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل .....

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"

انظر النتيجة في ملف الاكسل ..........

 

1.png

Ba_Deffi.rar 81.2 kB · 0 تنزيلات

Expand  

جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. 

لكن عندي بعض الملحوظات وهي : 

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

كيف نحل المشكلة ذي ؟؟ 

قام بنشر
  في 25‏/7‏/2020 at 20:55, فايز.. said:

جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. 

لكن عندي بعض الملحوظات وهي : 

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

كيف نحل المشكلة ذي ؟؟ 

Expand  

حلها بارك الله في تحويل ملف الاكسل الى قالب ...... 

جرب واعلمنا بالنتيجة .......

 

اجتماعيات.rarFetching info...

  • Like 1
قام بنشر (معدل)
  في 25‏/7‏/2020 at 21:41, Barna said:

حلها بارك الله في تحويل ملف الاكسل الى قالب ...... 

جرب واعلمنا بالنتيجة .......

 

اجتماعيات.rar 131.25 kB · 2 تنزيلات

Expand  

فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. 

تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو ..

 

@@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها ..  

تم تعديل بواسطه فايز..
قام بنشر
  في 25‏/7‏/2020 at 22:19, فايز.. said:

فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. 

تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو ..

 

@@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها ..  

Expand  

طيب دقائق اعدل بعض الاشياء و نجعل البرنامج يحفظ مباشرة في ملف باسم الشعبة  .....------------>>>>>>>

  • Like 1
  • تمت الإجابة
قام بنشر

انظر المرفق واعلمنا بالنتيجة ---------->>>>>>

يقوم البرنامج بنسخ البيانات المطلوبة في ملف باسم الشعبة ويحفظ بجوار البرنامج مباشرة دون الحاجة للحفظ وفي نفس الوقت يحافظ على الملف الاساس للاكسل

 

Ba1_Deffi.rarFetching info...

  • Like 1
  • Thanks 2
قام بنشر
  في 25‏/7‏/2020 at 23:22, Barna said:

انظر المرفق واعلمنا بالنتيجة ---------->>>>>>

يقوم البرنامج بنسخ البيانات المطلوبة في ملف باسم الشعبة ويحفظ بجوار البرنامج مباشرة دون الحاجة للحفظ وفي نفس الوقت يحافظ على الملف الاساس للاكسل

 

Ba1_Deffi.rar 81.49 kB · 0 تنزيلات

Expand  

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

كفيت ووفيت .. ألف ألف شكر .. وفقك الله ويسر أمرك .. 

قام بنشر (معدل)

أخواني @Barna  @kanory @jjafferrتحية طيبة لك .. 

في البرنامج أضفت جدول خاص بالمادة 

وأريد أن يتم تصفية الطلاب حسب المادة والشعبة ومن ثم يتم التصدير .. ( لأنه كما تعلم صف أول ثانوي الشعبة رقم 2 كمثال ليس كلهم يدرسون مادة اجتماعيات ) 

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

بصراحة خشمي صدع .. 

فريت الكود فر .. ولا طلعت بنتيجة . 

وهذا المرفق 

image.png.dcace4efe1b126a48c73501e6f36d40a.png

 

 

برنامج تصدير الطلاب الى السجل الإلكتروني33.rarFetching info...

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information