السلام عليكم
في المرفق يفتح النموذج coming وهو نموذج تسجيل حضور موظفين
حيث يكتب الموظف رقمه ( filnu ) في rn
ليسجل حضوره في الجدول coming بالوقت والتاريخ المحدد بالنموذج
المطلوب الله يجزيكم خير
تسجل بيانات الملف رقم 12 بشكل آلي الساعة 6.30 كل يوم ما عدا الخميس والجمعه
في الجدول coming
Dim z
If Me.[timefld] = #6:30:00 AM# Then
z = ("INSERT INTO coming (filnu,coming) VALUES ('" & 12 & "','" & "','" & #6:30:00 AM# & "')")
DoCmd.RunSQL z
End If
حصلت هذا الكود لكن يحتاج للتعديلتم تعديل هذه المشاركة بواسطة un know في 29 ديسمبر 2013 في 18:02
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…