Listbox error handling

[AABE]

Geacht forum,


ik heb een listbox in excel en ik krijg vanuit een database een waarde.
Deze cursor moet op deze waarde in de listbox gaan staan.
Als de waarde er niet is krijg ik een foutmelding.

Ik denk deze als volgt op te lossen;

Ben ik hier op de goede weg? Indien ja, wat woor type moet ik bij de ??? zetten.

mvg,

Aat

Private Sub UserForm_Initialize()

dim x as ???

Set x = UserForm1.ListBox1.Value = "waarde uit db"
If Not x Then
     UserForm1.ListBox1.Value = "waarde uit db"
else
     UserForm1.ListBox1.Value = ""
End If

End Sub

 

[snb]

Hoe krijgt de listbox waarden toegekend ?

Private Sub UserForm_Initialize()
  ListBox1.list = ?????
End Sub

 

[AABE]

Hoe krijgt de listbox waarden toegekend ?

Private Sub UserForm_Initialize()
  ListBox1.list = ?????
End Sub

De listbox wordt gevuld vanuit een SQL database;

    '' Open the connection.
    Set cnn = New ADODB.Connection
    cnn.Open ctPath
   
    '' Set the command text.
    Set cmdCommand = New ADODB.Command
    Set cmdCommand.ActiveConnection = cnn

    vtSql = "" 
    vtSql = vtSql & " select User_Name"
    vtSql = vtSql & " from " & tbl
    
    With cmdCommand
        .CommandText = vtSql
        .CommandType = adCmdText
        .Execute
    End With
    
    '' Open the recordset.
    Set rstRecordSet = New ADODB.Recordset
    Set rstRecordSet.ActiveConnection = cnn
    rstRecordSet.Open cmdCommand
    
    rsttemp = rstRecordSet.GetRows()
   
    '' Add data in ListBoxUser	
    With ListBoxUser
        .BoundColumn = 1
        .ColumnCount = 1
        .Column = rsttemp
        .ListIndex = -1
    End With

 

[snb]

Een listbox kan alleen maar de waarde krijgen van 1 van de waarden in de listbox zelf.
Als er nieuwe waarden mogelijk moeten zijn gebruik dan een combobox.

Foutmeldingen kun je onderdrukken met On error resume next.

vooraf testen kan met

sq=Listbox1.list
if ubound(filter(sq,"waarde"))=-1 then exit sub

 

[AABE]

Een listbox kan alleen maar de waarde krijgen van 1 van de waarden in de listbox zelf.
Als er nieuwe waarden mogelijk moeten zijn gebruik dan een combobox.

Foutmeldingen kun je onderdrukken met On error resume next.

vooraf testen kan met

sq=Listbox1.list
if ubound(filter(sq,"waarde"))=-1 then exit sub

Daar zocht ik naar...... bedankt....

mvg,

Aat

 

[AABE]

Daar zocht ik naar...... bedankt....

mvg,

Aat

Ik krijg een type mismatch, runtime error 13... wat doe ik niet goed?