• الإعلانات

    • فيصل الحربي

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

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

أواب

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

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

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

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

  1. تقرير بشرط

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

    تفضل أخي الكريم ..لعله ما تريد 1.rar
  18. يعطيك العافية يا ست الكل وألف شكر
  19. إخواني الكرام السلام عليكم ورحمة الله لدي قاعدة بها كود لعمل نسخة باسم مختلف أرجو اذا تغيير اسم القاعدة يتعطل هذا الكودعلى نمط if (اسم هذه القاعدة =كذا) then[نفذ هذا الكود]end ifشاكراُ لكم حسن تعاونكم
  20. شكرأ لاهتمامك ..........زهرة المنتدى ولكن ماذا أكتب قبل الكود؟ أي كيف أعبر عن هذا المعنى:    then(اسم هذه القاعدة =كذا) if
  21. 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
  22. يمكنك التعديل من خلال فتح قاعدة الجداول والتعديل على من تحب     بالتوفيق
  23. ما هو المطلوب؟ وهل هناك من يستخدم معا رف الى الآن؟ ألم يستبدل بنظام نور--تبع الوزارة؟