الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اسوي كود لل(Dlookup)

بدأه frman في 6 سبتمبر 2017 · 1 رد · 602 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي مجموعة زر , اول واحد اسمها (btn1) و كابشن (201) . و بعدها btn2 كابشن 202 ..... الى اخره 260

و في جدول عندي خلية بالاسم (id) بها رقم (201) ..... حتى 260 و خلية اخر باسم (date) بها تاريخ 

هسة اريد اسوي كود وقت فتح نموذج اذا في جدول عندي رقم (201) بتاريخ اليوم راسا لون زر كاسمها (201) تغير بلون احمر بمعنى اخر يعني زر رقم (201) محجوزة اذا مسحت هاى رقم 201 من جدول او بدلت تاريخ بيوم اخر تغير لون زر 201 بلون اخضر . و زر 202 الى 260 نفس شي 

هل هذه كود صحيح او لا؟ 

If Me.btn1.Caption = DLookup("ID", "Table1", "[ID] = 'Me.btn1.Caption '" And "[Date] = Date()") Then

Me.btn1.BackColor = 245
End If

شكرا لمساعدتكم

تم تعديل هذه المشاركة بواسطة frman في 6 سبتمبر 2017 في 23:11

#2 
If Me.btn1.Caption = DLookup("ID", "Table1", "[ID] = " & Me.btn1.Caption & " And [Date] = # " & Date() &"#") Then

Me.btn1.BackColor = 245
End If
If Me.btn1.Caption = DLookup("ID", "Table1", "[ID] = " & Me.btn1.Caption & " And [Date] = # " & Date() &"#") Then

Me.btn1.BackColor = 245
End If

مواضيع مشابهة