[Tasos]

Καλησπέρα σε όλους!

Φίλε Παντελή καλωσόρισες στο φόρουμ!

Για να χρησιμοποιήσεις τις μεθόδους RemoveItem και AddItem, θα χρειαστεί να
ορίσεις την ιδιότητα του ListBox "RowsourceType" (Τύπος προέλευσης γραμμής)
στην τιμή "Λίστα τιμών".

Κατόπιν, θα πρέπει να δημιουργήσεις μια ρουτίνα με τη μέθοδο AddItem που θα γεμίσει τη λίστα με τα δεδομένα που σ ενδιαφέρουν.
Μόνο έτσι θα μπορέσεις να αφαιρέσεις δεδομένα με τη μέθοδο RemoveItem
Κάπως έτσι για παράδειγμα:

Option Compare Database
Option Explicit

Private Sub Form_Load()
    Dim strSQL$, xField As DAO.Field
    strSQL = "SELECT [Table1].[Field1] FROM [Table1] WHERE Not [Table1]." _
    & "[Field1] Is Null ORDER BY [Table1].[Field1]"
    With CurrentDb.OpenRecordset(strSQL)
        If .RecordCount > 0 Then
            Set xField = .Fields("Field1")
            .MoveFirst
            Do
                Me.list1.AddItem xField
                .MoveNext
            Loop While Not .EOF
        End If
        .Close
    End With
End Sub

Φιλικά

Τάσος