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

    Macro executando VBA

    avatar
    salomaocoelho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 04/05/2013

    Macro executando VBA  Empty Macro executando VBA

    Mensagem  salomaocoelho 8/7/2014, 20:58

    Pessoal tenho um Modulo de Backup
    '------------------------------------------------------------
    Function backup()
    On Error GoTo backup_Err
    If MsgBox(getUsuarioAtual & ", deseja realmente fazer Backup?", vbQuestion + vbYesNo, "Sair") = vbYes Then
    If getGrupoUsuarioAtual = "Administrador" Then
    Dim CopiaSegura As Object
    Dim Caminho As String
    Caminho = "D:\FeijaoGisele" & "\Backup"
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile CurrentProject.Path & "\pifpaf_be.accdr", Caminho & Format(Now, "ddmmyyyy") & ".accdr"
    MsgBox "Backup realizado com sucesso.", vbInformation, "Backup"
    Else
    MsgBox getUsuarioAtual & " não tem permissão para realizar backup.", vbCritical, "Alerta"
    Exit Sub
    End If
    End If
    End Function

    agora quero chamar essa função via menu Ribbon

    Estou tentando criar uma Macro e não estou conseguindo

    alguém habilita a ajudar?
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    Macro executando VBA  Empty Re: Macro executando VBA

    Mensagem  Noobezinho 8/7/2014, 21:17

    Tente assim:

    Crie a Macro

    Escolha:

    Executar Código

    Nome da função:

    = backup()

    Coloque o nome da Macro e salve.

    Abs

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    salomaocoelho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 04/05/2013

    Macro executando VBA  Empty Re: Macro executando VBA

    Mensagem  salomaocoelho 8/7/2014, 22:31

    apareceu está mensagem
    "A expressão que você inseriu possui um nome de função que o Microsoft Office Access não pode localizar"

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4145
    Registrado : 29/06/2012

    Macro executando VBA  Empty Re: Macro executando VBA

    Mensagem  Noobezinho 8/7/2014, 23:14

    A função tem que ser Pública e estar num módulo basico e não num módulo classe de um formulário.

    Verifique  Wink 


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 26/1/2022, 20:15