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
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 896
    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 : 3063
    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 26 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
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 896
    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
    Anexos
    [Resolvido]SeImed para signos no formulário AttachmentSigno.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (300 Kb) Baixado 22 vez(es)

    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 : 3063
    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 : 3063
    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.

      Data/hora atual: 21/9/2021, 04:02