CRIAR COMBOBOX DE FORMA DINAMICA

USUARIO.EXCLUIDOS 06/08/2007 17:15:01
#229697
Boa tarde

Preciso inserir Alguns ComboBox dentro de um Formulario de acordo com consultas efetuadas em uma base de dados..

Alguém poderia me explicar como poderia fazer isso?

Obrigado
USUARIO.EXCLUIDOS 06/08/2007 17:23:11
#229699
dim comboA as combobox

set comboA = new combobox

comboA.additem "primeira linha do combo"
USUARIO.EXCLUIDOS 06/08/2007 17:23:51
#229700
tenta assim

vc tem que da um loop na tabela
USUARIO.EXCLUIDOS 06/08/2007 17:36:11
#229701
No VBA e declaro a variavel como ComboBox

mas na horade dar set ele não exibe o ComboBox na lista

Por que será?
USUARIO.EXCLUIDOS 06/08/2007 17:46:39
#229703
mada o seu codigo para mim da uma olhada cara

USUARIO.EXCLUIDOS 06/08/2007 17:56:10
#229705
tai velho 


Private Sub UserForm_Initialize()

  Dim i As Integer
  
  Dim ComboA As ComboBox

  Call PreencheDia
  Call PreencheMes
  Call PreencheAno
  
  Set NovaConexao = Conexao("adsystemfinance", "finance")
  
  TSQL = "select distinct cliente from view_FaturamentoClienteProduto " & _
         "where tipo = 'MÍDIA' and " & _
         "dataemissao between '20070101' and '20071231'"
             
  Set Reg = New ADODB.Recordset
   
  Reg.Open TSQL, NovaConexao
      
  Do Until Reg.EOF
   Lb_Clientes.AddItem (UCase(Reg(0)))
   With ComboA
    .AddItem Reg(0)
     End With
   
   
  
  
    Reg.MoveNext
  Loop
  Reg.Close
  NovaConexao.Close
  
  
  
  
 End Sub
USUARIO.EXCLUIDOS 06/08/2007 18:04:10
#229707
Sub PreencherCombobox
Dim Tsql As String, Reg As New ADODB.Recordset
TSQL = "select distinct cliente from view_FaturamentoClienteProduto " & _
"where tipo = 'MÍDIA' and " & _
"dataemissao between '20070101' and '20071231'"
Reg.Open sql, Cnn, adOpenForwardOnly,adLockReadOnly

Do While Reg.EOF = False

Me.distinct.addItem Reg!cliente
Me.distinct.ItemData(Me.distinct.NewIndex) = Reg!distinct

Reg.MoveNext
Loop
Reg.Close
end sub
USUARIO.EXCLUIDOS 07/08/2007 10:00:15
#229758
Me Perdoem pessoa..
Na realidade nãoé ComboBox e sim CheckBox...
Eu viajei no nome do controle...
Alguém saberia como eu posso adicionar varios CheckBox dinamicamente para os registros que eu listar na base de dados?

Obrigado!
USUARIO.EXCLUIDOS 07/08/2007 10:03:32
#229760
zenfra é do mesmo jeito, essa regra é pra qualquer componente

dim check as checkbox

set check = new checkbox

check.additem "teste"
USUARIO.EXCLUIDOS 07/08/2007 10:13:26
#229763
zenfra é do mesmo jeito, essa regra é pra qualquer componente

dim check as checkbox

set check = new checkbox

check.additem "teste"
USUARIO.EXCLUIDOS 07/08/2007 10:17:05
#229766
Só não estou entendendo o porque quando eu declaro
uma variavel do tipo checkbox e vou instancias o checkbox com o
set ( set Check = new checkbox) não é exibido o checkbox na lista de objetos ou tipos..
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar