como chama essa função
2 participantes
chamar função
marcelo3092- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 299
Registrado : 19/08/2010
- Mensagem nº1
chamar função
Celso Roberto- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1076
Registrado : 01/03/2014
- Mensagem nº2
Re: chamar função
Olá..
Qual Função???
Aguardo
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
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- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 299
Registrado : 19/08/2010
- Mensagem nº3
chamar função
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???
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- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1076
Registrado : 01/03/2014
- Mensagem nº4
Re: chamar função
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
É 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
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- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1076
Registrado : 01/03/2014
- Mensagem nº5
Re: chamar função
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
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
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.....