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

    chamar função

    Compartilhe

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 19/08/2010

    chamar função

    Mensagem  marcelo3092 em Qua 08 Jun 2016, 04:57

    como chama essa função
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 700
    Registrado : 01/03/2014

    Re: chamar função

    Mensagem  Celso Roberto em Qua 08 Jun 2016, 05:10

    Olá..

    Qual Função???

    Aguardo


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 19/08/2010

    chamar função

    Mensagem  marcelo3092 em Qua 08 Jun 2016, 18:22

    BOM DIA CELSO TIPO EU CRIO OU COLOCO UMA FUNÇÃO E SALVO COMO MODULO COMO CHAMA ELA? TIPO ESSA
    Public Sub SetAutoCompact(fAutoCompact As Boolean)
    Dim Dbs As DAO.Database
    Dim Prp As DAO.Property
    Const conPropNotFoundError = 3270
    Set Dbs = CurrentDb
    On Error Resume Next
    Dbs.Properties("Auto compact") = fAutoCompact
    If Err.Number = conPropNotFoundError Then
    Set Prp = Dbs.CreateProperty("Auto compact", dbBoolean, fAutoCompact)
    Dbs.Properties.Append Prp
    End If
    End Sub


    SO PRA SABE PQ VEJO VARIOS MODULOS POREM N SEI COMO CHAMA PARA EXECUTAR O MODULO???
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 700
    Registrado : 01/03/2014

    Re: chamar função

    Mensagem  Celso Roberto em Qua 08 Jun 2016, 20:06

    Olá..

    É uma função publica , Geralmente criada em módulo e pode ser chamada em procedimentos de eventos em Botões tipo ao clicar
    Call SetAutoCompact(NomeBdAtual)

    ou em algum outro momento tipo

    If SetAutoCompact(NomeBdAtual) = True Then
    Execute isto.......
    Elseif SetAutoCompact(NomeBdAtual) = False
    exit sub
    End if

    Eu uso um módulo para compactar BD desta forma

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 700
    Registrado : 01/03/2014

    Re: chamar função

    Mensagem  Celso Roberto em Sab 27 Ago 2016, 13:03

    Bom Dia Marcelo, td bem?

    Gostaríamos de saber se as ajudas prestadas por nós te ajudou a resolver a sua dúvida!!
    Caso tenha resolvido, por favor encerre este tópico.
    Caso ainda não resolveu, se manifeste para darmos continuidade.

    Nota: Reveja todos os tópicos postados por você que permanece em Aberto sem sua manifestação

    Isto é muito importante para todos os membros do Fórum e também para futura pesquisas de procura de dúvidas semelhantes.

    Aguardamos sua manifestação

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Ter 17 Out 2017, 02:42