[Resolvido]Problemas ao atualizar e salvar campo no formulário

Bom dia a todos,

              Estou com uma dúvida no meu BD, criei um formulário onde há uma caixa de seleção,CB_Encarregado, com a função de preencher automaticamente uma caixa de texto, Matrícula_Encarregado, através do código.

Private Sub CB_Encarregado_Nome_AfterUpdate()
Matrícula_Encarregado = CB_Encarregado_Nome.Column(1)
End Sub

contudo quando passo para o próximo registro, mesmo a caixa de seleção tendo outro nome, o campo de preenchimento automático, Matrícula_Encarregado, não altera o campo automaticamente, mantendo os dados do registro anterior e caso eu mude o nome o campo atualiza, mas quando volto para o registro anterior a caixa de texto não atualiza.

Assim eu vejo duas soluções possíveis, das quais não consigo executar.

Opção 1 - Em código fazer com que quando mudar de registro o campo, Matrícula_Encarregado, atualize automaticamente de acordo com o nome que esta na caixa de combinação.

Opção 2 -  ( o que é o melhor para o meu BD) Tentei vincular outra caixa de texto, chamada de Versão2, a esta primeira, Matrícula_Encarregado, que esta dando problemas, contudo esta nova caixa de texto salvaria os dados na tabela do formulário, só que não consigo fazer com que a caixa, Versão2, atualize no momento que a Matrícula_Encarregado recebe os dados da coluna 2 da Matrícula_Encarregado.

Alguém poderia por favor me ajudar a resolver este problema?

Segue cópia do BD


Desde já agradeço a todos.

Felipe

Confundiu o nome da caixa de combinação (combobox) por caixa de seleção.

Veja que a caixa de texto Matricula do encarregado está sem a Fonte do controle, por isso que ele não muda a matricula

ao mudar de registro.

E o código correto é:

Me.Matrícula_Encarregado = Me.CB_Encarregado_Nome.Column(1)

[ ]'s

Opa me desculpa, acabei confundindo mesmo o nome, mas muito obrigado, na verdade não estava dando certo por outro motivo, o campo da tabela estava como número, bastou trocar para texto e funcionou, muito obrigado pela ajuda.

Exato

Esqueci de mencionar, isso


Gosto quando quem pergunta, descobre o problema por si mesmo!


Parabéns!


Boa sorte!

Vou aproveitar e abusar um pouco mais do seu conhecimento, existe no campo CB_Encarregado_Nome, como origem da linha uma pesquisa com mais dois campos, contudo não estou conseguindo fazer com que eles autocompletem igual a matrícula. Gostaria de saber onde eu errei o código,

Private Sub CB_Encarregado_Nome_AfterUpdate()
Me.Matrícula_Encarregado = Me.CB_Encarregado_Nome.Column(1)
Me.UNIDADE_ATUAÇÃO = Me.CB_Encarregado_Nome.Column(2)
Me.PATENTE = Me.CB_Encarregado_Nome.Column(3)
End Sub


Ja tentei tudo e nada,

No exemplo que enviou não tem a caixa de controle  Patente

Bem, veja essa campo na tabela de cadastro:

Posto/Graduação

e na mensagem consta:

Me.UNIDADE_ATUAÇÃO = Me.CB_Encarregado_Nome.Column(2)

Tome cuidado ao determina os nomes dos controles

Talvez seja essa divergência com os nomes.

Caso n seja isso, anexe novamente o teu aplicativo com os demais controles no formulário.

Uma última dica:

Não utilize espaços em nomes de controles



[ ]'s

Realmente o problema não era os nomes não, fiz todas conferências e o campo não preenche, se você puder fazer a gentileza de dar uma olhada para mil, segue abaixo o BD.


Muito obrigado pela ajuda.

Felipe

Estou enviando teu exemplo modificado

Compare os nomes de alguns campos das tabela.

Procure manter um padrão nos nomes de controles, assim não irá se perder.

Veja na folha de propriedades da combobox que vc não definiu as colunas dela.

Numero de colunas e Larguras das colunas, veja que coluna com tamanho zero ( 0 ) não é exibida.

[ ]'s

Muito obrigado pela ajuda deu tudo certo, vou levar em conta a sua dica e começar a criar regras de nomeação.


até uma próxima

Ótimo !

Valeu o retorno!


Boa sorte e Festas!