25. september 2012 - 11:06Der er
9 kommentarer og 1 løsning
Listboks udfylde og slette
Jeg har en form, hvor jeg har et felt hvor jeg skriver et søgekriterier. Derefter trykker jeg på en knap for at udfylde min listbox. Jeg bruger følgende kode.
Dim mydb As DAO.Database Dim rstVare1 As DAO.Recordset Set mydb = CurrentDb() If Me!SoegeKrit <> "" Then 'OK der kan arbejdes Set rstVare1 = mydb.OpenRecordset("SELECT * FROM [T_Varer]WHERE [Varenavn] Like '*" & Me!SoegeKrit & "*'") If Not rstVare1.EOF Then rstVare1.MoveFirst Do While Not rstVare1.EOF SoegRes.AddItem rstVare1!Varenummer SoegRes.AddItem rstVare1!Varenavn rstVare1.MoveNext Loop End If End If
Den fylder listboksen, men ikke i 2 kolonner, som jeg gerne vil have.
Når listboksen er fyldt, vælges et element og formularen udfyldes, derefter vil jeg gerne have alle elementer i listboksen slettet, så den er klar til næste gang.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.