ارجو اتعديل على هذا الكود حيث يكون مطابق للتاريخ الجهاز لنه يعطى تاريخ مقاير حيث يكون الاجهاز الاحد وهو السبت اريد ان يمشى مع تاريخ الجهاز
DoCmd.Maximize
Dim i, k
i = DatePart("d", Now)
k = Weekday(i)
d = WeekdayName(k)
DoCmd.Requery "d"
If d = "" Then
DoCmd.OpenForm ""
End If
End Sub
وضعة بداية الاسبوع صفر ولم يتغير شى وضعته 7 لم يتغير شى يبغى متئخر بيوم عن الجهاز
السلام عليكــم ورحمـة الله وبركاتــه ،،
Dim d As Integer
d = Weekday(Date)
If d = 1 Then LABEL1.Caption = "الاحد"
If d = 2 Then LABEL1.Caption = "الاثنين"
If d = 3 Then LABEL1.Caption = "الثلاثاء"
If d = 4 Then LABEL1.Caption = "الاربعاء"
If d = 5 Then LABEL1.Caption = "الخميس"
If d = 6 Then LABEL1.Caption = "الجمعه"
If d = 7 Then LABEL1.Caption = "السبت"
لبنان / قب الياس
/index.php?showtopic=37977
موقع كتب الحاسب العربيه
http://www.cb4a.com/books/
-------------------
طريقه تانيه
Dim d
d = Weekday(Date - 1)
t = WeekdayName(d)
txt1 = t
لبنان / قب الياس
/index.php?showtopic=37977
موقع كتب الحاسب العربيه
http://www.cb4a.com/books/
-------------------
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…