• الإعلانات

    • فيصل الحربي

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

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

aiman7337

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

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

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

كل شيء نشر بواسطة 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. شكرا على الرد لقد اكتشفت السبب وهو امتلاء الاكواد هل يوجد معك طريقه لتوسيع مكان الاكواد اوحل اخر
  14. الحمد لله انحلت المشكله شكرا
  15. اولا اشكر هاذا الموقع الجميل الذي افادنا كثيرا الف شكر  عندي شرطين بالفيجول بيسك اكسس2003 ولا كن المشكله عند تحقق الشرط الاول يتوقف الشرط الثاني ارجو المساعده    ElseIf tbvtac!halat = 1 Then                                                                                                                                                                              txt1].BackColor = RGB(255, 0, 0                                                                                                                                                                       [asd].BackColor = RGB(255, 255, 0)                                                                                                                                                             If tbvtac!detaMO = Date Then __________________________________________________هاذا الشرط الاول                      [txt1].ForeColor = 16777215                                                                                                                                                              ElseIf tbvtac!amoResp >= tbvtac!presDay * tbvtac!totodays Then_______________________هاذا الشرط الثاني                    [asd].BackColor = RGB(255, 0, 0)                                                                                                                                                     ElseIf tbvtac!amoResp < tbvtac!presDay * tbvtac!totodays Then  ____________________________هاذا الشرط الثاني                       [txt1].BackColor = 0                                                                                                                                                                                  هل يوجد شرط يقوم بتشغيل الشرطين    مستند نصي جديد ‫(2)‬.txt
  16. مساعده لو سمحتم

    شكرا ماقصرتم
  17. عندي جدول فيه سجل a و b وc اريد سجل c حاصل ضرب a وb  بدون استعلام على نفس الجدول