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


2 participantes

    chamar função

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    chamar função Empty chamar função

    Mensagem  marcelo3092 8/6/2016, 04:57

    como chama essa função
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    chamar função Empty Re: chamar função

    Mensagem  Celso Roberto 8/6/2016, 05:10

    Olá..

    Qual Função???

    Aguardo


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    chamar função Empty chamar função

    Mensagem  marcelo3092 8/6/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
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    chamar função Empty Re: chamar função

    Mensagem  Celso Roberto 8/6/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

    chamar função Empty Re: chamar função

    Mensagem  Celso Roberto 27/8/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Conteúdo patrocinado


    chamar função Empty Re: chamar função

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/5/2024, 18:56