خطا در آپشن باتن
سلام دوستان
در فرم یکی از جداول برای درج نوع کار که دارای سه گزینه است و حتما یک گزینه از سه گزینه انتخاب بشه .
در بخش کد نویسی برای سه آپشن باتنم این کدهار و نوشتم :
Option Compare Database
Private Sub Form_Load()
Me.O1.DefaultValue = False
Me.O2.DefaultValue = False
Me.O3.DefaultValue = False
End Sub
Private Sub O1_AfterUpdate()
Me.O2.Value = False
Me.O3.Value = False
Me.T1 = "تولید"
End Sub
Private Sub O2_AfterUpdate()
Me.O1.Value = False
Me.O3.Value = False
Me.T1 = "دوباره کاری"
End Sub
Private Sub O3_AfterUpdate()
Me.O1.Value = False
Me.O2.Value = False
Me.T1 = "تست"
End Sub
و لیبی با نام t1 بصورت مخفی در فرم قرار داره که گزینه انتخاب شده رو در فیلد مربوط در جدول پر کنه...
اما از وقتی کدهارو نوشتم هنگام باز شدن فرم خطا میده و اصلن گزینه ها کار نمیکنن
ممنونم
بانک نمونه در ضمیمه قرار دادم
پاسخ با نقل قول