[Resolvido]Campo data abreviada, convertida somente para o mês

Olá Srs. boa tarde; alguém poderia me ajudar

Então.., fiz um bd para impressão de etiqueta em papel A4 no campo relatório da bd, já está tudo funcionando perfeitamente bem, mas eu preciso agora
é incluir nas etiquetas, no campo  combo box chamado "FIFO" a data é abreviada tipo 24/11/2017, e eu gostaria que ela ficasse em formato mensal de texto ex.: "NOVEMBRO"
não sei se fui claro mas o bd está em anexo. Antes que eu esqueça também estou tentando incluir cores no relatório, na combo box fifo. como no link que coloquei para ser mais claro.

Desde já agradeço.

dropbox.com/s/7l8yo05oeevwmkk/CORES%20FIFO.jpg?dl=1

Olá Nilo Souza, Bem-Vindo ao fórum.

Se compreendi bem a questão, para se obter o mês de um campo tipo data usamos a função nativa do Access Format.

Format(NomeDoCampo, "mmmm")

Se pretende colocar automaticamente o FIFO quando altera a data da fabricação inclua o código abaixo:

Código:

Private Sub DATA_FABRICACAO_AfterUpdate()
    Me.FIFO = Format(Me.DATA_FABRICACAO, "mmmm")
End Sub

Abraço

ahteixeira, bom dia,

Muito obrigado pela dica deu certo era isso mesmo que eu precisava valeu..

Poderia tirar mais uma dúvida por favor? Estou tentando inserir uma formatação condicional com 12 tipo de cores diferentes, e o meu bd só me dá 3 opções
para realizar este feito na combo box FIFO do formulário e do relatório. Voce sabe se tem alguma alternativa diferente.

Obrigado.

Olá, obrigado pelo retorno.

Quanto à nova questão, não sei qual o limite (estou no celular) mas acredito que possa ser 3.

No entanto pretende alterar a cor do primeiro plano de um campo no relatório, isso crei ser possível via VBA.
Quais os limites para a variaçao das cores?

Abraço

Olá boa tare ahteixeira;

Sim, de fato o bd disponibiliza somente 3 opções, e estou precisando de 12 opções que seria aplicada em cada mês de JAN a DEZ na combo box "FIFO" do relatório, se conseguirmos inserir, será um ótimo trabalho.

Desde já agradeço pela sua ajuda.

Muito obrigado.

Olá Nilo, estou no celular e nem posso ver o projecto.

Sendo num relatório, pode usar o codigo VBA no evento ao formatar (do detalhe), no entanto só vaibfuncionar em modo pre-visualizar.

O código será algo parecido com tópico abaixo:
https://www.maximoaccess.com/t2407-resolvidomuda-cor-no-fundo-do-campo-em-form

Veja se consegue ajustar.

Abraço

Olá Nilo Souza,

Hoje estive a verificar, por acaso num form e funciona mais que 3, veja:



Deve ser mais concreto e dar mais detalhes do que pretende fazer e onde está a ter problemas.

Abraço

Boa tarde, ahteixeira

Estou tentando inserir desta maneira que você esta passando como exemplo, mas percebi que o meu bd não me dá está opção; de inserir mais regras de formatação condicional

dropbox.com/s/mbitnfm5qyo0vee/Regras%20Condicional.png?dl=1


Vou verificar se tem como configura lo e logo em seguida irei tentar.

Desde já lhe agradeço pela ajuda.

Obrigado.

Olá Nilo Souza, verifique então melhor.

Se tiver dificuldades, poste a sua base de dados para se testar e indique a versão que está a usar.

Abraço

Olá Nilo Souza,

Tive oportunidade de testar na versão 2007 e se é a sua versão, tem razão, existe um limite de 3.
Na versão 2010 já não tem esse limite.

Alterantiva por código, veja:

Código:

Private Sub Form_Current()
    Dim xMes As String
    xMes = Me.xFIFO
    
    Select Case xMes
    Case Is = "janeiro"
        xFIFO.ForeColor = RGB(64, 0, 128)
    Case Is = "fevereiro"
        xFIFO.ForeColor = RGB(237, 28, 36)
    Case Is = "março"
        xFIFO.ForeColor = RGB(0, 128, 64)
    Case Is = "abril"
        xFIFO.ForeColor = RGB(255, 0, 255)
    Case Is = "maio"
        xFIFO.ForeColor = RGB(255, 128, 0)
    Case Is = "junho"
        xFIFO.ForeColor = RGB(0, 255, 244)
    Case Is = "julho"
        xFIFO.ForeColor = RGB(0, 128, 64)
    Case Is = "agosto"
        xFIFO.ForeColor = RGB(128, 64, 0)
    Case Is = "setembro"
        xFIFO.ForeColor = RGB(0, 255, 128)
    Case Is = "outubro"
        xFIFO.ForeColor = RGB(128, 128, 192)
    Case Is = "novembro"
        xFIFO.ForeColor = RGB(0, 128, 192)
    Case Is = "dezembro"
        xFIFO.ForeColor = RGB(255, 0, 155)
    Case Else
        xFIFO.ForeColor = vbBlack
    End Select
End Sub


Private Sub DATA_FABRICACAO_AfterUpdate()
    Me.xFIFO = UCase(Format(Me.DATA_FABRICACAO, "mmmm"))
    Call Form_Current
End Sub

Segue o meu teste:
cld.pt/dl/download/dcbeb9d8-8f9e-4a44-bc29-7635e88f43c2/EMITIR_ETIQUETAS_rev.zip
Copiar link e colar no navegador

Abraço

bom dia ahteixeira,

Desculpe pela demora na resposta, e também obrigado pela dica deu certo desta maneira que você me mostrou. Agora irei tentar esta alternativa no relatório.

Obrigado e valeu..

Olá Nilo Souza,

Obrigado pelo retorno.

Abraço