انتخاب یک تاریخ از فرم تقویم

[sadegh1944]

با سلام
من دو فرم دارم یکی از فرمها برنامه تقویم شمسی است حال من میخواهم با کلیک برروی هر تاریخ در فرم تقویم تاریخ انتخاب شده در یک تکس باکس در فرم دومی قرار گیرد لطفا کدی برای این منظور به من بدهید و یک نمونه برای من بگذارید

[مهدی قربانی]

سلام
دوست عزيز همون نمونه اي كه طراحي كرديد رو اينجا بذاريد تا راهنمايي صورت بگيره .

[sadegh1944]

میخوام نمونه را بزارم ولی پیام زیر ظاهر میشه و به من اجازه نمیده

خطای به‌روز رسانی
Upload of file failed

[مهدی قربانی]

سلام
فايلتون رو Zip يا Rar كنيد بعد آپلود كنيد .

[sadegh1944]

با سلام
لطفا در مورد درج تاریخ در فرم یک از روی فرم تقویم در ضمیمه زیر راهنمایی نمایید

[مهدی قربانی]

سلام
شما در اينجور مواقع مي تونيد با تعريف يك متغيير سراسري در برنامه مقدار مورد نظر رو در داخل اون ذخيره و در جاي مورد نظرتون ثبت و ذخيره كنيد ، من ابتداً يك متغيير بنام strِDate در ماجول Shamsi Date_Mod تعريف كردم و بعد در رخداد ()optCalendar_Click يك خط كد اضافه كردم كه تاريخ رو در متغير وق ذخيره ميكنه ، برنامه رو چك كنيد :


Private Sub optCalendar_Click()
'Çíä ÎØ ãÞÏÇÑ ÊÇÑíÎ ãæÑÏ äÙÑ Ñæ ÏÑ ãÊÛííÑ ÓÑÇÓÑí ÐÎíÑå ãíßäå
strDate = Me.cmbYear & "/" & Format(Me.cmbMonth, "00") & "/" & Format(optCalendar.Value, "00")
'/////////////////////////////////

MsgBox "ÊÇÑíÎ ÇäÊÎÇÈ ÔÏå : " & Me.cmbYear & "/" & Format(Me.cmbMonth, "00") & "/" & Format(optCalendar.Value, "00"), vbOKOnly + vbInformation, "ÇäÊÎÇÈ ÊÇÑíÎ"

DoCmd.Close
End Sub