ثبت مقادیر check box در فیلد های اکسس

[ashakibi]

با سلام خدمت دوستان عزیز
من در برنامه ای که ساختم 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

[samiasoft]

دوست عزیز خب کمی به کدت دقت کنی میبنی که در تمامی قسمت ها شما نوشتی Check1.Value = 1 :لبخند: در حالی که باید اسامی اینها فرق میکرد

مثلا میشد Check1.Value و Check2.Value و...

[ashakibi]

بله شما درست گفتید. ببخشید از بی دقتی من