[hussamalhamadany]

[attachment=330]السلام عليكم
اخواني في هذا النتدى الرائع والكبير
طلبي هو ان يظهر
تاريخ النفاذ تلقائيا بعد انتهاء شهر على تاريخ التسجيل وبشرط ان يظهر تاريخ التسجيل بالفورم الثاني وكل معلوماتة
وكما في المرفق

[hussamalhamadany]

السلام عليكم اخواني اتمنى ان يكون سؤالي واضح

[asto]

هل الشهر هو 30 يوم دائما

كود :

Private Sub Command3_Click()
Form2.Show
Form2.Text4.Text = DateAdd("d", 30, Text4)
form2.text1.text=text1.text
form2.text=text2.text
form3.text=text3.text
End Sub

[hussamalhamadany]

الشهر 30 او يكون 31

[asto]

قصدي مثلا اليوم 6/11/2013

فهل بعد شهر يعني 6/12/2013

ام 7/12/2013

و اذا كان اليوم مثلا : 6/12/2013

هل سيكون تاريخ النفاذ هو : 6/1/2014

ام 5/1/2014

ام 7/1/2013

اجب على هذا السؤال حتى اكمل لك الكود

[hussamalhamadany]

اشكرك اخي بارك الله فيك
قصدي مثلا اليوم 6/11/2013
فيكون 7/12/2013

[asto]

كود :

Private Sub Command3_Click()
Form2.Show
k=month(now)
k=k+1
if k=13 then k=1
kk=kk+1
endif
kk=year(now)
if  k=1 or k=3 or k=5 or k=7 or k=8 or k=10 or k=12 then g=31
if  k=4 or k=6 or k=9 or k=11  then g=30
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim ks as Integer
if k=2 then
ks=kk/4
kss=ks*4
kh=kk-kss
if kh=0 then g=28
if not kh=0 then g=29
endif
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Form2.Text4.Text = DateAdd("d", g, Text4)
form2.text1.text=text1.text
form2.text=text2.text
form3.text=text3.text
End Sub

و يمكنك حذف ما بين
'''''''''''''''
''''''''''''''''
و اضافته الى احد الشرطين فوقها