لاتبخل قام بنشر أبريل 29, 2018 مشاركة قام بنشر أبريل 29, 2018 (معدل) السلام عليكم في حالة اختيار تاريخ ويصادف يوم الجمعة يصبح الون احمر ama3.rar تم تعديل أبريل 29, 2018 بواسطه لاتبخل رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر أبريل 29, 2018 مشاركة قام بنشر أبريل 29, 2018 وعليكم السلام ورحمة الله وبركاتة رابط هذا التعليق شارك More sharing options...
لاتبخل قام بنشر أبريل 29, 2018 الكاتب مشاركة قام بنشر أبريل 29, 2018 هل توجد طريقة لتغيير الون الخط رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 29, 2018 مشاركة قام بنشر أبريل 29, 2018 تفضل Private Sub txtDate_BeforeUpdate(Cancel As Integer) If Weekday(Me.txtDate) = vbFriday Then Cancel = (MsgBox("The Date is on a " & _ Format(Me.txtDate, "dddd") & vbCrLf & vbCrLf & _ "Do you want to keep this date?" _ , vbYesNo + vbQuestion) = vbNo) If Cancel Then Me.txtDate.ForeColor = vbRed End If End Sub رابط هذا التعليق شارك More sharing options...
لاتبخل قام بنشر أبريل 29, 2018 الكاتب مشاركة قام بنشر أبريل 29, 2018 (معدل) اذا ممكن بس اخلي الكود وين تم تعديل أبريل 29, 2018 بواسطه لاتبخل رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 29, 2018 مشاركة قام بنشر أبريل 29, 2018 لم انظر الى التطبيق الذي ارفقته بمشاركتك و لكن الكود يكون في حدث قبل التحديث للحقل الذي يتم ادخال التاريخ به ، و هنا أسميته txtDate رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 29, 2018 مشاركة قام بنشر أبريل 29, 2018 أو ممكن ان يكون الشرط كما يلي If Weekday(Me.txtDate) = 6 Then Cancel = (MsgBox("The Date is on a " & _ Format(Me.txtDate, "dddd") & vbCrLf & vbCrLf & _ "Do you want to keep this date?" _ , vbYesNo + vbQuestion) = vbNo) If Cancel Then Me.txtDate.ForeColor = vbRed End If 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.