Gilliard Pacheco

funcionou camarada, só não entendo o código. como coloco o tópico como resolvido

sim , está instalado aí mesmo. Ricardo, vou deixar o backup em rede, e vou usar somente o do computador primário. Obrigado pela atenção. valeu meu nobre. vou deixar como resolvido. onde coloca como resolvido aqui:>

mesmo sem acento ele não encontra o caminho

Elel não está achando o caminho pushd "\\ASSISTENTE-SOCI\ServiçoSocial_(EM_TESTE)" "%Seven%" -p1234 a -tzip "C:\Vsb\%vsb%.zip" "Assistência Social Itaperuna.accdb" popd porque o nome do arquivo esta no fsendo que ele vai pegar toda a pasta na redee jogar para a pasta criada?

ele esta travando o 7zip veja o anexo

Sobre a rede o cmd para e fica vazio.

tentei, mas não funcina , baixei o 7zip e está funcionando, mas se eu pegar os arquivos que estão em rede. ex: 7z.exe -p1234 a -tzip C:\Vsb\%vsb%.zip \\ASSISTENTE-SOCI\ServiçoSocial_(EM_TESTE)\Assistência Social Itaperuna.accdb ele não funciona total, ou seja, ele cria a pasta mas não pega os arquivos que está no computador servidor, e parou de colocar horas na pasta, não seria o grande problema,mas seria bom pois ele vai para could

Eu fiz, mostrou falta de 7zip, baixei o programa, ele copiou ,so não esta funcionando se colocar na rede local

Não funciona, também não iria adiantar , porque eu programo em ACCESS vba e fiz um botão para chamar e executar o bat, mas o problema e o arquivo

como posso ver essas permissão, ,porque eu como usuário tenho permissão de administrador

sim,

@ricardo_br Mesmo com aspas ele não esta criando a pasta e fazendo a copias dos dados

Meu amigo boa tarde. meu batch não está funcionando mais, poderia me ajudar em qual linha errei. O objetivo dele e copiar os dados e zipa com senha. @echo off cls cd\ cd "C:\Program Files\7-Zip cd 7-Zip ip 7z.exe -p1234 a -tzip C:\vsb\vsb-%date:~-10,2%%date:~-7,2%%date:~-4,4%.zip C:\Eclesis\Eclesis.accdb 7z.exe -p1234 a -tzip C:\vsb\vsb-%date:~-10,2%%date:~-7,2%%date:~-4,4%.zip C:\Eclesis\Cartas 7z.exe -p1234 a -tzip C:\vsb\vsb-%date:~-10,2%%date:~-7,2%%date:~-4,4%.zip C:\Eclesis\Fotos cls backup.rar

peguei o meu erro

não consigo colocar essas mensagem na caixa

bom dia colega eu queria que o programa registrasse a ip do computador aonde o sistema será instalado para que menguem posso copia-lo

bom dia colegas, fiz um programa no acess , eu queria que o programa registrasse a ip do computador aonde o sistema será instalado para que menguem posso copia-lo

assim , a partiu que o usuário abrir a pagina principal o codigo ver se ainda tem dias disponiveis pra ele usa caso esteva fora da data determina o programa fecha sozinho pra niguem usar , eu estou tentando colocar umas fotos aqui mais não esta dando pra colocar adicionado 1 minuto depois Private Sub Comando7_Click() DoCmd.OpenForm "MENU DE CONTROLE" If Time() >= #6:00:00 AM# And Time() < #12:00:00 PM# Then Call MsgBox("Bom Dia!" & vbCrLf & "A PAZ DO SENHOR JESUS." & vbCrLf & "Hoje é " & Date, vbExclamation, "SISTIG") Else If Time() >= #12:00:00 PM# And Time() <= #6:00:00 PM# Then Call MsgBox("Boa Tarde!" & vbCrLf & "A PAZ DO SENHOR JESUS." & vbCrLf & "Hoje é " & Date, vbExclamation, "SISTIG") Else Call MsgBox("Boa Noite!" & vbCrLf & "A PAZ DO SENHOR JESUS." & vbCrLf & " Hoje é " & Date, vbExclamation, "SISTIG") End If End If DoCmd.Close acForm, "abertura" Dim MyDate, MyDay MyDate = #8/15/2018# MyDay = Day(MyDate) MsgBox "Seu tempo demostrativo encerrou.Entre em contato com o desenvolverdor", vbCritical, "GpcSystem" DoCmd.Quit ou seja quando ele abrir a pagina abertura , o codigo ver se a data caso esteja fora da data é fechado automaticamente

DoCmd.Close acForm, "abertura" Dim MyDate, MyDay MyDate = #8/15/2018# MyDay = Day(MyDate) MsgBox "Seu tempo demostrativo encerrou.Entre em contato com o desenvolverdor", vbCritical, "GpcSystem" DoCmd.Quit esse pode colocar qualquer data que ele ja fecha fecha. ------------------ Dim UltimoDia As Date Dim Quantidade As Integer UltimoDia = CDate("14/02/2015") Quantidade = UltimoDia - Date MsgBox "Quantidade disponivel de uso é: " & Quantidade & " dias.", vbCritical, "GpcSystem" Exit Sub MsgBox "Quantidade disponivel de uso é: " & Quantidade & " dias .", vbCritical, "GpcSystem" MsgBox "Quantidade disponivel de uso é: " & Quantidade & " dias .", vbCritical, "GpcSystem" Esse pode passa qualquer restante de uso que ele continua aberto , me ajudam socorro