dropdownlist met alle records uit 1 kolom

Status
Niet open voor verdere reacties.

Barry_127

Gebruiker
Lid geworden
20 jan 2003
Berichten
478
hallo iedereen,

hoe maak ik een dropdownlist die alle records laat zien die er in een bepaald kolom staan (oh ja en de dubbele filterd :D)

en als het kan ook op A-Z volgorde

dus voorbeeld:
in DB staat in kolom X de volgende dingen:
YTREWQ
ASDFG
QWERTY
QWERTY

dan wil ik deze lijst in me drop downlist op deze volgorde zien:
ASDFG
QWERTY
YTREWQ
 
Geplaatst door Barry_127
hallo iedereen,

hoe maak ik een dropdownlist die alle records laat zien die er in een bepaald kolom staan (oh ja en de dubbele filterd :D)

en als het kan ook op A-Z volgorde

dus voorbeeld:
in DB staat in kolom X de volgende dingen:
YTREWQ
ASDFG
QWERTY
QWERTY

dan wil ik deze lijst in me drop downlist op deze volgorde zien:
ASDFG
QWERTY
YTREWQ
Ja, bij deze vraag raad ik je ook aan om een Datagrid-control te gaan gebruiken. Ik heb daarmee een hele databse applicatie gebouwd, maar weet niet meer of ik dat nog heb. Zal het helemaal opnieuw moeten beginnen. Misschien morgen dan?

Dennis.

P.S. Als je zo'n control op het form hebt staan, dan geef je een rechtsklik. Je ziet dan "Properties" en "Edit" staan. Met deze 2 items kun je veel doen.
 
simpele query maken die sorteert en filterd die de kolom die jij wil hebben

deze koppel je aant dropdown menu en klaar is kees
 
SELECT DISTINCT kolomnaam FROM tabelnaam;

Dat zou de truc moeten doen...
 
bedankt voor de reacties

ik ga in de loop van volgende week er aan werken (ik heb nu te druk met school)
 
Barry,

Je hebt een UserForm, met een ListBox met de naam:
LstNames. Deze code vult de listbox met de Unieke namen van de geselecteerde kolom:

Code:
Private Sub UserForm_Initialize()

    Dim rng As Range
    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
    Dim ColUniek As New Collection
    On Error Resume Next
    With LstNames
        Intersect(ActiveSheet.UsedRange, Selection).Select
        For Each rng In Selection
        If rng.Formula <> "" Then
            ColUniek.Add rng.Value, CStr(rng.Value)
        End If
        Next
        If ColUniek.Count > 0 Then
        For i = 1 To ColUniek.Count
            .AddItem (ColUniek(i))
        Next i
        
        x = .ListCount
        For i = 0 To x - 1
            For y = i + 1 To x - 1
                If .List(i) > .List(y) Then
                    .AddItem (.List(i))
                    .RemoveItem (i)
                    y = i
                End If
            Next
        Next
        End If

    End With

End Sub
Dit is een stukje code uit m'n invoegtoepassing:
15- ColumnFilter
te vinden op mijn website, zoals nog vele andere zaken:
http://users.skynet.be/onderland/Excel.htm#Addins

Luc
 
Laatst bewerkt door een moderator:
Heb je hier iets aan? Gemaakt door John Walkenbach.

Wiki
 

Bijlagen

Laatst bewerkt:
Wiki

Antwoorden op vragen van bijna 5 jaar oud nog altijd nuttig maar ik denk dat "huidige vragen" toch meer prioriteit hebben. In ieder geval bedankt voor de moeite :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan