ERLEDIGT
JA
ANTWORTEN
9
ZUGRIFFE
34845
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
  1. #1
    Blaubmania ist offline Mitglied Gold
    Registriert seit
    Nov 2004
    Beiträge
    188
    Hi,

    kurz und bündig, wie leere ich ein Listenfeld bzw. wie lösche ich den Inhalt?! Das ganze soll unter VBA Access funktionieren! und dann nochn bischen Code der zum füllen des Listenfeldes dient.

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    
    Private Sub txtsucher_GotFocus()
    Dim db As Database
    Dim r As Recordset
    Dim i As Integer
    Dim j As Integer
     
    If Len(Me.txtsucher) > 2 Then
        Set db = CurrentDb
        Set r = db.OpenRecordset("Kunde", dbOpenDynaset)
        Me.lstkunden.ColumnCount = 4
        r.FindFirst "Nachname Like '" & Me.txtsucher & "*'"
        Do While r.NoMatch = False
            Me.lstkunden.AddItem r![Kunde-ID] & ";" & r![Nachname] & ";" & r![Vorname] & ";" & r![Gebaeude] & ";"
            r.FindNext "Nachname Like '" & Me.txtsucher & "*'"
        Loop
    End If
    End Sub
     

  2. #2
    Nirraven ist offline Mitglied Brokat
    Registriert seit
    Nov 2003
    Ort
    Tecklenburg (NRW)
    Beiträge
    257
    Aus der VBA Hilfe von Excel

    Entfernt eine Zeile aus der Liste eines Listenfeldes oder Kombinationsfeldes.

    Syntax

    Boolean = object.RemoveItem index

    Die Syntax für die RemoveItem-Methode besteht aus folgenden Teilen:

    Teil Beschreibung
    object Erforderlich. Ein gültiges Objekt.
    index Erforderlich. Gibt die zu löschende Zeile an. Die Nummer der ersten Zeile ist 0, die Nummer der zweiten Zeile ist 1 usw.


    Diese Methode entfernt keine Zeile aus der Liste, wenn das Listenfeld-Steuerelement (ListBox) an eine Datenbank gebunden ist (dies ist dann der Fall, wenn die RowSource-Eigenschaft eine Datenquelle für das Listenfeld-Steuerelement angibt).
     
    "Weeks of programming saves days of planning"

  3. #3
    Blaubmania ist offline Mitglied Gold
    Registriert seit
    Nov 2004
    Beiträge
    188
    Thx nach ein bischen rumprobieren ahb iche s nun auch endlich hingekriegt der Abschluss sieht nun so aus

    Code vb:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    
    Private Sub txtsucher_GotFocus()
    Dim db As Database
    Dim r As Recordset
    Dim i As Integer
    Dim j As Integer
     
    If Me.lstkunden.ListCount > 0 Then
        i = 0
        j = Me.lstkunden.ListCount - 1
        Do Until i > j
            Me.lstkunden.RemoveItem (j - i)
            i = i + 1
        Loop
    End If
     
    If Len(Me.txtsucher) > 2 Then
        Set db = CurrentDb
        Set r = db.OpenRecordset("Kunde", dbOpenDynaset)
        Me.lstkunden.ColumnCount = 4
        r.FindFirst "Nachname Like '" & Me.txtsucher & "*'"
        Do While r.NoMatch = False
            Me.lstkunden.AddItem r![Kunde-ID] & ";" & r![Nachname] & ";" & r![Vorname] & ";" & r![Gebaeude] & ";"
            r.FindNext "Nachname Like '" & Me.txtsucher & "*'"
        Loop
    End If
    End Sub
     

  4. #4
    deepthroat ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Jun 2005
    Beiträge
    8.731
    Hi.

    Ich weiß nicht ob das auch für VBA gilt, aber in VB kann man die Methode Clear auf eine ListBox bzw. ComboBox anwenden:
    Code vb:
    1
    
    listbox1.Clear
    Gruß
     
    If at first you don't succeed, try again. Then quit. No use being a damn fool about it.

  5. #5
    Blaubmania ist offline Mitglied Gold
    Registriert seit
    Nov 2004
    Beiträge
    188
    Zitat Zitat von deepthroat
    Hi.


    Ich weiß nicht ob das auch für VBA gilt, aber in VB kann man die Methode Clear auf eine ListBox bzw. ComboBox anwenden:vb Code:
    [LEFT]
    1. listbox1.Clear

    [/LEFT]


    Gruß
    Geht in VBA leider nicht oder zumindest ned bei Access habs auch in nem VBA Buch gelesen das man so alles löschen kann aber konnte Clear ned ansprechen.
     

  6. #6
    Nirraven ist offline Mitglied Brokat
    Registriert seit
    Nov 2003
    Ort
    Tecklenburg (NRW)
    Beiträge
    257
    Die leichtesten Sachen überseh/vergesse ich immer

    Klar gibts clear.
    Ich sollte mehr mit Listboxen arbeiten.
     
    "Weeks of programming saves days of planning"

  7. #7
    Blaubmania ist offline Mitglied Gold
    Registriert seit
    Nov 2004
    Beiträge
    188
    Zitat Zitat von Nirraven
    Die leichtesten Sachen überseh/vergesse ich immer

    Klar gibts clear.
    Ich sollte mehr mit Listboxen arbeiten.
    Ja geben schon aba wie kriegen?! wenn ich "Me.lstkunden." eingebe dann bietet er mir in de rListe aber kein Clear an sonst hätte ich es ja schon längst angewendet
     

  8. #8
    Nirraven ist offline Mitglied Brokat
    Registriert seit
    Nov 2003
    Ort
    Tecklenburg (NRW)
    Beiträge
    257
    Ich korrigiere mich:

    cler ist eine Methode vom ListBox Steuerelement in VBA Excel.
    In VBA Access nicht.
    Also bleibt wohl nur RemoveItem
     
    "Weeks of programming saves days of planning"

  9. #9
    Blaubmania ist offline Mitglied Gold
    Registriert seit
    Nov 2004
    Beiträge
    188
    Zitat Zitat von Nirraven
    Ich korrigiere mich:

    clear ist eine Methode vom ListBox Steuerelement in VBA Excel.
    In VBA Access nicht.
    Also bleibt wohl nur RemoveItem
    Joar aba ist ja auch schnell gemacht mit na Schleife
     

  10. #10
    deepthroat ist offline Mitglied Diamant
    tutorials.de Premium-User
    Registriert seit
    Jun 2005
    Beiträge
    8.731
    Anscheinend wurde die Clear Methode aus VBA Access entfernt (in Access97 war sie wohl noch drin). Man kann's aber auch so machen:
    Code vb:
    1
    
    Listbox1.RowSource = vbEmptyString

    Gruß
    Geändert von deepthroat (19.07.06 um 11:48 Uhr)
     
    If at first you don't succeed, try again. Then quit. No use being a damn fool about it.

Ähnliche Themen

  1. Access 2007: Inhalt von Listenfeld per Dropdown ändern
    Von xout im Forum Relationale Datenbanksysteme
    Antworten: 0
    Letzter Beitrag: 28.04.08, 21:24
  2. Antworten: 1
    Letzter Beitrag: 01.04.06, 10:11
  3. Excel: Formular->Listenfeld (Listbox)
    Von Ceppi im Forum Office-Anwendungen
    Antworten: 4
    Letzter Beitrag: 15.03.06, 19:20
  4. vb Listenfeld nach Access Listenfeld
    Von c0si im Forum Visual Basic 6.0
    Antworten: 0
    Letzter Beitrag: 22.02.05, 09:39
  5. Listbox Inhalt leeren
    Von osswood im Forum Visual Basic 6.0
    Antworten: 8
    Letzter Beitrag: 17.10.04, 20:30