[Resolvido]Erro 3163 - Formulário

Prezados,

Estou adicionando um campo de uma "combo" para um subformulário.
Ex: Me!Campo = Me!Combo.Column(1).
Os campos são correspondentes, porém ocorre um erro "3163" - "O campo é muito pequeno para aceitar a quantidade de dados que você tentou adicionar. Tente inserir ou colar menos dados."
O campo da tabela está definido como texto e no subformulário está como texto sem formatação.
Como alterar o tamanho do campo receptor para resolver o problema?

Obrigado!

Ismailton

O campo da tabela está definido como texto e no subformulário está como texto sem formatação

Precisamos saber se:

Me!Campo é texto em uma tabela ? Essa é a tabela onde pretende gravar o dado da combo, certo?
Me!Combo.Column(1) - que tipo de campo é a segunda coluna da combobox (column(1))?

Lembrando que muitos pecam ao definir as colunas das combo e listboxes;
Se a consulta ou tabela da origem da linha da combo tiver 5 campos (Colunas), as colunas iniciam com 0 até 4, e geralmente a primeira coluna (0) é o código do registro.

Verifique se Column(1) é uma coluna tipo texto,

Abraços

Prezado Balem,

Obrigado pela atenção.
Tenho 03 tabelas;
tbbco - campos: cod(chave); codbco(tp tx); nomebco(tb tx);
tbcta - campos: cod(chave); codbco(tp tx); ag(tp tx); cta(tp tx); ltcre, cat... etc;
tbmov - campos: nummov(chave); codbco(tp tx); ag(tp tx); dtmov(tp dt); entradas(tp num); saidas(tp num); hist(tp tx).

No formulário "cadastro de contas" uso uma combo que consulta a "tbbco" e apresenta a coluna "nomebanco", seleciona o banco, adiciona o "codbco" no campo de "Código" subformulário e os demais campos serão digitados e gravados na "tbcta".

No formulário "movimento" uso uma combo que consulta a "tbcta" e apresentas as colunas "codbco", "ag" e "cta", seleciona e adiciona nos campos "Banco", "Ag", "Conta" do subformulários e os demais campos serão digitados e gravados na "tbmov".
Na primeira combo são 3 colunas e na segunda 4 colunas tipo texto exceto a chave. No subformulário onde são adicionados
os dados da combo, estão com o formato texto sem formatação.

At.

Ismailton

Por favor, coloque o código que está usando, não genericamente como o fez da primeira vez, mas com os nomes reais.

Assim com os dados já passados, talvez consigamos descobrir onde "tá pegando".

Abraços

Balem,

No evento após atualização:
Private Sub cbopesquisa_AfterUpdate()
Me!cdobco = Me!cbopesquisa.Column(1)
Me!ag = Me!cbopesquisa.Column(2)
Me!cta = Me!cbopesquisa.Column(3)
Me!cbopesquisa = Null
Me!dtmov.SetFocus
End Sub

O erro ocorre no campo "ag". O primeiro "cdobco" está adicionando corretamente.
Utilizando a "Verificação Imediata", o campo "ag" está em branco e o Me!cbopesquisa.Column(2)contém o número da agência do banco selecionado. Há alguma divergência entre a coluna 2 da combo e o campo "ag" do formulário que está provocando o erro.

At.

Ismailton

Primeiro, desculpe estar retornando agora.
O monitor do meu pc pifou ontem e por sorte, foi só um capacitor que estourou.
Levou a manha toda para consertar, o conserto era simples, o problema foi abrir e fechar
o monitor de LCD.

Voltando ao teu dilema:

Creio que o problema está na origem de linha da tua combobox.
Se for consulta:
Verifique os campos, o primeiro campo deve ser codchave "column(0)", segundo campo cdBanco "Column(1)", etc..

Se for tabela, então fica fácil dizer que o erro está ai.

Veja que na tabela de Bancos (tbbco), não tem o campo Agencia, o que deveria ter, pois é a tabela onde tem todos os dados de um banco.
Não tenho ideia de onde povoa a coluna(2), se for o que penso, na realidade ela está colocando o nome do banco, dai então o erro.
Adicione esse campo e acerte a origem da linha.
Fico no aguardo.

Balem,

Imagina, fico grato pela sua atenção. Ainda bem que seu problema não foi grave, pois quando pifa nossos equipamentos ficamos imaginado algo grave, principalmente os custos do conserto.
Quanto ao meu problema,aconteceu o seguinte:
Como o campo agência contém dígito, exemplo "1234-5", gravei um registro sem o hífen, "12345" e não ocorreu erro, gravando o registro normalmente.
Fiquei mais intrigado, pois o campo "cta" também tem hífen e não ocorreu erro no campo da conta com hífen, isto é, no mesmo registro. Ocorre erro somente no campo agência e os campos são do mesmo tipo, isto é, todos são texto.
Não entendo o motivo do erro no campo agência.
Criei a tabela "tbbco" para facilitar no cadastro das contas. A tabela "tbcta" são gravados todos os dados da conta bancária, pois, posso ter diversas agências e contas para o mesmo banco.

At.

Certo Ismailton

Você tem toda razão, não lembrei de que um banco tem várias agências.

Faça o seguinte:

Apague esse campo agencia da tabela e faça outro novamente, talvez "funfe".

Estou aguardando...

Ismailton,

isso ocoree porque o campo que esta recebendo o valor foi configurado por vc, LÁ NA TABELA, com o tamanho de 4 ao inves de 6 ou mais.

Acesse então a tabela, origem deste campo que recebe o valor, e altere a propriedade TAMANHO de 4 para 6 ou mais.

Sucesso!

Balem,

Já realizei sua sugestão antes e não obtive sucesso, continou com erro.
Minha solução agora é criar uma nova tabela e testar.

At.

Verificou o tamanho do campo da tabela, conforme sugeriu o Avelino?

Balem,

Não tinha verificado a contribuição de Avelino.
Mestre Avelino matou a charada. Estava alterando na tabela errada, quando o correto seria a tabela receptora do campo.
Pensei que o problema era no campo do formulário.
São displicências de iniciante. Afinal, o erro é parte do aprendizado.
Com a coletânea do Mestre Avelino vou aprender muito.
Gratos a todos.

Ótimo
Obrigado pelo retorno.

Boa sorte !!