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


3 participantes

    [Resolvido]Backup em VBA para unidades removiveis

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Backup em VBA para unidades removiveis Empty [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Access365 5/10/2012, 08:53

    Olá gente!
    O PILOTO tem um exemplo de backup incrível, pois busca as unidades do OS numa combox...
    http://maximoaccess.forumeiros.com/t7554-backup-no-disco-rigido-e-em-dispositivo-removivel-com-pesquisa-automatica-do-mesmo?highlight=Backup

    É tudo que eu tava precisando, em se falando de backup para pendriver... to doidin pra usar...
    Ele tá todo funcional, menos na parte que eu MAIS preciso: PENDRIVER!

    O erro tá dando aqui ó: Parametros_de_Inicializacao "SysPen.par" (no finzin do VB) rrrrrrrrrrrrrrr Já ignorei a linha e nada, dá mais erro!

    Será que alguém aqui viu isso?

    Desde já, eu agradeço!
    Paulo César
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Silvio 6/10/2012, 14:55

    olá, pode postar a linha onde ocorre esse erro ? pois aqui não ocorreu comigo.

    Grato.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Access365 7/10/2012, 18:08

    Olá Silvio!
    Parametros_de_Inicializacao SysPen.par (no finzin do VB)
    Valeu!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Assis 27/1/2013, 15:33

    Silvio

    Será este?
    A mim este dá erro

    http://maximoaccess.forumeiros.com/t11486-backup-do-mestre-piloto-da-erro-ao-copiar-para-pen-drine


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Assis 29/1/2013, 00:47

    Paulo César

    Teste

    Atenção na tabela Proprietario
    Aos campos "Programa" e "Tipo"


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Convidado 29/1/2013, 02:03

    Boas.. Baixe o exemplo SysBase, nele tem o modulo funcionando na perfeição.

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Convidado 29/1/2013, 03:06

    Bem... estive dando uma enxugada na função que copia para o Pen-Drive.. Quando fiz este exemplo ainda estava engatinhando no vba..


    Private Function fncDestinoBackupPen(Optional Destino As String = "local") As String
    Dim SourceFile, LocalDestino
    Dim DirTemp As String

    DirTemp = CurrentProject.Path & "\BackUp"

    LocalDestino = Replace(Destino, "local", StrLtr & "backup")
    If Len(Dir(LocalDestino, vbDirectory) & "") = 0 Then
    MkDir LocalDestino
    End If
    SourceFile = Replace(Me.txDestino, "-", "-c") ' Definir o nome do arquivo de origem.
    Destino = Replace(SourceFile, "" & DirTemp & "", "" & LocalDestino & "") ' Definir o nome do arquivo de destino."
    If Me.selWinrar = -1 Then
    SourceFile = Replace(SourceFile, ".accdb", ".rar")
    Destino = Replace(Destino, ".accdb", ".rar")
    FileCopy SourceFile, Destino
    MsgBox "Backup no Dispositivo Removível ." & vbCrLf & _
    vbCrLf & "efetuado com sucesso!", vbInformation, "Aviso"
    Beep
    Else
    FileCopy SourceFile, Destino ' Copiar a origem no destino.
    MsgBox "Backup no Dispositivo Removível ." & vbCrLf & _
    vbCrLf & "efetuado com sucesso!", vbInformation, "Aviso"
    Beep
    End If
    End Function



    O Exemplo atualzado:


    http://maximoaccess.forumeiros.com/t7554-backup-no-disco-rigido-e-em-dispositivo-removivel-com-pesquisa-automatica-do-mesmo#61259

    Abraços.


    Última edição por PILOTO em 26/2/2013, 23:03, editado 1 vez(es) (Motivo da edição : Tópico marcado como resolvido por falta de resposta - MODERAÇÃO)

    Conteúdo patrocinado


    [Resolvido]Backup em VBA para unidades removiveis Empty Re: [Resolvido]Backup em VBA para unidades removiveis

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 05:16