تنفيذ أكثر من شرط يتعلق بالتاريخ الحالي

[Moheeb_ALokbey]

اخواني تحية طيبة

جديد معاكم بالمنتدي وأتمني أن أستفيد عملياً منكم ؛ ولكم مني فائق الإحترام والتقدير.

نا حاليا اعمل ع مشروع ولكني توقفت عند هذه النقطة
فأنا بحاجة لكود متعلق بـ VB.net يحتوي علي اكثر من شرط يتعلق بشهر معين
كمثال توضيحي اكثر:
عند الضغط علي زر معين يبدا الشرط بتنفيذ اوامره
* اذا كان الشهر الحالي (1) قم بفتح form 1
* اذا كان الشهر الحالي (2) قم بفتح form 2

وبما انه احنا الان في شهر 12 فعند الضغط علي الزر يقوم تلقائيا بفتح form12

[ابوخليل]

في ٢٤‏/١٢‏/٢٠١٨ at 02:10, Moheeb_ALokbey said:

فأنا بحاجة لكود متعلق بـ VB.net 

هذا الكود يعمل في أكسس :

If Month(Date()) = 1 Then DoCmd.OpenForm "form1"
وهكذا ...

ويمكن اختصاره ليشمل 12 شهر  هكذا

Private Sub zer1_Click()
Dim stDocName As String
Dim mnthNum As Integer
mnthNum = Month(Date)
stDocName = "form" & mnthNum
DoCmd.OpenForm stDocName
End Sub