new
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
If rs.EOF = False Then<br />
Text5.Text = rs.Fields("Floor_no")<br />
Text6.Text = rs.Fields("Amount")<br />
rs.Update<br />
End If<br />
End Sub<br />
Private Sub Command1_Click()<br />
Call CONNECT<br />
Text4.Text = Date<br />
rs.Open "select * from tbl_owner", cn, adOpenDynamic, adLockPessimistic<br />
rs.AddNew<br />
rs.Fields("Name") = Text1.Text<br />
rs.Fields("Mobile") = Text2.Text<br />
rs.Fields("Email") = Text3.Text<br />
rs.Fields("Date_entry") = Text4.Text<br />
rs.Fields("flatno") = Combo1.Text<br />
If Check1.Value = 1 Then<br />
t1 = "Family"<br />
ElseIf Check2.Value = 1 Then<br />
t1 = "Friends"<br />
End If<br />
rs.Fields("Tenents") = t1<br />
If Check3.Value = 1 Then<br />
t2 = "2 weeler"<br />
ElseIf Check4.Value = 1 Then<br />
t2 = "4 weeler"<br />
End If