[Resolvido] Extrair mês de um campo da tabela através do valor padrão.

Olá Senhores!

Minha dúvida é a seguinte, tenho uma tabela com os campos "Prazo de Entrega", que devo preencher como 01/01/2021 e o campo "Mês do Prazo de Entrega".

Eu gostaria que o valor do campo "Mês do Prazo de Entrega" fosse retornado automaticamente, de acordo com o preenchimento do campo "Prazo de Entrega".

Única coisa que tentei foi colocar no valor padrão do campo "Mês do Prazo de Entrega" a expressão:

=Mês([Prazo de Entrega])

Porém não deu muito certo.

Poderiam me ajudar por gentileza?

Boa tarde, tenho um exemplo, não sei se serve para o que tu precisas , mas segue ai. Informa o numero de dias do prazo(txtNroDias) e a Data (txtPrazoEntrega) ele calculo o prazo e exibe nos formatos abaixo:

Private Sub txtPrazoEntrega_AfterUpdate()
Dim Entrega As Date

'----------------------------------------------------------------------------------------
' em formato de data normal.Aqui calcula o prazo conforme numero de dias.

Entrega = DateAdd("d", Me.txtNroDias, Me.txtPrazoEntrega)

txtMesEntrega = Entrega
'------------------------------------------------------------------------------------------

'se for em Mes e Ano numérico. ex: 04/2021

Me.txtDataMesEntrega = DatePart("m", txtPrazoEntrega) & "/" & DatePart("yyyy", txtPrazoEntrega)
'----------------------------------------------------------------------------------------------------
'só o mês. ex: Abril

Me.txtMesExtenso = Format(Me.txtPrazoEntrega, "mmmm")
'------------------------------------------------------------------------------------------------
' mês e ano. Mês extenso + Ano numérico. Ex: Abril/2021

Me.txtMesComAno = Format(Me.txtPrazoEntrega, "mmmm") & "/" & DatePart("yyyy", txtPrazoEntrega)
'------------------------------------------------------------------------------------------------
End Sub

Blza.

ALAN

Boa tarde Alan!

Agradeço suas considerações, mas o objetivo é que essa regra seja feita diretamente na tabela (creio eu que seria no campo "Valor Padrão"), e não no formulário.

Olá Cristiano,

Não teria necessidade de gravar o nome do mês da data de entrega, visto que vc pode obter o nome do mês através de formulários/relatórios/consultas.

Você pretende utilizar somente tabela para trabalhar os dados?

Qual a tua necessidade?


Att,

Opa, também tem essa função;

em um campo tipo Calculado insira a expressão:

NomeMês(Mês([prazoentrega]))

Assim ao inserir dados em Prazo Entrega exibe o mês por extenso no campo calculado.

Para maiores detalhes veja o video do colega e mestre Gilberlânio sobre: "Aula de Access - Função Nome Mês".

Também concordo com o Alexandre Finn, não é muito correto gravar campos calculados na tabela como: saldos, estoque, vencimentos. Isto tudo é exibido pro usuário através de consultas, relatórios e na hora de inserir dados através de formulários. Pois se for atualizado um campo que não reflete em outro campo da tabela, seu bd fica inconsistente. É só uma dica...

ALAN

Alan,

O Access não permite gravar o nome do mes em campo calculado.

Att,

Alexandre, o mês deverá sair como número, não é necessário sair o nome do mês.

Entendi Cristiano.

Mas a função abaixo traz o nome do mes, que gera erro:
NomeMês(Mês([prazoentrega]))

O correto seria:
Mês([prazoentrega])


Att,

Alan

Diretamente na tabela somente se digitasse nela, o que pra nos programadores é um sacrilégio!
Não tem como colocar um campo calculado em um tabela, pois, elas somente  gravam
os dados alimentados por formulários, nada mais.
O que dá pra fazer é usar um formulário, e na propriedade origem do registro dele colocar uma consulta,
como esse exemplo:
Crie uma tabela em modo designe clique em SQL e cole o exemplo;

SELECT tbl_Clientes.idcliente, tbl_Clientes.NomeCliente, tbl_Clientes.dt_Saida, Month([dt_Saida]) AS MesSaida
FROM tbl_Clientes;

{ }'s

Balem

Alexandre, sua dica funcionou.

Foi exatamente o que eu imaginei, porém eu estava colocando no campo "Valor Padrão" ao invés do campo "Calculado"

Obrigado a todos!