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

aiman7337
اعضاء جدد-
عدد المشاركات
20 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
-1 مقبولعن 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 ارجو الافاده واشكر الموقع الجميل هذا
-
مطلوب مبرمج اكسس يتواصل معي اذا ممكن
aiman7337 رد على aiman7337's موضوع في قواعد بيانات Microsoft Access
ترحيب البيانات من البرنامج للموقع -
مطلوب مبرمج اكسس يتواصل معي اذا ممكن
aiman7337 رد على aiman7337's موضوع في قواعد بيانات Microsoft Access
- 6 ردود
-
-1
-
عندي برنامج اريد تعديل عليه بعض الاشياء للتواصل معي [email protected] وله كامل اتعابه
-
إرسال رسائل SMS عن طريق الآكسس مباشرة
aiman7337 رد على abs_2000's موضوع في قواعد بيانات Microsoft Access
هل استطيع دمجه مع برنامجي للفنادق لارسال رسائل تلقائي عند حفظ عقد -
الهدف لعدم التلاعب بتاريخ البرنامج
-
منتضر الحل افيدونا
-
ممكن مثال لو تكرمت
-
ارجو المساعده
-
aiman7337 أعطى سمعة إيجابية لــ إجابة على سؤال: حماية :عمل نسخه تجريبية بعدد مرات الدخول للبرنامج
-
السلام عليكم ورحمة الله وبركاته عجزت عن التعبير لهاذا الموقع المفيد جدا واتمنا لكم التوفيق عندي برنامج اكسس في تاريخ معين يقفل البرنامج ولكن المشكله عند تغير تاريخ الكمبيوتر الى الخلف يعمل البرنامج ويتجاهل القفل هل يوجد كود عند تاخير تاريخ الكمبيوتر يرفض ذالك ويضهر رساله يرجى اتاكد من صحة تاريخ الكمبيوتر الاصلي ولكم مني جزير الشكر والمحبه
-
aiman7337 أعطى سمعة إيجابية لــ إجابة على سؤال: ربط بيانات برنامج اكسس بموقع على الانترنت
-
ربط بيانات برنامج اكسس بموقع على الانترنت
aiman7337 رد على aiman7337's موضوع في قواعد بيانات Microsoft Access
الله يجزاك خير ممكن تساعدنا في ذالك -
ربط بيانات برنامج اكسس بموقع على الانترنت
aiman7337 رد على aiman7337's موضوع في قواعد بيانات Microsoft Access
هل لايوجد حل ام انه صعب جدا ارجو ابلاغي وشكرا -
aiman7337 أعطى سمعة إيجابية لــ إجابة على سؤال: حل لمشكله امتلاء الكود
-
شكرا على الرد لقد اكتشفت السبب وهو امتلاء الاكواد هل يوجد معك طريقه لتوسيع مكان الاكواد اوحل اخر
-
هاذه رسالة المشكله ارجو مساعدتي compile error procedure too large اعتقد انها لسبب امتلاء الاكواد
-
الحمد لله انحلت المشكله شكرا