hi!!!
am palcy , am having problem in my listview with my save button whenever i try to edit something then press the command button for saving the update that ive' done it give's me the error "querry is too complex" then pointing my "rs.Update" code
any solutions or proper coding for updating a recordset ... thank you in adcanve... here is my coding below
code:
connection
rs.Open "select * from permanent where num='" & num.Caption & "'", con, 3, 3
If rs.RecordCount <> 0 Then
rs.Update
rs("num") = (num.Caption)
rs("name") = UCase(txtname.Text)
rs("sex") = (sex.Text)
rs("year") = (year1.Text)
rs("ncee") = (ncee.Text)
rs("month") = (month.Text)
rs("day") = (day.Text)
rs("year1") = (year2.Text)
rs("place") = (place.Text)
rs("city") = (city.Text)
rs("provincial") = (prov.Text)
rs("parent") = (parent.Text)
rs("address") = (address.Text)
rs("primary") = (prim.Text)
rs("year2") = (year3.Text)
rs("intermediate") = (inte.Text)
rs("year3") = (year4.Text)
rs("high_school") = (high.Text)
rs("year4") = (year5.Text)
rs("year5") = (co1.Text)
rs("elp1") = (elp1.Text)
rs("no1") = (no1.Text)
rs("final1") = (fin1.Text)
rs("final2") = (fin2.Text)
rs("final3") = (fin3.Text)
rs("final4") = (fin4.Text)
rs("final5") = (fin5.Text)
rs("final6") = (fin6.Text)
rs("final7") = (fin7.Text)
rs("final8") = (fin8.Text)
rs("re-xam1") = (re1.Text)
rs("re-xam2") = (re2.Text)
rs("re-xam3") = (re3.Text)
rs("re-xam4") = (re4.Text)
rs("re-xam5") = (re5.Text)
rs("re-xam6") = (re6.Text)
rs("re-xam7") = (re7.Text)
rs("re-xam8") = (re8.Text)
rs("units1") = (unit1.Text)
rs("units2") = (unit2.Text)
rs("units3") = (unit3.Text)
rs("units4") = (unit4.Text)
rs("units5") = (unit5.Text)
rs("units6") = (unit6.Text)
rs("units7") = (unit7.Text)
rs("units8") = (unit8.Text)
rs("remark1") = (rem1.Text)
rs("remark2") = (rem2.Text)
rs("remark3") = (rem3.Text)
rs("remark4") = (rem4.Text)
rs("remark5") = (rem5.Text)
rs("remark6") = (rem6.Text)
rs("remark7") = (rem7.Text)
rs("remark8") = (rem8.Text)
rs("year6") = (co3.Text)
rs("elp2") = (elp2.Text)
rs("no2") = (no2.Text)
rs("final9") = (fin9.Text)
rs("final10") = (fin10.Text)
rs("final11") = (fin11.Text)
rs("final12") = (fin12.Text)
rs("final13") = (fin13.Text)
rs("final14") = (fin14.Text)
rs("final15") = (fin15.Text)
rs("re-xam9") = (re9.Text)
rs("re-xam10") = (re10.Text)
rs("re-xam11") = (re11.Text)
rs("re-xam12") = (re12.Text)
rs("re-xam13") = (re13.Text)
rs("re-xam14") = (re14.Text)
rs("re-xam15") = (re15.Text)
rs("unit9") = (unit9.Text)
rs("unit10") = (unit10.Text)
rs("unit11") = (unit11.Text)
rs("unit12") = (unit12.Text)
rs("unit13") = (unit13.Text)
rs("unit14") = (unit14.Text)
rs("unit15") = (unit15.Text)
rs("remark9") = (rem9.Text)
rs("remark10") = (rem10.Text)
rs("remark11") = (rem11.Text)
rs("remark12") = (rem12.Text)
rs("remark13") = (rem13.Text)
rs("remark14") = (rem14.Text)
rs("remark15") = (rem15.Text)
rs("year7") = (summer1.co5.Text)
rs("elp3") = (summer1.elp3.Text)
rs("no3") = (summer1.no3.Text)
rs("final16") = (summer1.fin16.Text)
rs("final17") = (summer1.fin17.Text)
rs("final18") = (summer1.fin18.Text)
rs("final19") = (summer1.fin19.Text)
rs("final20") = (summer1.fin20.Text)
rs("re-xam16") = (summer1.re16.Text)
rs("re-xam17") = (summer1.re17.Text)
rs("re-xam18") = (summer1.re18.Text)
rs("re-xam19") = (summer1.re19.Text)
rs("re-xam20") = (summer1.re20.Text)
rs("unit16") = (summer1.unit16.Text)
rs("unit17") = (summer1.unit17.Text)
rs("unit18") = (summer1.unit18.Text)
rs("unit19") = (summer1.unit19.Text)
rs("unit20") = (summer1.unit20.Text)
rs("remark16") = (summer1.rem16.Text)
rs("remark17") = (summer1.rem17.Text)
rs("remark18") = (summer1.rem18.Text)
rs("remark19") = (summer1.rem19.Text)
rs("remark20") = (summer1.rem20.Text)
rs.Update
End If
rs.Close: Set rs = Nothing
con.Close: Set con = Nothing