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

    [Resolvido]Chamar Função pela Consulta

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 08/10/2012

    [Resolvido]Chamar Função pela Consulta Empty [Resolvido]Chamar Função pela Consulta

    Mensagem  Sidney 23/7/2020, 18:13

    Prezados, boa tarde!!

    Gostaria de uma pequena ajuda dos senhores, criei uma Função e gostaria que esta função fosse chamadas pela consulta, e assim me trazendo o resultado desejados da função, mas não estou conseguindo efetuar esta tarefa, preciso de uma orientação para saber onde estou errando, pois nunca fiz este tipo de procedimento.

    Função:

    Código:
    Public Function Local_VGX_1423(N_FAMS_SIS)
    Dim N_FAM_SIS As Integer
    Dim Local1, Local2 As Variant
    Dim LocalPrincipal, LocalSecundario, LocalFinal As String
    Dim Local_VGX(1 To 25)  As String

    Local_VGX(1) = "BELO MONTE"
    Local_VGX(2) = "BELO MONTE DO PONTAL"
    Local_VGX(3) = "CANA VERDE - MANGUEIRAS"
    Local_VGX(4) = "CARACOL"
    Local_VGX(5) = "GARIMPO DO GALO"
    Local_VGX(6) = "GLEBA BACAJA"
    Local_VGX(7) = "GLEBA BACAJAI"
    Local_VGX(8) = "GLEBA ITATA"
    Local_VGX(9) = "IGARAPE BACAJAI"
    Local_VGX(10) = "IGARAPE ITATA"
    Local_VGX(11) = "ILHA DA BALEIA"
    Local_VGX(12) = "ILHA DA FAZENDA"
    Local_VGX(13) = "ITUNA"
    Local_VGX(14) = "JERICOA"
    Local_VGX(15) = "KAITUKA"
    Local_VGX(16) = "MARANHENSES"
    Local_VGX(17) = "NOVA CONQUISTA"
    Local_VGX(18) = "PIRARARA-PONTAO"
    Local_VGX(19) = "RAMAL DO JULIAO"
    Local_VGX(20) = "RESSACA"
    Local_VGX(21) = "RIO BACAJA"
    Local_VGX(22) = "RIO DAS PEDRAS"
    Local_VGX(23) = "SURUBIM NOVO PROGRESSO"
    Local_VGX(24) = "TERRA PRETA"
    Local_VGX(25) = "VILA IZABEL"

    LocalPrincipal = DLookup("[EndPrinBairroVila]", "tab_Principal", "[CodFamSis]=" & N_FAMS_SIS)
    LocalSecundario = DLookup("[EndSecBairroVila]", "tab_Principal", "[CodFamSis]=" & N_FAMS_SIS)

            For X = 1 To 25
                        If (LocalPrincipal = Local_VGX(X)) Or (LocalSecundario = Local_VGX(X)) Then
                            LocalFinal = Local_VGX(X)
                        Else
                            LocalFinal = "1_LOCAL 1 E 2 NAO E VGX 14.2.3"
                        End If
            Next

    Chamando a função:


    [Resolvido]Chamar Função pela Consulta Modelo11


    A variavel LocalFinal tem que sair na consulta referente ao N_FAM_SIS que se refere a codigo,


    att, Sidney


    .................................................................................
    Att;

    Sidney Silva
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 08/10/2012

    [Resolvido]Chamar Função pela Consulta Empty Re: [Resolvido]Chamar Função pela Consulta

    Mensagem  Sidney 23/7/2020, 19:34

    Prezados,
    Consegui resolver, obrigado assim mesmo,

    Att Sidney


    .................................................................................
    Att;

    Sidney Silva

      Data/hora atual: 18/9/2021, 17:49