عفرنس

في ١٥‏/١٢‏/٢٠٢٠ at 06:03, عفرنس said:

صحيح .. 

بمعنى ان بيانات شعبة 1و 5 ستكون في شيت 2

وبيانات شعبة 2و 6 ستكون في شيت 4 

وبيانات شعبة 3و 7 ستكون في شيت 6 

وبيانات شعبة 4و 8 ستكون في شيت 8 

-----------

طبعا شعبة 1 2 3 4 ستكون في ملف اكسل مستقل 

وشعبة 5 6 7 8 ستكون في ملف اكسل آخر 

لان الملف الأصلي لا يحتوي الا على 8 شيتات فقط 

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

جزاكم الله خيرا 

في ١٢‏/١٢‏/٢٠٢٠ at 12:34, أبو عبدالله الحلوانى said:

جرب هذا اذا

ووافنا بالنتائج

 

تجربة.rar 589.41 kB · 17 downloads

هذا هو المرفق للاطلاع .. @jjafferr

في ١٥‏/١٢‏/٢٠٢٠ at 06:03, عفرنس said:

صحيح .. 

بمعنى ان بيانات شعبة 1و 5 ستكون في شيت 2

وبيانات شعبة 2و 6 ستكون في شيت 4 

وبيانات شعبة 3و 7 ستكون في شيت 6 

وبيانات شعبة 4و 8 ستكون في شيت 8 

-----------

طبعا شعبة 1 2 3 4 ستكون في ملف اكسل مستقل 

وشعبة 5 6 7 8 ستكون في ملف اكسل آخر 

لان الملف الأصلي لا يحتوي الا على 8 شيتات فقط 

@أبو عبدالله الحلوانى 

5 ساعات مضت, أبو عبدالله الحلوانى said:

هذا لم أفهمه جيدا هل سيتم ادخال بيانات أكثر من شعبة في شيت واحد أم ماذا؟ 

صحيح .. 

بمعنى ان بيانات شعبة 1و 5 ستكون في شيت 2

وبيانات شعبة 2و 6 ستكون في شيت 4 

وبيانات شعبة 3و 7 ستكون في شيت 6 

وبيانات شعبة 4و 8 ستكون في شيت 8 

-----------

طبعا شعبة 1 2 3 4 ستكون في ملف اكسل مستقل 

وشعبة 5 6 7 8 ستكون في ملف اكسل آخر 

لان الملف الأصلي لا يحتوي الا على 8 شيتات فقط 

في ١٢‏/١٢‏/٢٠٢٠ at 14:20, عفرنس said:

جزاك الله كل خير أخي @أبو عبدالله الحلوانى هذا هو المطلوب ..

بقي نقطة أتمنى تكون بسيطة وهي :: 

مادة الرياضيات كمثال لها 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 .. 

 

أتمنى أكون وصلت ما أقصد . 

شاكر لك مرة أخرى 

@Barna 

تم التوصل إلى الحل .. 

السلام عليكم 

حاولت أعدل في جملة INSERT لاستيراد البيانات من ملف اكسل المرفق لكن لم أصل إلى نتيجة .. 

لعلكم تجدون لي الحل .. 

بوركت جهودكم 

تجربة.rar

في ١٢‏/١٢‏/٢٠٢٠ at 14:20, عفرنس said:

جزاك الله كل خير أخي @أبو عبدالله الحلوانى هذا هو المطلوب ..

بقي نقطة أتمنى تكون بسيطة وهي :: 

مادة الرياضيات كمثال لها 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 .. 

 

أتمنى أكون وصلت ما أقصد . 

شاكر لك مرة أخرى 

@ابوخليل لعلك تسعفنا في هذا أخي الكريم 

@أبو عبدالله الحلوانى 

1 ساعه مضت, أبو عبدالله الحلوانى said:

جرب هذا اذا

ووافنا بالنتائج

 

تجربة.rar 589.41 kB · 0 downloads

جزاك الله كل خير أخي @أبو عبدالله الحلوانى هذا هو المطلوب ..

بقي نقطة أتمنى تكون بسيطة وهي :: 

مادة الرياضيات كمثال لها 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 .. 

أتمنى أكون وصلت ما أقصد . 

شاكر لك مرة أخرى 

5 ساعات مضت, أبو عبدالله الحلوانى said:

جرب هذا ووافنا بالنتائج

 

تجربة.rar 626.86 kB · 0 downloads

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

** لم يعد يظهر رقم الشعبة في البرنامج كما في الصورة المرفقة 

** لم يتم اضافة أسماء الطلاب والرقم الأكاديمي في الشيت رقم 4 . إنما تم اضافتهم في ملف جديد في شيت رقم 4 وهذا غير المطلوب . 

المطلوب ( جميع الشيتات حتكون في صفحة واحدة، بحيث الشعبة 1 في الشيت رقم 2 والشعبة 2 في شيت رقم 4 والشعبة 3 في الشي رقم 6 .. ) 

10 دقائق مضت, أبو عبدالله الحلوانى said:

يبدو أن الكود معكوس فأعتقد أن التحديد قبل النسخ

جرب هذا أولا:

    With Rst1
        If .RecordCount <> 0 Then
            .MoveFirst
            objWorkbook.Sheets(shetNo).range("C5").Select
           objWorkbook.Sheets(shetNo).range("C5").CopyFromRecordset Rst1
        End If
    End With

أو أرفق المرفق النهائي بعدالتعديل للاتمكن من رؤية المشكلة

تمنايتب بالتوفيق

تفضل المرفق .. وفقك الله .. 

ملحوظة / يجب ان يكون البرنامج ومجلد السجل الالكتروني معا في مجلد واحد . 

تجربة.rar

10 دقائق مضت, أبو عبدالله الحلوانى said:

أخي أنا كتبت Text0 ,text1 أسماء وهمية لحقل النص الذي به مسار الشيت والذي لا أدي ماذا تسميه أنت وكذلك حقل اسم الشعبة والذي لا أدري ما اسمه لديك غير كلمتي Text0 ,text1 باسماء مربعات النص التي لديك أنت 

ملاحظة: يجب أن يكون حقل الشعبة رقم

جزاك الله خيرا .. 

غيرت حقل الشعبة إلى رقم .. لكن ظهر لي الخطأ الذي في الصورة .. 

وأرجو أن تتحملني فأنا قليل المعرفة في الأكواد .. 

37 دقائق مضت, أبو عبدالله الحلوانى said:

هل سيتم تصدير الشعب بشكل متتالي اليا أم أنك ستقوم بتصدير البيانات بعد تحديد الشعبة أولا

سأقوم أنا بتصدير البيانات بعد تحديد الشعبة أولا . 

29 دقائق مضت, أبو عبدالله الحلوانى said:

Call barnaExcelFile(text0,text1)

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

لعلك تسعفني بتعديل الكود في نفس البرنامج المرفق مسبقا .. وجزاك الله خيرا . 

3 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا بك أبا عبدالرحمن..

كيف أستطيع أن أساعد؟

لم أجد في الملفات المرفقة ما أشرت إليه أدناه ولم استطع أن أفهم طلبك

 

حياك الله أخي @أبو إبراهيم الغامدي 

لعل الصور المرفقة توضح المطلوب .. 

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

27 دقائق مضت, jjafferr said:

جرب هاي :

بدل هذا السطر
    Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot)


اكتب هذا السطر
    Set Rst1 = db1.OpenRecordset("Select * FROM temp ORDER BY stuname", dbOpenSnapshot)

 

جعفر

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

1 دقيقه مضت, jjafferr said:

الظاهر طريقتي في العمل تختلف عن طريقتك !!

انت تعطي المعلومات بالقطارة ، قطرة قطرة ، ووقت السؤال 😁
 

لازم اسالك اي نموذج ، والآن لازم اعرف اي زر في النموذج 😁

 

جعفر

ههههه 

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

8 دقائق مضت, فايز.. said:

Form2

 

هذه الصورة مرفقة 

3 دقائق مضت, jjafferr said:

اي نموذج ؟

Form2

33 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

في قواعد البيانات ، غير مهم طريقة حفظ فرز البيانات ، والمهم عند عرض البيانات ،
النموذج اللي يعرض البيانات ، اذهب الى الاستعلام مصدر بياناته ، واعمل الفرز على الاسم 🙂

 

جعفر

شكرا لك أخي جعفر .. ربما لم أوصل ما أقصده بشكل جيد .. 

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

بمعنى ان البرنامج رتبها حسب الرقم الأكاديمي من الأصغر إلى الأكبر .. أريد العكس .. 

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

ان شاء الله أكون وضحت قصدي