MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    sysaccess.sistemas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2017

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

    Mensagem  sysaccess.sistemas em 24/11/2017, 20:15

    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

    lol!
    Anexos
    [Resolvido]Campo data abreviada, convertida somente para o mês AttachmentEMITIR_ETIQUETAS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (121 Kb) Baixado 22 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 26/11/2017, 15:54

    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
    avatar
    sysaccess.sistemas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2017

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

    Mensagem  sysaccess.sistemas em 29/11/2017, 12:47

    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 29/11/2017, 17:15

    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
    avatar
    sysaccess.sistemas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2017

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

    Mensagem  sysaccess.sistemas em 29/11/2017, 17:26

    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.

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 29/11/2017, 17:37

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 30/11/2017, 11:35

    Olá Nilo Souza,

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

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

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

    Abraço
    avatar
    sysaccess.sistemas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2017

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

    Mensagem  sysaccess.sistemas em 30/11/2017, 16:45

    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.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 2/12/2017, 13:21

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 5/12/2017, 14:38

    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
    avatar
    sysaccess.sistemas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 01/03/2017

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

    Mensagem  sysaccess.sistemas em 20/12/2017, 13:08

    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.. cheers
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6676
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em 20/12/2017, 13:35

    Olá Nilo Souza,

    Obrigado pelo retorno.

    Abraço

      Data/hora atual: 31/5/2020, 00:35