MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]SeImed para signos no formulário

    avatar
    lucianoshock
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 18/01/2013

    [Resolvido]SeImed para signos no formulário Empty [Resolvido]SeImed para signos no formulário

    Mensagem  lucianoshock 26/1/2021, 18:05

    Boa tarde.
    Gostaria de saber como faço pra criar uma expressão ou fórmula que dependendo da data que coloque, apareça pra mim o signo do cliente.
    Por exemplo:Nascimento: 10/08/2000
    Signo de leão é entre os dias 23/07 a 22/08.
    Filtro só o dia e mês noutro campo antes de fazer a fórmula ou não é necessário?
    Essa expressão filtra apenas dia e mês: =Format([DataNascimento];"d\/m"), ele me mostra o dia 10/08 num campo a parte.


    Última edição por lucianoshock em 19/3/2021, 14:25, editado 1 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]SeImed para signos no formulário Empty Re: [Resolvido]SeImed para signos no formulário

    Mensagem  scandinavo 27/1/2021, 12:51

    Acho que seria mais fácil uma função
    disponibilize ai as datas e os signos correspondentes. e uma parte do seu projeto.

    lucianoshock gosta desta mensagem

    avatar
    lucianoshock
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 18/01/2013

    [Resolvido]SeImed para signos no formulário Empty Parte do projeto

    Mensagem  lucianoshock 28/1/2021, 14:05

    Está bem no início ainda, prefiro já ir deixando tudo certo para não sofrer depois na frente.
    Anexos
    [Resolvido]SeImed para signos no formulário Attachmentcadastros.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1000 Kb) Baixado 9 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]SeImed para signos no formulário Empty Re: [Resolvido]SeImed para signos no formulário

    Mensagem  DamascenoJr. 29/1/2021, 00:50

    Uma função
    Código:
    Public Function fncSigno(ByVal dtDataNascimento As Date) As String

        Dim strResultado As String
        
        If dtDataNascimento = 0 Then Exit Function

        Select Case CInt(Format(dtDataNascimento, "mmdd"))
            Case 120 To 218: strResultado = "Aquário"
            Case 219 To 320: strResultado = "Peixes"
            Case 321 To 420: strResultado = "Áries"
            Case 421 To 520: strResultado = "Touro"
            Case 521 To 620: strResultado = "Gêmeos"
            Case 621 To 722: strResultado = "Câncer"
            Case 723 To 822: strResultado = "Leão"
            Case 823 To 922: strResultado = "Virgem"
            Case 923 To 1022: strResultado = "Libra"
            Case 1023 To 1121: strResultado = "Escopião"
            Case 1122 To 1221: strResultado = "Sagitário"
            Case Is >= 1222, Is <= 119: strResultado = "Capricórnio"
        End Select
        
        fncSigno = strResultado

    End Function

    E uma expressão
    Código:
    =fncSigno(nz([DataNascimento];0))
    Anexos
    [Resolvido]SeImed para signos no formulário Attachmentcadastros_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.4 Mb) Baixado 42 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1059
    Registrado : 11/11/2009

    [Resolvido]SeImed para signos no formulário Empty Re: [Resolvido]SeImed para signos no formulário

    Mensagem  scandinavo 30/1/2021, 00:59

    Fiz de outra forma. Pode ser digitado data completa ou somente dia e mes.

    Código:
    'Scandinavo 29/01/21 Forum maximos access
    'Define qual o signo
    Dim strCampo
    strCampo = Format(Me.txtDatanasc, "dd/mm")
    Select Case strCampo
    'por ser data preenche o ano automaticamente
    Case #3/21/2021# To #4/20/2021#
    Me.txtSigno = "Áries"
    Case #4/21/2021# To #5/20/2021#
    Me.txtSigno = "Touro"
    Case #5/21/2021# To #6/20/2021#
    Me.txtSigno = "Gêmeos"
    Case #6/21/2021# To #7/22/2021#
    Me.txtSigno = "Câncer"
    Case #7/23/2021# To #8/22/2021#
    Me.txtSigno = "Leão"
    Case #8/23/2021# To #9/22/2021#
    Me.txtSigno = "Virgem"
    Case #9/23/2021# To #10/22/2021#
    Me.txtSigno = "Libra"
    Case #10/23/2021# To #11/22/2021#
    Me.txtSigno = "Escorpião"
    Case #11/23/2021# To #12/21/2021#
    Me.txtSigno = "Sagitário"
    Case #12/22/2021# To #1/20/2021# 'para este periodo esta dando erro
    Me.txtSigno = "Capricórnio" 'acredito que seja por cauda da data inicial ser maior que a final
    Case #1/21/2021# To #2/18/2021#
    Me.txtSigno = "Aquário"
    Case #2/19/2021# To #3/20/2021#
    Me.txtSigno = "Peixes"

    Case Else
    'para resolver o erro do periodo
    'se der erro vai ser Capricórnio
    Me.txtSigno = "Capricórnio"

    End Select

    lucianoshock gosta desta mensagem

    avatar
    lucianoshock
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 18/01/2013

    [Resolvido]SeImed para signos no formulário Empty Gratidão

    Mensagem  lucianoshock 30/1/2021, 11:48

    Obrigado pessoal por me ajudar, foi muito útil e fez eu aprender mais sobre funções e códigos, Deus os abençoe muito.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]SeImed para signos no formulário Empty Re: [Resolvido]SeImed para signos no formulário

    Mensagem  DamascenoJr. 30/1/2021, 12:05

    Faltou marcar o tópico como resolvido. Aguardamos sua ação.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    lucianoshock
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 18/01/2013

    [Resolvido]SeImed para signos no formulário Empty Resolvido

    Mensagem  lucianoshock 18/3/2021, 18:19

    Sou novo aqui, onde marco esse tópico como resolvido?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]SeImed para signos no formulário Empty Re: [Resolvido]SeImed para signos no formulário

    Mensagem  DamascenoJr. 19/3/2021, 00:00

    Veja como fazer isso no link abaixo
    https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido]SeImed para signos no formulário Empty Re: [Resolvido]SeImed para signos no formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:21