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

    [Resolvido]Criar Menu com Opção de Backup

    avatar
    Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 37
    Registrado : 30/03/2012

    [Resolvido]Criar Menu com Opção de Backup Empty [Resolvido]Criar Menu com Opção de Backup

    Mensagem  Iniciante 5/6/2012, 19:28

    Pessoal, boa tarde !

    Criei um botão ("botaoteste") com o seguinte código VBA:

    Private Sub botaoteste_Click()
    Dim source As String
    Dim destine As String
    Dim fso As Variant

    source = "n:\access"
    destine = "n:\backup\access"

    Set fso = CreateObject("Scripting.FileSystemObject")
    yearstr = Year(Date)
    monthstr = Month(Date)
    daystr = Day(Date)
    If monthstr < 10 Then
    monthstr = "0" & monthstr
    End If
    If daystr < 10 Then
    daystr = "0" & daystr
    End If
    destine = destine & yearstr & monthstr & daystr
    fso.CopyFolder source, destine, True
    Set fso = Nothing
    MsgBox "O Banco de dados foi salvo"
    End Sub

    Está a funcionar perfeitamente. Quando clico no botão, faz-se uma cópia de segurança do Access, registrando ano, mês e dia do processamento.

    Gostaria de descobrir agora como associar este mesmo evento à um item de menu, ao invés de um botão. Ao criar uma macro, não encontro uma ação que corresponda ao que desejo.

    Há como associar este código a um item de menu? Digamos: Guia Suplementos, menu Manutenção, item Backup?

    Obrigada !
    Davi.lrcampos
    Davi.lrcampos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 02/02/2012

    [Resolvido]Criar Menu com Opção de Backup Empty Re: [Resolvido]Criar Menu com Opção de Backup

    Mensagem  Davi.lrcampos 6/6/2012, 14:04

    Poderias utilizar uma macro "executar código" não?
    avatar
    Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 37
    Registrado : 30/03/2012

    [Resolvido]Criar Menu com Opção de Backup Empty Re: [Resolvido]Criar Menu com Opção de Backup

    Mensagem  Iniciante 6/6/2012, 14:16

    Isso é o que também pensei. No entanto, ao abrir "Executar código", o que se abre, na verdade, é "construtor de expressões". Tenho coisas como igual, diferente, funções de agregação, mas aquilo que desejava, ou seja, um espaço para colar código VBA, isto não tenho. Será um erro macabro do Access?
    Davi.lrcampos
    Davi.lrcampos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 02/02/2012

    [Resolvido]Criar Menu com Opção de Backup Empty Re: [Resolvido]Criar Menu com Opção de Backup

    Mensagem  Davi.lrcampos 6/6/2012, 14:29

    Colocas o Código num módulo, depois utiliza a Macro Executar Código para chamar o módulo...

    Conteúdo patrocinado


    [Resolvido]Criar Menu com Opção de Backup Empty Re: [Resolvido]Criar Menu com Opção de Backup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:07