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

عفرنس

04 عضو فضي
  • Posts

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

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

كل منشورات العضو عفرنس

  1. نسيت أضيف : انه تم تغيير اسم زر الأمر ( تفريغ الحقول ) إلى ( CmdUpdate ) بالتوفيق أخي الكريم .. لا تنس تضغط على أفضل إجابه حتى يتم انه تم حل الموضوع
  2. الأخ حربي العنزي .. عذا الكود وضعناه في زر أمر تفريغ الحقول ( عند النقر ) ومن ثم كتابة اسم الجدول وهو باللون البنفسجي :: وكذلك أسماء الحقول المطلوب تفريغها المشار إليها باللون الأحمر .. Private Sub CmdUpdate_Click() Dim strSQL As String strSQL = "UPDATE TBL1 SET TBL1.daan = NULL, TBL1.mdeen = NULL, TBL1.sumMdeen = NULL, TBL1.sumDaan = NULL, TBL1.rseedMD = NULL, TBL1.rseedDA = NULL, TBL1.mdowrMD = NULL,TBL1.mdowrDA = NULL" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True Me.Requery End Sub وللأمانة فالكود بعد البحث وجدته للأخت زهرة مع تعديل اسم الجدول والحقول فيه .
  3. الأستاذ gelani البرنامج يعمل تمام انظر للصورة المرفقة .... لا تضيف البيانات أثناء فتح الجدول tbl
  4. أسعدك الله وجزاك خيرا .. سامحني أستاذي الفاضل لو كنت أثقلت عليك ..
  5. نعم صورة التقرير هي المطلوبة .. تفضل ‏‏برنامج كشف الفراغات في رصد درجات الفترة - نسخة.rar
  6. وعليكم السلام لو تلاحظ الصورة المرفقة تجد أن الطالاب المكتملة حقولهم بالدرجات تظهر في التقرير أنا أريد أي طالب عنده حقل فارغ هو الذي يظهر في التقرير فقط ..
  7. أوافقك الرأي .. وجزى الله خيرا كل من أعان وسعى في حاجة أخيه ..
  8. أستاذ خالد / أرغب في ظهور الطلاب الذين يوجد لديهم فراغات فقط في التقرير . بمعنى ( ليس لي حاجة في الطلاب الذين حقول درجاتهم مرصودة . كيف السبيل إلى ذلك ؟؟؟
  9. تمام أخي خالد تم حل المشكلة .. جزاك الله خيرا على لطفك وكرمك .. دائما مبدع
  10. هذا المطلوب وفقك الله .. لكن طبقت نفس المعيار على تقرير آخر لمادة أخرى ولم يظهر لي كما فعلت
  11. أولا / عليكم السلام ثانيا / شكر الله لك على صنيعك وردك .. ثالثا / فسبب طلبي هو : أن الدرجات يتم تصديرها من ملف اكسل بطريقة معينة إلى موقع نور ، وموقع نور لا يقبل رصد الصفر في الحقل بل يتركها فارغة ، طبعا لا بد أن يرصد الصفر للطالب فيتم رصده يدويا ، ومن الصعوبة بمكان تتبع كل مادة على الشاشة لمعرفة الحقول الفارغة . لذلك فكرت في عمل هذا البرنامج بحيث يتم تصدير الدرجات لكل مادة على ملف excel من موقع نور ومن ثم يتم جلبها عن طريق هذا البرنامج MARK ومن ثم إخراجها في تقارير . رابعا / حتى يكتمل البرنامج بشكل صحيح أود منك ( كرما ) ومن أمثالك من أهل الخبرة في هذا المنتدى الجميل بعد ما يتم استيراد الملفات يظهر لي في التقرير فقط الطلاب الذين يوجد لديهم في حقول درجاتهم NULL . وجزاك الله خيرا . للعلم : يتم استيراد مالا يقل عن 2000 حقل .
  12. وجزاك خيرا أخي جعفر
  13. لدي جدول مليء بالبيانات وبعض الحقول ف هذا الجدول فارغة . أريد معرفة الحقول الفارغة في ذا الجدول . عملت استعلام كما في الصورة .. مشى الحال مع حقل A1 و A2 لكن بقية الحقول A3 A4 A5 A6A 7A كيف اعمل معاها ؟؟
  14. ماشاء الله تبارك الله .. جزاك الله خيرا أخي محمد ..
  15. الأستاذ jjafferr البرنامج الذي أرفقته أنا هو يستورد البيانات التالية الذي أريده هو استيراد إضافة إلى هذه البيانات جميع الدرجات لكل مادة . ليس المجموع فقط ..
  16. اخي جعفر كل ما سبق ارساله ما تنفع معي اريد استيراد نفس ملفات الاكسل المرفقة .. لهدف معين في نفسي .. مع العلم اختلاف عدد اعمدة الدرجات لكل مادة .. جزيت الجنة ..
  17. السلام عليكم أريد جلب الدرجات الموجودة في ملفات الأكسل إلى البرنامج مع العلم أن عدد أعمدة الدرجات في كل مادة يختلف عن الأخرى .. أنا عملت جدول باسم MARK ما أدري عملي صحيح ح أو لا . مطابقة الدرجات.rar
  18. شكر الله لك أخيBarna .. تم المطلوب بنجاح
  19. ربما ارسلت لك الملف الخطأ .. هذا هو الملف المطلوب Teacher.xls
  20. تفضل .. واجعله لي بنفس اسم الملف Teacher.xls
  21. لعلك لم تفهمني أخي خالد .. أن الا أريد الملف ضمن مسار البرنامج . اريد الملف في التنزيلات مثلا والبرنامج على سطح المكتب ..
  22. نعم نفس الاسم
  23. شكر الله لك أخي الكريم .. تم تغيير المطلوب لكن لم يتم استيراد الملف من المجلد الذي هو موجود فيه . ما الذي يمكن تغييره في كود زر أمر الاستيراد ؟ طبعا الهدف من هذا العمل : هوأنني أريد استيراد ملف الاكسل من أي مجلد يمكن أن يكون فيه .. الأمر الموجود حاليا يتطلب أن يكون ملف اكسل والبرنامج معا في مجلد واحد .. Private Sub command4_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\Teacher" & ".xls" DoCmd.TransferSpreadsheet acImport, 8, "Teacher", ImportFileName, True End Sub
×
×
  • اضف...

Important Information