• 0
frman

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

سؤال

السلام عليكم

عندي مجموعة زر , اول واحد اسمها (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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0
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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .