MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    chamar função

    Compartilhe

    marcelo3092
    Novato
    Novato

    Respeito às Regras 100%

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

    chamar função

    Mensagem  marcelo3092 em Qua 08 Jun 2016, 04:57

    como chama essa função

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    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
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    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???

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    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.....

    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 543
    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: Qui 08 Dez 2016, 00:06