اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مصطفى010

عضو جديد 01
  • Posts

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

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

كل منشورات العضو مصطفى010

  1. عن طريق هذا البرنامج بعت تثبيته تجد في كل برامجك (ms access) في تبويب Database Tools ثم من Add-ins ثم V-form templates V-Tools 1.83 for Access 2010-2016.rar
  2. السلام عليكم ما معنى eee وايضا fff وهل يمكن عرض كل الجداول
  3. الاستاذ خالد اريد التعديل ليناسب الجدول الموجود usyssworker طبقت عليه المثال يتم التصدير ولا يتم الاستيراد
  4. ممكن التعديل على هذا الملف ولماذا لا يستورد Database4_3.accdb
  5. السلام عليكم استاذ خالد برجاء شرح كود الاستيراد حيث غيرت في عدد حقول الجدول ولم يتم الاستيراد وما معنى رقم 8
  6. شكرا استاذ خالد انا كنت عايز اعملها تتغير تلقائي يوميا والحمد لله قمت بتعديل الملف واليك الملف بعد التعديل mm - Copy.mdb
  7. هل من الممكن جعل لون خلفية النموذج يتغير مع اليوم بمعنى : اعمل كود يعطيني رقم اليوم في الاسبوع (او اسم اليوم) واطبق IF فإذا كان اليوم 1 (الاحد ) يكون لون الخلفية للنموذج احمر ولو كان 2 يكون اخضر ... وهكذا برجاء الافادة لاني حاولت لم تعمل معي حيث Text5 مربع نص يستخلص التاريخ بتنسيق اليوم (dddd) و Text7 يأخذ القيمه النصية منه Private Sub Form_Load() [Text7] = [Text5] End Sub Private Sub Form_Open(Cancel As Integer) Dim stt As String stt = Me.[Text7].Text If stt = "friday" Then Me.col.BackColor = vbRed 'ElseIf [Text7].Text = "saturday" Then 'Me.col.BackColor = vbGreen Else Me.col.BackColor = 15527148 Me.Refresh End If End Sub
  8. شكرا باشمهندس محمد (ابو جودي) فكرة جميلة فكرة المديول لكن ليه انا ما عرفتش اعملها هنا وما هي قواعد الكتابة لانني عملنها ونفعت لكن بمعيارين ولما كانت المعايير كثيرة اصبح من الصعب ؟
  9. اتفضل يوجد نموذجين الاول يعمل بالكتابة العربية الثاني حاولت التحويل به ولم يعمل برجاء تعديل الخطأ ويوجد تقرير اريد تحويل الكتابة العربية الى ترميز عالمي حاولت ولم افلح الرجاء التحويل في النموذج والتقرير.............. وشكرا unicode.accdb
  10. السلام عليكم حاولت استخدم الترميز العالمي لكن الامور غير سليمة ممكن المساعدة Private Sub Command10_Click() Form.FilterOn = False Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'" Form.FilterOn = True DoCmd.SetOrderBy "swname ASC" End Sub Private Sub Command10_Click() Form.FilterOn = False Form.Filter = stage = ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("1583") & ChrW("1575") & ChrW("1574") & ChrW("1610") And sex = ChrW("1575") & ChrW("1606") & ChrW("1579") & ChrW("1609") Form.FilterOn = True DoCmd.SetOrderBy "swname ASC" End Sub وهنا ايضا Text32 = DCount("[swname]", "usyssworker", "[idara]='Èäí ÓæíÝ'and[case]='ÇÕáí'and[stage]='ÇÈÊÏÇÆí'")
  11. السلام عليكم النموذج اشتغل تمام لكن عند ادخاله مع نماذج واستعلامات اخرى لا يشتغل ويعطى رسائل ا(اعتقدتداخل)
×
×
  • اضف...

Important Information