Public Sub FillFields() If Not (rs.BOF = True Or rs.EOF = True) Then Text7.Text = rs.Fields("Field2") Text8.Text = rs.Fields("Field3") Combo1.Text = rs.Fields("Field1") Text9.Text = rs.Fields("field4") Text10.Text = rs.Fields("field5") Text11.Text = rs.Fields("field6") Text12.Text = rs.Fields("field7") Text13.Text = rs.Fields("field8") Text14.Text = rs.Fields("field9") Check1.Value = rs.Fields("field10") <<<< PROBLEM Check2.Value = rs.Fields("field11") <<<< PROBLEM Else Text7.Text = "" Text8.Text = "" Combo1.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text14.Text = "" Check1.Value = 0 Check2.Value = 0 Check3.Value = 0 Check4.Value = 0 Check5.Value = 0 Check6.Value = 0 Check7.Value = 0 End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)