This code is probably the cause:
Code:
Me.lst_kanji.RowSourceType = "Table/Query"
Me.lst_kanji.RowSource = "SELECT core_meaning, kanji, Right(Space(7) & strokes, 7), on_kun_yomi, romaji, " & _
"Right(Space(11) & frequency, 11), pos, tagged FROM tbl_kanji"
Resetting the row source property of list box is very similar to requerying a list box.
Before you run the above code you will need to save the the current selection(s). After the above code runs you will then need to run VBA code to reselect the items if they exist in the new row source.
Boyd Trimmell aka Hitechcoach
Microsoft Access MVP
Started with Access 2.0. Now using the latest version of Access.