• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

أواب

اعضاء
  • عدد المشاركات

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

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

كل شيء نشر بواسطة أواب

  1. إخواني الأفاضللدي تقرير به مربعات نص غير منضمةوأريد جمعها لكنها غير ثابتة تتغير وفقا لاختياريكما بالصورةوالمثال مرفق للتوضيح والتعديل عليه ss.rar
  2. اترك مثالا للتعديل عليه  
  3. إخواني الأعزاء السلام عليكم ورحمة الله لدي تقرير بأسماء عددهم قد يكون 12 أو 15 أريد  أن تزيد أسطر الكشف إلى 20 أو 25 مثلا أي سيكون هناك أسطر فارغة كيف أسويها ؟ لقد بحثت في المنتدى ووجدت أشياء مشابهة لكن لم أستطع تطبيقها على حالتي شاكراً لكم حسن تعاونكم a1.rar
  4. لدينا برنامج ( تأجير المعدات ) فواتير وسندات قبض وسندات صرف وكشوف وتقارير وكل ما تريد للتواصل / 0509466865 لدينا برنامج ( تأجير المعدات ) فواتير وسندات قبض وسندات صرف وكشوف وتقارير وكل ما تريد للتواصل / 0509466865
  5. هل يمكن ارفاق القاعدة لمعرفة الاسباب؟
  6. وعليكم السلام لو ترفق مثالا لمساعدتك عليه
  7. للإسف الأوفيس عندي اصدار 2003 فلو أمكن رفع الملف بإصدار2003
  8. وعليكم السلام أرفق مثالا لقاعدة ليتم التعديل عليه
  9. وعليكم السلام أرفق مثالا لقاعدة ليتم التعديل عليه
  10. نرجو التفضل برفع البرنامج بنسخة 2003 لتعم الاستفادة
  11. ضع الكود في حدث عند فتح النموذج أو أرفق مثالك للتعديل عليه
  12. يمكنك أخي الكريم فعل ذلك عن طريق الكود Private Sub Form_Open(Cancel As Integer)If Not IsNull([الرقم الوظيفي]) Then[الرقم الوظيفي].Locked = True[الرقم الوظيفي].Enabled = FalseElse[الرقم الوظيفي].Locked = False[الرقم الوظيفي].Enabled = TrueEnd If
  13. تفضل أخي الكريم.....لعل المثال يفيدك 1.rar
  14. مرحباً بك أخونا فتى الوادي تفضل أخي الكريم.....لعله ما تطلبه db1.rar
  15. مرحباً بك أخونا فتى الوادي تفضل أخي الكريم.....لعله ما تطلبه db1.rar
  16. عمل خلفية بدل الاكسس

    تفضل أخي الكريم ..لعله ما تريد 1.rar
  17. يعطيك العافية يا ست الكل وألف شكر
  18. إخواني الكرام السلام عليكم ورحمة الله لدي قاعدة بها كود لعمل نسخة باسم مختلف أرجو اذا تغيير اسم القاعدة يتعطل هذا الكودعلى نمط if (اسم هذه القاعدة =كذا) then[نفذ هذا الكود]end ifشاكراُ لكم حسن تعاونكم
  19. شكرأ لاهتمامك ..........زهرة المنتدى ولكن ماذا أكتب قبل الكود؟ أي كيف أعبر عن هذا المعنى:    then(اسم هذه القاعدة =كذا) if
  20. if [اسم هذه القاعدة]="النقل المدرسي" then [نفذ هذا الكود]' Dim strPath As String Dim fs, OldFile, DBwithEXT, DBwithoutEXT, NewFile OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) strPath = CurrentProject.Path & "\" & DLookup("[العام]", "B") If Not IsExist(CurrentProject.Path & "\", vbDirectory) Then MkDir CurrentProject.Path & "\" If Not IsExist(strPath, vbDirectory) Then MkDir strPath Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile CurrentProject.Path & "\النقل المدرسي ج.mdb", strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4) fs.CopyFile CurrentProject.Path & "\النقل المدرسي.mdb", strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4) Set fs = Nothing Relink strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), True MsgBox "تم نسخ قاعدة البيانات" end if
  21. يمكنك التعديل من خلال فتح قاعدة الجداول والتعديل على من تحب     بالتوفيق
  22. ما هو المطلوب؟ وهل هناك من يستخدم معا رف الى الآن؟ ألم يستبدل بنظام نور--تبع الوزارة؟
  23. جزاكم الله خيرا...جميعكم   وننتظر نسخة ال 2003
  24. اضافة حقل لنموذج

    وعليكم السلام أخي.......السؤال غير واضح لو ترفق مثالا وتوضح به المطلوب لتتم مساعدتك.