vba - How to search a record using find next method -

vba - How to search a record using find next method -

i have multiple records same client number , using find next method search next record client number same. code search 2nd record , not go 3rd or 4th search same client number. below code can please help

private sub command114_click() dim db dao.database dim rs1 dao.recordset dim pn long set db = currentdb() set rs1 = db.openrecordset("application", dbopendynaset) if (text85 & vbnullstring) = vbnullstring msgbox "please come in business relationship no/cif" else pn = me.text85.value rs1.findnext "[cus_number] = " & pn if rs1.nomatch msgbox ("sorry accountno/cif not found") else me.s_no = rs1.fields("sno").value me.cus_name = rs1.fields("cus_name").value me.app_level1 = rs1.fields("app_level1").value me.app_level2 = rs1.fields("app_level2").value me.app_level3 = rs1.fields("app_level3").value me.dec_level1 = rs1.fields("dec_level1").value me.dec_level2 = rs1.fields("dec_level2").value me.dec_level3 = rs1.fields("dec_level3").value me.com_level1 = rs1.fields("com_level1").value me.com_level2 = rs1.fields("com_level2").value me.com_level3 = rs1.fields("com_level3").value me.date1 = rs1.fields("date1").value me.date2 = rs1.fields("date2").value me.date3 = rs1.fields("date3").value end if end if rs1.findnext "[cus_number] = " & pn set rs1 = nil end sub

i assuming functionality want alter instances (2, 3, 4 etc.) values entered. remove (the 1 near end, after end if):

rs1.findnext "[cus_number] = " & pn

and set findnext loop maintain on finding , updating records until there nomatch:

rs1.findnext "[cus_number] = " & pn if rs1.nomatch msgbox ("sorry accountno/cif not found") else until rs1.nomatch me.s_no = rs1.fields("sno").value me.cus_name = rs1.fields("cus_name").value me.app_level1 = rs1.fields("app_level1").value me.app_level2 = rs1.fields("app_level2").value me.app_level3 = rs1.fields("app_level3").value me.dec_level1 = rs1.fields("dec_level1").value me.dec_level2 = rs1.fields("dec_level2").value me.dec_level3 = rs1.fields("dec_level3").value me.com_level1 = rs1.fields("com_level1").value me.com_level2 = rs1.fields("com_level2").value me.com_level3 = rs1.fields("com_level3").value me.date1 = rs1.fields("date1").value me.date2 = rs1.fields("date2").value me.date3 = rs1.fields("date3").value rs1.findnext "[cus_number] = " & pn loop end if

in general, though, i'm not sure looking do. looking update recordset latest info on form? code have overwrite current values on form lastly set of found values in recordset. have thought want opposite...

vba ms-access-2010