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

TAMER AGOOR

عضو جديد 01
  • Posts

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

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

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

6 Neutral

عن العضو TAMER AGOOR

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    DOCTOR
  • البلد
    EGYPT
  • الإهتمامات
    ACCESS

اخر الزوار

781 زياره للملف الشخصي
  1. محمد احمد لطفى ... كتر الف خيرك ده بالظبط اللى انا عايزه
  2. السلام عليكم .. عايز اعمل تنسيق شرطى فى خانه ال text box فى نموزج ادخال بيانات بكتب فيها رقم تليفون العميل ... لو عدد ارقام التليفون اقل او اكتر من 10 لون ال text box يختلف .... علشان اتنبه لرقم بعد ادخاله
  3. ahmed draz شرح رائع .. بس ابه فايدته الكود ده؟؟؟ بيعمل تقلص للحقول واللابل بتاعها؟؟؟؟؟؟
  4. السلام عليكم عايز شرح للكود ده,, هوا عندى على ريبورت وتقريبا كده بيعمل تقلص للحقول Dim aa, bb, xx, y, v Option Compare Database Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) aa = 0 bb = 0 xx = 0 y = 0 v = 0 For y = 1 To 9 v = y & "2" If Not IsNull(Me(v)) Then For bb = 1 To 2 aa = y & bb Me(aa).Top = 800 + xx Next xx = Me(aa).Top Else For bb = 1 To 2 aa = y & bb Me(aa).Visible = False Next End If
  5. السلام عليكم اخواتى الكرام .. من فتره كبيره وانا صممت قاعده بيانات اكسيس تفيدنى فى مجال عملى والحمد لله تعمل معى بشكل جيد وكل فتره اضيف عليها شىء يفيدنى فى عملى ويسهل التعامل مع قاعدة بياناتى.. انا كنت مصممها على اوفيس 2003 واستمريت فى التطوير عليها اللى الان ... يمكن اوفيس اصدار 2007 ان يفتح هذه القاعده واعدل عليها بشكل طبيعى ...... السوال بقاا؟؟ خايف افضل استمر فى تطويرها وفى الاخر لا استطيع مواكبه الاصدارارت الاعلى .. ويضيع مجهودى هباءا..... كيف اجعل الاصدارات الاعلى من الاوفيس تتقبلها عادى حتى لو عدلت حاجات فبها من الاساس حتى لا يضبع مجهودى ...... وشكرا لكم
  6. هوا ده ياجماعه الحل النهائى... عقاعده بيانات للتجارب الحل النهائى.rarلشان مش لبفتح فوق مش عارف ليه
  7. قاعده بيانات للتجارب-1 (2).rar kkhalifa1960 اخى الفاصل ..متشكر جدا وكتر الف خيرك ..ربنا يجازيك خير ويكتر من امثالك..الكود اللى انت عامله مش هوا اللى انا عايزه ولكن نغعنى جداااااااا ..انا عدلت عليه وعملت اللى انا عايزه وحطيت الكود على الفورم عند الفنح وكمان نسخته على check box علشان اشغله ......متشكر جدا لردك ولاهتمامك ..انا نزلتها هنا علشان لو حد عايز يستفيد منها قاعده بيانات للتجارب الحل النهائى.rar
  8. قاعده بيانات للتجارب.rar السلام عليكم ... محتاج اعمل كود بس مش عارف اعمله ازاى؟؟ ويبقى على ايه؟؟؟ ... وهوا....... اما اضغط على الاختيار TRUE فى ال (CHECK BOX71) تظهر كل الاختيارات اللى فوق (CHECK BOX71) (قصدى تظهر للمستخدم علشان يقدر يعلم عليها ويختارها) والاختيار اللى تحت (CHECK BOX67) .. واما الغى الاختيار فى CHECK BOX71 تختفى الاختيارات اللى فوق واللى تحت ......يعنى باختصار ميكونش فيه اختيارات متاحه مدام (CHECK BOX71) مغلق ... مع العلم انا عامل كود على الامر (خروج) بيلغى الاختيارات اللى فوق وااللى تحت مع غلق النموذج علشان يرجع النموذج بدون اختيارات مع الفتح الجديد.... عايز يفضل شغال بردو وشكرا لكم جميعا
  9. Foksh كتر اف خيرك ...تمام بالظيط هوا ده اللى انا عايزه ..متشكر جدااااااا kkhalifa1960 اخى الكريم ...متشكر جدا لاهنمامك بس الحمد لله لقيت الحل ..وكتر الف خير
  10. قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا
  11. kkhalifa1960 مش بيفتح عندى اخى الكريم ... انا شغال على اكسيس 2007 .. لوتكرمت انسخ الكود هنا علطول Private Sub Command6_Click() On Error GoTo Err_Command6_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Dim stDocName As String stDocName = "separetr" DoCmd.OpenReport stDocName, acNormal Exit_Command6_Click: Exit Sub Err_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End Sub ده كود انا بطبع بيه عادى خالص مفهوش اى مشكله وشغال .. عايز اخليه يطبع بالاخيار تقريرين بالكود اللى انا كتبه فوق بس للاسف مش بيطبع ..ممكن اكون كاتب فيه حاجه غلط؟؟
  12. Private Sub Command93_Click() On Error GoTo Err_Command93_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Dim stDocName As String If Forms!separet!Check71 = "-1" Then stDocName = "separetr" DoCmd.OpenReport stDocName, acNormal Else stDocName = "SeparetrBySelection" DoCmd.OpenReport stDocName, acNormal End If Exit_Command93_Click: Exit Sub Err_Command93_Click: MsgBox Err.Description Resume Exit_Command93_Click End Sub ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟
  13. كتر الف خير بس ممكن يطبع علطول من غير عرض صوره للتقرير؟؟
×
×
  • اضف...

Important Information