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

ابوخليل

أوفيسنا
  • Posts

    12,450
  • تاريخ الانضمام

  • Days Won

    231

كل منشورات العضو ابوخليل

  1. اولا تأكد من اسم الفولدر في المثال الاسم my files يختلف عن ما كتبته اعلاه myfiles الشيء الآخر ليش تعمل مجلدات تلقائية ؟ اذا اردت بيع برنامجك ارسله مع الفولدرات .. انا اعتبر مثل هذه الخطوات الزام مالا يلزم
  2. المثال يعمل يمكن السبب في تأمين الملف جرب كذا باستخدام الضغط aaa.rar
  3. اذا فهمي عنك صحيح هذه اقرب طريقة لتحقيق طلبك اتمنى ان تفي بالمطلوب lab3 - Copy.rar
  4. آمين واياك ، والحمد لله
  5. تفضل تم الاستغناء عن جدول المعلمين وبما ان المعلم قد يكون له اكثر من مادة فقد جعلت المواد في التفصيل times27.rar
  6. له اكثر من مادة نعم ... ولكن لا يوجد درجة على كل حال انتظرني سوف اعمل الافضل حسب مثالك سأحاول الا اضيف شيئا الا اذا تعذرت الحلول
  7. او لحظات دعني انظر في جدول الحصص الدرجة غير موجودة في جدول الحصص في جدول tbl_grade_wihda هل الدرجة ثابتة امام المادة
  8. حسب مشاركتك الأخيرة لا يوجد حل سحري انظر المثال لو افترضنا ان لكل معلم درجة واحدة ومادة .......................... وسوف احاول اذا يمكن ضبط المسألة مع تعدد الدرجة والمادة times26.rar اعمل جدول فرعي للمعلمين مرتبط مع جدول المعلمين رأس لأطراف وادرج لهم درجاتهم وموادهم في الفرعي وارفع التعديل
  9. طبعا ... المفترض كل معلم له درجته ومادته الخاصة والا كيف سيتم الربط مع الجدول المطلوب سوف اضيفها واوافيك بالحل
  10. جزيت خيرا اخي موسى ويفضل عند فتح الموضوع الجديد الاشارة الى الموضوع الأصل لمن اراد التوسع والبحث
  11. طلبك واضح ولكن يوجد اشكالية في الربط بين الجداول لتطبيق الحل كما ترغب يجب اضافة حقلي ( المادة / grade ) الى جدول اسماء المعلمين ما رأيك ؟
  12. مع شرحك الوافي .. الا ان طلبك غامض وبسبب هذا الغموض لم تحصل على رد ما العلاقة التي تربط اسم المعلم من جدول المعلمين بالبيانات المرفقة والموضحة في الصورة ؟ صحيح ان البيانات من جدول info_stagier .. فما هذه الاسماء التي في الجدول ؟ استفسار اكثر دقة : في الصورة ادناه ما علاقة الاستاذ عبدالمنعم بالجدول الظاهر ، ومن اين اتت هذه الاسماء ؟ هل هي اسماء معلمين او مفتشين لأني تصفحت جدول المعلمين فوجدت الأسماء تختلف
  13. نيابة عن اخي خليفة SavRefe as integr الموجود في الوحدة النمطية زائد لا يعمل والاستاذ خليفة غفل عن حذفه يمكنك حذف الوحدة النمطية فهي زائدة المتغير SavRef as integr داخل محرر النموذج هو الذي يعمل لاحظ الفرق بين الكلمتين : حرف e وهو على اسمه متغير حسب الحاجة .. تتبعه في الاحداث داخل محرر النموذج ،،، كل حدث اعطيناه قيمة مختلفة من اجل ضبط العملية
  14. عليكم السلام لا اذكر اني مررت بدرس او كود يعالج هذا الموضوع ولكني اعرف طريقة تحقق ذلك وهي تخفيض دقة الشاشة الى الى حد اقل بحيث يمكنك قراءة الواجههة بشكل مريح
  15. لا مشكلة فعلا هي قاعدة البيانات 2007 هل رأى احد منكم اصدارا احدث ؟ هذه الصورة من اكسس 2010
  16. لا تعب ولا شي ويسعدني خدمتك مثال الاستاذ جعفر يعالج بيانات ثابتة في الجدول ، وموضوعك مختلف لأن الاجمالي غير موجود في الأصل اعتذر .. لا ادري كيف اعالج الأمر فلعل احد الاخوة هنا الخبراء لديه رأي آخر
  17. هذا التصميم خاص بإكسل أكسس يختلف لتطبيق الفكرة واظهار النتيجة على طريقة أكسس انظر المثال. Database3.accdb
  18. حقل الاجمالي لا يوضع في الجدول وانما مكانه الاستعلام تفضل النتيجة Database2.accdb
  19. كان الخلل في قراءة رقم الكتاب هذه تحدث احيانا وليست على اطلاقها .. وهي ان الكود لا يقرأ قيمة الحقل الا مع التركيز عليه لذا اخذت بالاحتياط وتم التحايل على فرق الوقت الذي تأخذه عملية المسح بين ملف وآخر ، بالاستعانة بعداد النموذج بدلا من sleep او wait وهذه هي الجمل البرمجية كاملة ... Option Compare Database Option Explicit Dim i As Integer Dim mypath As String '--------------------------------------------------------------------------------- Private Sub Form_Timer() Me.Refresh If funDirFile = 0 Then If i = 0 Then Me.bookNumber.SetFocus Shell ("c:\Program Files (x86)\irfanview\i_view32.exe /batchscan=(" & Me.bookNumber.Value & ",,,,," & mypath & " ,pdf,0) /scanhidden") i = 1 End If Else Me.TimerInterval = 0 End If Call Form_Current End Sub '---------------------------------------------------------------------- Private Sub scanpdf_Click() i = 0 Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = Trim(bookNumber.Value) & ".pdf" mypath = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" DirFile = Dir(Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile) Me.TimerInterval = 3000 End Sub '--------------------------------------------------------------------------- Function funDirFile() Dim strFile As String, DirFile As String Me.bookNumber.SetFocus strFile = bookNumber.Value & ".pdf" DirFile = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & strFile funDirFile = Len(Dir(DirFile)) End Function '------------------------------------------------------------------------------------ Private Sub Form_Current() Dim sMyFileName As String sMyFileName = Application.CurrentProject.Path & "\My_Archive\Import\My_pdf\" & Trim(bookNumber.Value) & ".pdf" WebBrowser1.Navigate (sMyFileName) Me.Refresh End Sub test6.rar
  20. الحديث عن الاجازة العادية .. وهذه دائمة سنوية يتم حساب الارصدة فيها ويخصص جدول فرعي لها ولا ترصد في جدول بيانات العاملين ( ويتعامل معها كما نتعامل مع عمودي الدائن والمدين تماما ) العارضة ( مرضية.. اضطرارية .. امومة .. .. وغيرها ) وهذه وقتية تنتهي بانتهاء السنة حتى لو لم يأخذ العامل منها شيئا وهذه الاخيرة تكون بيانات هذه الاجازات وما يستحقه العمال في جدول خاص ( تحكم) كبيانات ثابتة ( سجل واحد يشمل جميع العمال ) ويمكن رصد الاجازة الممنوحة هذه في جدول الاجازات في حقول خاصة بكل نوع
  21. الحل جاهز عندي النسخ سيكون مرة واحدة سواء قصرت المدة او طالت نسخة او اكثر اقصد تنفيذ الحدث فقط لدي مشكلة في مسألة التأكد من وجود الملف .. dir لا تعترف بالمتغير الذي يمثل رقم الكتاب تريد رقما او اسما صريحا الدالة هذه صغيرة تأخذ سطرا واحدا فقط وبضم len اليها تفيد اذا الملف موجود ام لا سأكمل العمل غدا ان شاء الله وابحث عن طريقة اخرى اذا لديك كودا جاهزا للتأكد من وجود الملف من عدمه فزودني به
  22. انت تتكلم عن مبالغ والرابط اعلاه خاص بالزمن الافضل ان ترفق مثالا بسيطا لتمكن اخوانك من مساعدتك علما ان طلبك يسير جدا لو فرضنا الحقل الاول اسمه A والحقل الثاني اسمه B وحقل المجموع اسمه C سيكون الحل كالتالي C = NZ([A]) + NZ([B]) هذا اذا كان الكود في محرر الفيجوال ، اما ان كان الكود داخل مصدر عنصر الحقل فيكون كالتالي : = NZ([A]) + NZ([B])
  23. اذا قصدك يظهر في الفورم مجموع انتاج اليوم الحالي حسب كل نوع اذا نعم بياناتك كلها مسجلة في غير تاريخ اليوم .. اخر عملية تمت امس سجل في الجدول بيانات جديدة بتاريخ اليوم مع البيانات القديمة .. من اجل المقارنة عند عرض الحل
  24. ما فيه شي اسمه تنطرح كما تفضل اخوي موسى : ولكن بدون استعلامات تخصيص جدول لتفاصيل الاجازات عمل حقلين فيه: 1- حقل الاستحقاق السنوي ، ويتم الادراج فيه بداية كل سنة 30 يوما 2- حقل المنصرف او الاستمتاع او المستقطع "" سمه ما شئت"" يرصد فيه عدد ايام الاجازة التي يتمتع بها الموظف من خلال مجموع الحقلين يمكنك معرفة الارصدة المتبقية واجراء العمليات من واقعها
×
×
  • اضف...

Important Information