Tenhu muitos combos num form ... sendo que quero fazer uma function (sub) pra quando der LOAD no form .. executa-la e ela popule os combos ...

estou usando isso aqui ...

 

Sub popula(combo As ComboBox)
 
 Set usuarios = banco.OpenRecordset("SELECT nomeinteiro FROM usuarios ORDER BY nomeinteiro")
 
 Do While Not usuarios.EOF
    If usuarios!nomeinteiro <> Null Then
        combo.AddItem usuarios!nomeinteiro
    Else
        combo.AddItem " ERRADO "
    End If
Loop

End Sub

 

_----_-_--____---_-_--__---

 

Private Sub Form_Load()

     popula (cmb8boletim)

End Sub

 

quero mandar o nome do COMBO como parametro pq isso pode variar bastante jah q tenho diversos combos ... e ele adiciona os itens da tabela no combo q vier como parametro ... só que está dando erro de TYPE MISMATCH ... agora como eu faço ele executar o combo q vem como parametro ?

 

Alguém sabe o que estou fazendo errado ? por favor me ajudem ...

 

 Ninguem ?

 

 Do While Not usuarios.EOF
    If Not IsNull(usuarios!nomeinteiro) Then
        combo.AddItem usuarios!nomeinteiro
    Else
        combo.AddItem " ERRADO "
    End If
Loop

Olá

 

o que você deve fazer é setar a variável object com o controle desejado. Ex.:

Dim NomeCombo as Object

Set NOmeCombo = Combo1
Call Popula_Combo(NOmeCombo)

e a rotina onde o combo seria populado ficaria +- assim:

 

Private Sub Popula_Combo(Cmb As Object)
.

.

.

  With Cmb
   Do While Not usuarios.EOF
    If usuarios!nomeinteiro <> Null Then
        .AddItem usuarios!nomeinteiro
    Else
        .AddItem

 humnn... vo testar aqui gente .. .valew a ajuda ...