• الإعلانات

    • فيصل الحربي

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

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

aiman7337

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

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

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

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

-1 مقبول

عن aiman7337

  • الرتبة
    عضو جديد

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

  • الجنس ذكر
  1. السلام عليكم ورحمة الله وبركاته عندي مربعات نص عند الفتح يضهر لي اول سجل بالجدول ما اريده هو تحديد كل مربع نص ماذا يفتح من سجل هذا الكود المحطوط Dim dbvact As Database Dim tbvtac As Recordset Set dbvact = CurrentDb() Set tbvtac = dbvact.OpenRecordset("tblRom", dbOpenDynaset)    هذا هو الكود الذي يضهر السجل التلقائي   tbvtac.MoveFirst   [txt1] = " " & " " & " " & " " & " " & " " & " " & " " & tbvtac!noRom & " " & _  " " & " " & " " & " " & tbvtac!namcost & " " & " " & " " & tbvtac!tel & _  " " & " " & " " & tbvtac!detaMO   If tbvtac!halat = 0 Then        [txt1].BackColor = RGB(0, 255, 0)        [asd].BackColor = RGB(0, 255, 0) ElseIf tbvtac!halat = 3 Then         [txt1].BackColor = 15395328         [asd].BackColor = 15395328 ElseIf tbvtac!halat = 1 And tbvtac!tyejar >= 1 Then         [txt1].BackColor = RGB(255, 0, 0)         [asd].BackColor = RGB(255, 0, 0)                If tbvtac!detaMO = Date And tbvtac!amoResp < tbvtac!presDay * tbvtac!totodays Then             [txt1].ForeColor = 16777215  'áæä ÇáÎØ ÃÈíÖ              [asd].BackColor = 0 ElseIf tbvtac!amoResp >= tbvtac!presDay * tbvtac!totodays And tbvtac!detaMO = Date Then             [asd].BackColor = RGB(255, 0, 0)             [txt1].ForeColor = 16777215 ElseIf tbvtac!detaMO > Date And tbvtac!amoResp < tbvtac!presDay * tbvtac!totodays Then              [asd].BackColor = 0         Else         End If   ElseIf tbvtac!halat = 1 And tbvtac!tyejar = 2 Then         [txt1].BackColor = 206          [asd].BackColor = 206         If tbvtac!detaMO = Date And tbvtac!amoResp < tbvtac!presDay * tbvtac!totodays Then             [txt1].ForeColor = 16777215  'áæä ÇáÎØ ÃÈíÖ              [asd].BackColor = 0 ElseIf tbvtac!amoResp >= tbvtac!presDay * tbvtac!totodays And tbvtac!detaMO = Date Then             [asd].BackColor = 206             [txt1].ForeColor = 16777215 ElseIf tbvtac!detaMO > Date And tbvtac!amoResp < tbvtac!presDay * tbvtac!totodays Then              [asd].BackColor = 0                                   Else         End If ElseIf tbvtac!halat = 2 Then         [txt1].BackColor = RGB(255, 255, 0)         [asd].BackColor = RGB(255, 255, 0)     End If ارجو الافاده  واشكر الموقع الجميل هذا  
  2. ترحيب البيانات من البرنامج للموقع 
  3. عندي برنامج اريد تعديل عليه بعض الاشياء  للتواصل معي [email protected] وله كامل اتعابه 
  4. هل استطيع دمجه مع برنامجي للفنادق لارسال رسائل تلقائي عند حفظ عقد
  5. الهدف لعدم التلاعب بتاريخ البرنامج
  6. منتضر الحل افيدونا
  7. ممكن مثال لو تكرمت
  8. السلام عليكم ورحمة الله وبركاته عجزت عن التعبير لهاذا الموقع المفيد جدا واتمنا لكم التوفيق  عندي برنامج اكسس في تاريخ معين يقفل البرنامج ولكن المشكله عند تغير تاريخ الكمبيوتر الى الخلف يعمل البرنامج ويتجاهل القفل  هل يوجد كود عند تاخير تاريخ الكمبيوتر يرفض ذالك  ويضهر رساله يرجى اتاكد من صحة تاريخ الكمبيوتر الاصلي ولكم مني جزير الشكر والمحبه  
  9. الله يجزاك خير ممكن تساعدنا في ذالك 
  10. هل لايوجد حل ام انه صعب جدا ارجو ابلاغي وشكرا
  11. شكرا على الرد لقد اكتشفت السبب وهو امتلاء الاكواد هل يوجد معك طريقه لتوسيع مكان الاكواد اوحل اخر
  12. هاذه رسالة المشكله ارجو مساعدتي  compile error procedure too large  اعتقد انها لسبب امتلاء الاكواد 
  13. الحمد لله انحلت المشكله شكرا