Retornando números

No evento após atualizar, tenho o seguinte código:
A dúvida é a seguinte, quando digitado no campo txtCodigoProcesso esta me retornando numeros ao inves de texto, alguêm poderia me ajudar?
As tabelas já estão definidas como texto curto.
Abaixo imagem




Private Sub txtCodigoProcesso_AfterUpdate()

   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim strSQL As String
   
   Set db = CurrentDb()
   strSQL = "SELECT Data, TemaTreinamento, Duracao, Instrutor, Projeto FROM Consulta_Processos WHERE idCodigoProcesso = '" & Me.txtCodigoProcesso.Value & "'"
   Set rs = db.OpenRecordset(strSQL)
   
   If Not rs.EOF Then
       Me.txtData.Value = rs("Data").Value
       Me.txtTemaTreinamento.Value = rs("TemaTreinamento").Value
       Me.txtDuração.Value = rs("Duracao").Value
       Me.txtInstrutor.Value = rs("Instrutor").Value
       Me.txtProjeto.Value = rs("Projeto").Value
   Else
       'Caso o código não seja encontrado, limpa os campos do formulário
       Me.txtData.Value = ""
       Me.txtTemaTreinamento.Value = ""
       Me.txtDuração.Value = ""
       Me.txtInstrutor.Value = ""
       Me.txtProjeto.Value = ""
       MsgBox "O número do processo não foi encontrada na Base de Dados."
   End If
   
   rs.Close
   Set rs = Nothing
   Set db = Nothing
   
End Sub

Olá Wagner,
A instrução SQL para carregar o recordset foi feita baseada em uma consulta, que deve tem algumas tabelas relacionadas.
Provavelmente, vc está selecionando campos códigos e não a descrição dos respectivos campos.
Por gentileza, nos envie uma cópia do seu bd para análise e solução do problema.

Att,

Alexandre Fim

Alexandre, Boa noite

segue BD para analise!

Wagner,

A tabela "tblCad_Processos", o campo Duracao estava com o tipo "Texto Curto" e alterei para Data/Hora, com formato de "Hora Normal", pois no "frmHistorico", o respectivo campo estava formatado como Hora Normal...ia dar erro também.

Fiz os devidos ajustes e está funcionando. Veja o código.

OBS: compile seu bd e procure por erros, pois o campo Duração do frmHistorico, tem o nome de "txtDuracao" e no código (em alguma parte..) está como "txtDuração".

Um assunto muito abordado aqui no fórum é sobre a nomenclatura de objetos de banco de dados. Procure evitar acentuação, espaços entre as palavras e palavras reservadas do Access, inclusive, na tabela tblCad_Processos existe o campo "Data", que é uma palavra reservada. Mude para DataProcesso ou
Data_processo ou da forma que vc achar melhor.

Evite usar palavras "Data", "Valor", "Total" para nome de campos de tabelas, pois vc terá problemas em criar empressões/funções.

Veja também campos que deveriam ser do tipo numérico e estão como Texto. Se em algum momento vc utilizar este campo para fazer alguma somatória ou totalizador em alguma consulta, vai dar erro pq ele está como texto.

É isso.

Segue versão do sistema.

Espero ter ajudado

Att,

Alexandre Fim

Alexandre Fim,


Gostaria de expressar minha sincera gratidão pela sua valiosa ajuda em resolver o problema com o código. Sua assistência foi fundamental para que eu pudesse encontrar a solução e avançar com o meu projeto.

Sua disposição em ajudar e compartilhar seus conhecimentos é verdadeiramente admirável.

Seu suporte fez toda a diferença, e sou muito grato por ter contado com sua expertise e assistência.


Obrigado!

Valeu Wagner,

O fórum agradece.
Sempre que precisar, estaremos aqui pra te ajudar.

Boa sorte e sucesso!!

Alexandre, Boa Tarde!


Estou enfrentando um problema em minhas aplicações no Access e gostaria de pedir a ajuda de vocês. Estou desenvolvendo um formulário chamado frmCad_Trabalhador e outro chamado frmHistorico, e em ambos os formulários, tenho uma caixa de listagem que deveria exibir a descrição do cargo, mas está exibindo o código do cargo em vez disso.

Gostaria de mencionar que nas respectivas tabelas do banco de dados, os dados estão sendo salvos corretamente, ou seja, tanto o código quanto a descrição do cargo estão corretamente registrados.

Já verifiquei a configuração da origem de dados da caixa de listagem e confirmei que está corretamente vinculada à tabela que contém as informações dos cargos. Também tenho certeza de que a coluna que contém a descrição do cargo está definida como a coluna que deveria ser exibida na caixa de listagem.

Além disso, verifiquei a propriedade "Bound Column" (Coluna Vinculada) da caixa de listagem e confirmei que está configurada corretamente para o número da coluna que contém o código do cargo. A propriedade "Column Widths" (Larguras das Colunas) também está configurada para exibir a descrição do cargo de forma adequada.

Considerando todas essas verificações, ainda estou enfrentando o problema de exibir o código do cargo em vez da descrição na caixa de listagem.

Gostaria de saber se alguém já enfrentou esse tipo de problema ou se tem alguma sugestão de como posso resolver essa questão. Seria muito útil receber orientações sobre outras possíveis configurações ou ajustes que possam ser necessários no meu formulário ou tabela.