aiman7337

السلام عليكم ورحمة الله وبركاته عندي مربعات نص عند الفتح يضهر لي اول سجل بالجدول ما اريده هو تحديد كل مربع نص ماذا يفتح من سجل هذا الكود المحطوط 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 ارجو الافاده  واشكر الموقع الجميل هذا  

السلام عليكم اعضاء  منتديات الفريق العربي للبرمجة  طلب نقل البيانات عند عمل حفظ العقد الى موقع على الانترنت شموس تلقائي  (ارجو المساعدة) البرنامج مصمم على الاكسس

عندي برنامج اريد تعديل عليه بعض الاشياء  للتواصل معي [email protected] وله كامل اتعابه 

ترحيب البيانات من البرنامج للموقع 

هل استطيع دمجه مع برنامجي للفنادق لارسال رسائل تلقائي عند حفظ عقد

الهدف لعدم التلاعب بتاريخ البرنامج

السلام عليكم ورحمة الله وبركاته عجزت عن التعبير لهاذا الموقع المفيد جدا واتمنا لكم التوفيق  عندي برنامج اكسس في تاريخ معين يقفل البرنامج ولكن المشكله عند تغير تاريخ الكمبيوتر الى الخلف يعمل البرنامج ويتجاهل القفل  هل يوجد كود عند تاخير تاريخ الكمبيوتر يرفض ذالك  ويضهر رساله يرجى اتاكد من صحة تاريخ الكمبيوتر الاصلي ولكم مني جزير الشكر والمحبه  

منتضر الحل افيدونا

ممكن مثال لو تكرمت

ارجو المساعده

الله يجزاك خير ممكن تساعدنا في ذالك 

هل لايوجد حل ام انه صعب جدا ارجو ابلاغي وشكرا

هاذه رسالة المشكله ارجو مساعدتي  compile error procedure too large  اعتقد انها لسبب امتلاء الاكواد 

شكرا على الرد لقد اكتشفت السبب وهو امتلاء الاكواد هل يوجد معك طريقه لتوسيع مكان الاكواد اوحل اخر

الحمد لله انحلت المشكله شكرا

اولا اشكر هاذا الموقع الجميل الذي افادنا كثيرا الف شكر  عندي شرطين بالفيجول بيسك اكسس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

شكرا ماقصرتم

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

ارجو المساعدة