[Resolvido]Limite de campos na combo

Bom dia amigos!

Estou com um pequeno problema que é o seguinte:
a combo tem um limite de conter apenas 20 campos da tabela/consulta de origem. Tem como aumentar este limite?

Limite de apenas 20 campos? Você se refere às colunas da combo?

Isso criquio...quando vou colocar pra combo buscar um determinado "valor" em uma tabela pra salvar em um determinado campo ela só me dá um limite de 20, sendo que estou precisando de uns 40.
Ou seja, quando eu digitar o código na combo ela busca varios valores em outra tabela, mas só esta me dando um limite de 20 retornos. (espero que tenha dado pra entender - se não pergunte de novo que a gente vai tentando, rsrs)

Olha aí criquio estou usando este código aí pra buscar, mas só aceita até 20:

Private Sub OrdemEmpresa_AfterUpdate()
Me.RazaoSocialEmpresa = Me.OrdemEmpresa.Column(1)
Me.NomeFantasiaEmpresa = Me.OrdemEmpresa.Column(2)
Me.Endereco = Me.OrdemEmpresa.Column(3)
Me.Numero = Me.OrdemEmpresa.Column(4)
Me.BAIRRO = Me.OrdemEmpresa.Column(5)
Me.CEP = Me.OrdemEmpresa.Column(6)
Me.Fone = Me.OrdemEmpresa.Column(7)
Me.Fax = Me.OrdemEmpresa.Column(
Me.Municipio = Me.OrdemEmpresa.Column(9)
Me.Uf = Me.OrdemEmpresa.Column(10)
Me.Email = Me.OrdemEmpresa.Column(11)
Me.CgcCnpj = Me.OrdemEmpresa.Column(12)
Me.CodAtividade = Me.OrdemEmpresa.Column(13)
Me.InscrEstadual = Me.OrdemEmpresa.Column(14)
Me.InscrMunicipal = Me.OrdemEmpresa.Column(15)
Me.Representante = Me.OrdemEmpresa.Column(16)
Me.Mae = Me.OrdemEmpresa.Column(17)
Me.Cargo = Me.OrdemEmpresa.Column(18)
Me.Profissao = Me.OrdemEmpresa.Column(19)
End Sub

Uma saída pode ser colocar mais de um campo por coluna separados por ponto e vírgula( ; ) ou um pipe(|) e depois usar o Split para separá-los e jogá-los nos campos. Nesse caso, poderia até usar uma coluna apenas, alimentando-a via vba:

Código:

Do While Not rs.EOF

For I = 0 To 40

If I = 0 Then
    Me.NomeDaCombo.AddItem rs(I)
Else
    Me.NomeDaCombo.AddItem "|" & ";" & rs(I)
End If

Next

rs.MoveNext

Loop

Agora, bastará usar o Split para separar os campos.

Onde eu coloco este código aí?
Eu terei que fazer uma sequência de códigos deste aí para cada campo, ou este aí serve para todos?

Um só para todos. Nesse caso, estou supondo que os campos da tabela que você precisa estão na sequência. Esses campos tem um índice na tabela igual o índice das colunas de uma combo ou listbox. Se você tem 40 campos na tabela, eles tem índice de 0 a 39. A variável I representa esse índice. Quando colocamos For I = 0 To 39, estamos dizendo Para I igual a zero até trinta e nove. Quando colocamos Me.NomeDaCombo.AddItem(I), estamos pedindo para adicionar o campo representado pelo I. O Next faz com que o I vá para o próximo campo e então será inserido o valor do próximo campo até chegar em 39.

OBS.: Na função que passei acima, aonde estava T, o correto é I. Acabei colocando errado porque estou trabalhando em um aplicativo e estava utilizando essa variável em um função.

Já foi alterado no referido post.

Pensando bem, você tem outras opções sem precisar colocar os campos na combo. Por exemplo, utilizando o DLookup:

Me.Campo1DoForm = DLookup("Campo1DaTabela", "NomeDaTabela", "Código=" & Me.Código)
Me.Campo2DoForm = DLookup("Campo2DaTabela", "NomeDaTabela", "Código=" & Me.Código)
Me.Campo3DoForm = DLookup("Campo3DaTabela", "NomeDaTabela", "Código=" & Me.Código)

Como você tem muitos campos, pode tambem reduzir as linhas de código, se os campos do formulário tiverem o mesmo nome dos campos da tabela. Nesse caso, utilize a linha "Marca" da aba "Outra" das propriedades dos campos envolvidos, colocando, por exemplo, a letra S nessa linha e depois utilize algo assim:

Código:

Dim C As Control

For Each C In Me.Controls
    If C.Tag = "S" Then
        C = DLookup("" & C & "", "NomeDaTabela", "Código=" & Me.Código
    End If
Next

Não testei, mas é por aí. Com algumas pequenas adaptações deve funcionar.

Obrigado criquio...agora só pra concluir, onde eu ponho esse código (o primeiro que você me passou)?

No lugar do seu.

coloquei tambem em origem da linha da seguinte forma:

SELECT EMPRESAPJ.OrdemEmpresa|EMPRESAPJ.RazaoSocialEmpresa| EMPRESAPJ.NomeFantasiaEmpresa| EMPRESAPJ.Endereco| EMPRESAPJ.Numero, EMPRESAPJ.Bairro|EMPRESAPJ.Cep| EMPRESAPJ.Fone| EMPRESAPJ.Fax| EMPRESAPJ.Municipio| EMPRESAPJ.Uf| EMPRESAPJ.Email| EMPRESAPJ.CgcCnpj| EMPRESAPJ.CodAtividade| EMPRESAPJ.InscrEstadual| EMPRESAPJ.InscrMunicipal| EMPRESAPJ.Representante|empresapj.mae|empresapj.cargo|empresapj.profissao|

...mas da erro.

...e aquele código que você passou anteriormente coloquei em após atualizar.

...Ainda continuo precisando de ajuda amigos.

Os Campos da tabela tem o mesmo nome dos campos do formulário? Se tiver, tente a minha última dica:

Código:

Dim C As Control

For Each C In Me.Controls
    If C.Tag = "S" Then
        C = DLookup("" & C.Name & "", "NomeDaTabela", "Código=" & Me.Código
    End If
Next

Não se esquecendo de colocar um S na linha Marca da aba Dados de cada um dos campos envolvidos.

Boa tarde Criqui!

Onde coloco este código?

No evento "Após atualizar" da combo OrdemEmpresa. Mas lembre-se que para esse caso, os nomes dos campos do formulário devem coincidir com os nomes dos campos da tabela e os campos do formulário envolvido no processo devem ter o "S" na Marca, conforme mencionei.

Bom dia amigos!

Coloquei desta forma em após atualizar:

Private Sub OrdemEmpresa_AfterUpdate()
Dim C As Control

For Each C In Me.Controls
If C.Tag = "S" Then
C = DLookup("" & C.Name & "", "EMPRESAPJ", "Código=" & Me.Código
End If
Next
End Sub

Coloquei na propriedade do campo em marca a letra "S" (isso no campo do formulário destino).

...Mas esta dando erro.
Onde eu errei?

Que erro que dá? Depura para alguma linha do vba? Se sim, qual? Sempre que ocorrer erro, informe todos os detalhes sobre o mesmo para ajudar a entender aonde ele ocorreu.

Os nomes dos campos do formulário são os mesmos da tabela?

O erro que dá é o seguinte:

Private Sub OrdemEmpresa_AfterUpdate() <----- esta parte aí fica em amarelo

C = DLookup("" & C.Name & "", "EMPRESAPJ", "Código=" & Me.Código <------esta para aí fica em azul

Sim, os nomes do formulário(destino) são os mesmo da tabela(origem).

Antes de tudo aparece a janela:

"erro de comilação:
erro de sintaxe"

... "Código=" & Me.Código

Esse campo Código seria o nome do campo da chave primária. O nome dele é Código mesmo? E no formulário tambem o nome dele é Código?

Se sim, execute o procedimento novamente e quando depurar, vá passando o mouse em cima dos nomes de campos, tabela, etc e veja se os valores que irão surgindo estão corretos.

Criquio...

era isso realmente, a chave primária era "OrdemEmpresa"(mudei, e um parentesezinho ")" que faltava no final da expressão). Mudei, deu certinho.

Criquio...você é o cara!!!
Muitissimo obrigado!

Grato pelo retorno. O fórum agradece.