ashakibi
پنج شنبه 24 مهر 1393, 20:47 عصر
با سلام خدمت دوستان عزیز
من در برنامه ای که ساختم 5 عدد check box گذاشتم . میخوام به فرض هر کدوم از چک باکس ها که تیک خورده شد caption اون در فیلد های بانک اطلاعاتیم ذخیره شه. من کد زیر رو نوشتم ولی مشکل من با این کد مثلا من دو چک باکس رو تیک می زنم و ذخیره می کنم ولی میبینم همه چک باکس ها(هر پنج تا) ذخیره شده. از دوستان خواهش میکنم این مشکل منو برطرف کنند. در صورت امکان کد تصحیح شده رو بنویسید
Private Sub Command1_Click()
Adodc2.Recordset.AddNew
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("job") = Check1.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("marry") = Check2.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("darman") = Check3.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("maskan") = Check4.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("komak") = Check5.Caption
End If
Adodc2.Recordset.Update
Adodc2.Refresh
End Sub
من در برنامه ای که ساختم 5 عدد check box گذاشتم . میخوام به فرض هر کدوم از چک باکس ها که تیک خورده شد caption اون در فیلد های بانک اطلاعاتیم ذخیره شه. من کد زیر رو نوشتم ولی مشکل من با این کد مثلا من دو چک باکس رو تیک می زنم و ذخیره می کنم ولی میبینم همه چک باکس ها(هر پنج تا) ذخیره شده. از دوستان خواهش میکنم این مشکل منو برطرف کنند. در صورت امکان کد تصحیح شده رو بنویسید
Private Sub Command1_Click()
Adodc2.Recordset.AddNew
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("job") = Check1.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("marry") = Check2.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("darman") = Check3.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("maskan") = Check4.Caption
End If
If Check1.Value = 1 Then
Adodc2.Recordset.Fields("komak") = Check5.Caption
End If
Adodc2.Recordset.Update
Adodc2.Refresh
End Sub