اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Hosain21

02 الأعضاء
  • Posts

    75
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه Hosain21

  1. أستاذي الكريم الغالي :
    هنا ملف قديم لاستيراد جداول طلاب المقررات العمودية (أو الأفقي والعشوائي) [يتضمن تجميع بيانات الغياب بشكل بدائي قبل استخدام أجهزة البصمة]
    واستيراد مبيضة نتيجة أي فصل دراسي من ملف الأكسل المصدّر من نور

    https://drive.google.com/drive/folders/1ZMRzyBeny9x8Spsa0g1iHT6YJUC-BqvY
    وتوجد ملفات أخرى (المقررات المتبقية ـ بيانات طلاب المقررات)
    ولكن لم يتم تطويرها منذ 7 سنوات ... عدّل عليها كيف شئت (لاتوجد حقوق)

     

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

     

     

    42.zip

  3. وعليكم السلام ورحمة الله وبركاته
    أخي الكريم الغالي :
    إذا كان نظام المقررات (المطبق في السعودية) فقد تستفيدون من هذه الأمثلة (ولكم الحق في التعديل عليها كيف شئتم)
    http://www.mediafire.com/file/yacag4f1er0aqrc
    http://www.mediafire.com/file/6dckldil06wyd63
    http://www.mediafire.com/file/8ppthmq03mnn242
    http://www.mediafire.com/file/0l97nbdtdzsd6cc

  4. السلام عليكم ورحمة الله وبركاته
    أساتذتي الكرام :
    أجزل الله لكم المثوبة على هذا المشروع .
    ====
    يوجد برنامج على الأكسس قديم ومجاني (غير مفتوح المصدر) من الأستاذ : محمد عيد العتيبي (أبو كادي) ، ولكن موقعه لايعمل الآن
    رابط البرنامج (
    قد يستفاد من بعض الأفكار الموجودة فيه)
    http://www.mediafire.com/file/7hddeql683604ps
     

  5. أستاذي الكريم الغالي :
    هنا مجموعة من البرامج التي تقبل وضع السؤال في صورة .
    http://www.mediafire.com/file/rk5tikkksmwo2xx
    للأسف غالبها غير مفتوح المصدر (ولكنها تقبل اضافة وحذف أسئلة)
    برامج محمد عيد العتيبي(30 مصمم الاختبارات) بالأكسس مفتوحة ومجانية .

    • Like 1
  6. وعليكم السلام ورحمة الله وبركاته
    أستاذي الكريم الغالي : jjafferr
    أليس بالإمكان أن تكون عناوين الأعمدة (عدد الوفيات - المصابين - البلاغات) لأنها الثوابت ... ونغير في اتجاه النص فقط
    (بخلاف نوع المنشأة لأنها غير محصورة)

  7. أرى أن تضاف الأيام التي يمنح فيها الموظف إجازة باستعلام إلحاقي إلى جدول الحضور اليومي (بدون وقت حضور وانصراف) [العملية مرتبطة بقرار الإجازة لا بشكل يومي .. ويظهر كأنه داوم في اليوم 0 دقيقة]

    • Like 1
  8. وعليكم السلام ورحمة الله وبركاته
    أساتذتي الكرام الأفاضل :
    الطريقة الشائعة : استخراج أعلى 10 مجاميع (يمكن تكرار الترتيب لأكثر من طالب في جميع المراكز وليس العاشر فقط) .
    ولذلك نضع استعلام إنشاء جدول يرتب المجاميع تنازليا ، ويتضمن حقل ترقيم تلقائي (يأخذ التقرير أعلى عشرة مجاميع بغض النظر عن عددهم) .
    مثال لتوضيح الفكرة :
    (أو المرفق الاستعلام4 لاحتساب المكرر في المركز العاشر فقط ، أما الاستعلام 3 فيحتسب المكرر في أيّ مركز على أنه واحد)

    DoCmd.RunSQL "DROP TABLE top", -1
    DoCmd.RunSQL "CREATE TABLE top   ([tr]autoincrement   ,  [mjmo4] Double );", -1
    DoCmd.RunSQL "INSERT INTO [top] ( mjmo4 )  SELECT m4dl.m4dl  FROM m4dl  GROUP BY m4dl.m4dl  ORDER BY m4dl.m4dl DESC;  ", -1

     

    First_Ten.zip

    • Like 1
  9. وعليكم السلام ورحمة الله وبركاته
    أخي الكريم الغالي :
    إذا كان المطلوب الاستيراد من ملف الأكسل المصدر من نور  فلعل المرفق يفيدك .

     

    ملصقات لجان الاختبارات.zip

  10. Public Function zaImportAllSheets()
    Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean
    Dim lngCount As Long
    Dim objExcel As Object, objWorkbook As Object
    Dim colWorksheets As Collection
    Dim strPathFile As String, strTable As String
    
    On Error Resume Next
    Set objExcel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
          Set objExcel = CreateObject("Excel.Application")
          blnEXCEL = True
    End If
    Err.Clear
    On Error GoTo 0
    
    blnHasFieldNames = True
    strPathFile = txtPath
    strTable = "Sheet"
    blnReadOnly = True
    Set colWorksheets = New Collection
    Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly)
    For lngCount = 1 To objWorkbook.Worksheets.Count
          colWorksheets.Add objWorkbook.Worksheets(lngCount).Name
    Next lngCount
    objWorkbook.Close False
    Set objWorkbook = Nothing
    If blnEXCEL = True Then objExcel.Quit
    Set objExcel = Nothing
    
    For lngCount = colWorksheets.Count To 1 Step -1
    DoCmd.TransferSpreadsheet acImport, 8, strTable, strPathFile, False, colWorksheets(lngCount) & "$"
    Next lngCount
    Set colWorksheets = Nothing
    End Function

    أستاذنا الكبير الغالي :
    استفدت الفكرة التي قد يحتاج إليها السائل لاستيراد عدد محدد من أوراق الأكسل من أستاذتنا الكريمة : زهرة .
    وما تضمنه الملف السابق من استيراد نتائج الفترات أو نهاية الفصل (للمرحلتين المتوسطة والثانوية [عام - فصلي - مقررات- تحفيظ] أو جداول المقررات ، أو الكشوف و بيانات الطلاب ، و استيراد الأسماء وإعادة تصديرها للبرامج القديمة الداعمة لمعارف)

    • Like 2
×
×
  • اضف...

Important Information