• الإعلانات

    • فيصل الحربي

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

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

أواب

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

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

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

السمعه بالموقع

9 عادي

عن أواب

  • الرتبة
    عضو
  • تاريخ الميلاد 07/28/1955

طرق الإتصال

  • MSN [email protected]
  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : مصر
  • اهتمامات مدرس رياضيات

أحدث الزائرين لملفلك الشخصي

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

    تفضل أخي الكريم ..لعله ما تريد 1.rar
  13. يعطيك العافية يا ست الكل وألف شكر
  14. شكرأ لاهتمامك ..........زهرة المنتدى ولكن ماذا أكتب قبل الكود؟ أي كيف أعبر عن هذا المعنى:    then(اسم هذه القاعدة =كذا) if
  15. 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