Søgning på felt i listbox

Eksemepel - måske lidt inspiation:

Private Sub Form_Close()
    If Me.Controls("Liste6").ListCount > 0 Then
        For f = 0 To Me.Controls("Liste6").ListCount - 1
            Me.Controls("Liste6").RemoveItem Index:=0
        Next f
    End If
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim f
    Set PRec = CurrentDb.OpenRecordset("PostnrBy")
   
    For f = 1 To PRec.RecordCount
        Me.Controls("Liste6").AddItem CStr(PRec.Fields(0))
        PRec.MoveNext
    Next f
End Sub
Private Sub Tekst4_Change()
Dim tegn, f, linie
  tegn = Tekst4.Text
  Me.Controls("Liste6").SetFocus
   
    For f = 0 To Liste6.ListCount - 1
        Me.Controls("Liste6").ListIndex = f
       
        linie = Controls("Liste6").Value
       
        If tegn = Left(linie, Len(tegn)) Then
          Me.Controls("Liste6").ListIndex = f
            With Me.Controls("Tekst4")
                .SetFocus
                .SelStart = Len(linie)
                Exit Sub
            End With
        End If
    Next f
End Sub

Hej Supertekst

Tak for din besvarelse! Din kode giver desværre samme resultat. Der søges kun efter første karakter i listboxen - den kan ikke søge efter 3, 4, 5 karakterer.

Men jeg har da ladet mig inspirere af dit indlæg. Jeg slipper jo nok ikke for et ubundet tekstfelt. Det har jeg taget til mig, og herefter sender jeg så en sql streng til listboxens rowsourse, hvori jeg bruger funktionen Like. Så har jeg også ladet mig inspirere af din setfocus.

Jeg tror ikke, at der findes en løsning på mit problem. Jeg ville ønske, at det var lige som i explorer, hvor jeg kan stave mig frem til et fil- eller mappenavn - det ville have været optimal i min database.

Alligevel er jeg parat til at belønne din kommentar, da det jo er et spørgsmål, der ikke har været så mange kommentarer/svar til, og jeg skal videre i "teksten". Derfor Supertekst - læg venligst et svar - så får du pointene.

Hej mbpedersen

Du får et svar & tak!

Velbekomme.

Du skal nok acceptere svaret, hvis du vil give points :-)

Men iøvrigt - har eksperimenteret lidt mere og så vidt jeg kan se, kan det lade sig gøre ved at anvende en kombinationsboks og udennogen VBA-kode:

Egenskaber:
- Kontrolelementkilde: <tom>
- Rækkekildetype: Tabel/forespørgsel
- Rækkekilde: Den pågældende tabel
- BundetKolonne: 1
- BegrænsTilListe: Nej
- Autoudfyld: Ja