تأريخ تلقائي لباقي ايام الاسبوع

[ahmad_mustafa]

السلام عليكم ورحمة الله وبركات

في المرفق قاعدة بها نموذج يتم فيه تعبئة حقل التاريخ الميلادي لايام الاسبوع بشكل يدوي والمظلوب ان يتم ذلك بشكل تلقائي بعد كتاية تاريخ اول حقل 

ولكم الشكرتأريخ تلقائي.rar 

[kanory]

تفضل .....

Sub kan()
On Error GoTo w
Dim i As Integer
Dim sCount As Integer
sCount = Me.Recordset.RecordCount
DoCmd.GoToRecord , , acFirst
For i = 0 To Me.Recordset.RecordCount
Me.datem = DateAdd("d", i, Me.kano)
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery
Exit Sub
w:
MsgBox "تم"
End Sub

Private Sub تأريخ_تلقائي_Click()
Me.kano = Me.datem
kan
End Sub

 

[Eng.Qassim]

طبعا me.kano هو مربع نص يتم اضافته للنموذج الرئيسي ويتم فيه ادخال بداية التاريخ

[ahmad_mustafa]

اشكرك kanory على الرد

لكني اريد ان اكتب التاريخ ليوم السبت فيقوم زر تأخريخ تلقائي بمتابعة التاريخ لباقي ايام الاسبوع وارجو تنفيذ ذلك في القاعدة المرفقة

جزاك الله كل خير

تأريخ تلقائي.rar

[kanory]

هل جربت الكود اخي الكريم ...... أم تتحدث قبل التجريب .... على العموم تفضل ملف بعد التعديل .....

 

تأريخ تلقائي.rar

[ahmad_mustafa]

فعلا هذا طلبي ربنا ينور قلبك