[Resolvido]Correr codigo a horas :)

Boas

Tenho o seguinte codigo:


Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "Semana1"
'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "C:\Documents and Settings\.xlsx"
'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

Exit_Comando0_Click:
Exit Sub


Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click


End Sub

Preciso que ele seja executado todos os dias as 2 da tarde e 8 da noite.


Existe forma de correr este código sem abrir o access?

att

Existe sim, o simples será como eu lhe vou passar:

como crio a acção publica?

Abro o vba no acess e depois?
Me desculpa mas a minha base de access são poucas!

Abra um módulo VBA e cole a função que o Mestre lhe passou

Public Function ExportaConsulta()
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha
'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "Semana1"
'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "C:\Documents and Settings\.xlsx"
'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha
Exit Function
End Function

O resto está explicíto no outro tópico anterior

Funcionou beleza

Obrigado e desculpem as perguntas mas ainda estou muito verde

Tem maneira de fechar o access no fim do código?

Quando o bat é executado ele abre access e no fim não o fecha! Existe maneira de o fechar no fim o de o correr minimixado?

O ideal seria...

Correr este .bat sem abrir o access ou a janela do dos.

Pois isto vai correr na maquina do cliente e quanto mais discreto for melhor é!

Você pode utilizar o módulo esconder janela do Access" ou "Tornar Access Transparente" e evita ter que o correr minimizado. Veja no Repositório de exemplos.

Onde vejo isso?

POr exemplo este código postado pelo Criquio

Abra um módulo e cole este código


Option Compare Database
Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function

No Form de abertura

'Private Sub Form_Load()
Call AccessTransparente(0)
'End Sub

Já abri um modulo no ficheiro access novo e colei o código que você postou. Mas se fizer F5 não acontece nada, abre a janela das macros apenas!

É suposto?

Uma questão:

No Form de abertura

'Private Sub Form_Load()
Call AccessTransparente(0)
'End Sub

Qual é o meu form de abertura? Eu não sei criar form no access

Então a sua bD não tem formulários? Se tem, como eu acho que deve ter, qual deles é que abre no início da BD?

A minha bd tem o seguinte:

um modulo;
Consultas;
E uma importação;

Então nunca fez um formulário? Melhor começar a ver exemplos antes de passar para coisas complicadas, amigão.

Os formulários são para mostrar os dados. Veja alguns exemplos aqui no fórum

Olhe aqui um exemplo

http://dl.dropbox.com/u/8157744/esconderjanela.zip

Então, conseguiu adaptar?

Bom dia a todos;

Mais uma vez o simples;

Utilize no final do código, o Application.Quit [i]

Ou inclua direto na Macro, para encerrar o Access.

Opa!, aproveitando a deixa, caro João Paulo.. tenho esse codigo ao abrir de um form que exporta um relatorio para pdf e o envia por e-mail.. coo adpatar para execucao sem ter que abrir o access?




' FUNÇÃO PARA O ENVIO DO RELATÓRIO "FORMULÁRIO DE INSPEÇÃO" PARA A AGESEP
' variável que representa o mês corrente

'se o dia do mês for maior ou igual a 25 e o arquivo mês-ano.pdf ainda não existir, então...
'If Day(Date) >= 12 And Len(Dir(CurrentProject.Path & "\Relatórios\" & Format(Now, "mm-yyyy") & ".pdf")) = 0 Then
If Day(Date) >= 12 And Len(Dir(CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf")) = 0 Then



' cria o pdf na subpasta Relatórios com nome "mês-ano.pdf"
'DoCmd.OutputTo acOutputReport, "rptRelatorioInspecao", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
DoCmd.OutputTo acOutputReport, "rptRelatorioInspecao", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
DoCmd.OutputTo acOutputReport, "rptQuantitativo_Fechado", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\Quantitativo_fechado_" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
DoCmd.OutputTo acOutputReport, "rptQuantitativo_Albergue", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\Quantitativo_Albergue_" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen

' cria as variáveis dos objetos cdo e envia o email
Dim Mens As Object
Dim Config As Object
Set Mens = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")

With Config


.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60



.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config
.From = "(TESTE DE ENVIO AUTOMATICO DE E-MAIL SYSPEN - Favor ignorar este e-mail)"
'SYSPEN - Sistema de Informação e Gerenciamento Penitenciário"

.Sender = "xxxx"


.Subject = "Relatórios Administrativos da Unidade Prisional de Mineiros"
.HTMLBody = "Segue em anexo (PDF) os relatórios de inspeção e quantitativos do CIS Mineiros-GO"

.To = "xxxxxxxxxxx"
' a linha abaixo pega o pdf criado e anexa à mensagem
'.AddAttachment CurrentProject.Path & "\Relatórios\" & Format(Now, "mm-yyyy") & ".pdf"
.AddAttachment CurrentProject.Path & "\Relatórios\Inspecao_" & Format(Now, "mm-yyyy") & ".pdf"
.AddAttachment CurrentProject.Path & "\Relatórios\Quantitativo_Fechado_" & Format(Now, "mm-yyyy") & ".pdf"
.AddAttachment CurrentProject.Path & "\Relatórios\Quantitativo_Albergue_" & Format(Now, "mm-yyyy") & ".pdf"


.Send
End With

MsgBox "E-mail's enviados com sucesso." & vbCrLf & _
"Foram criados na pasta Relatórios, os arquivos em PDF do corrente mês", vbOKOnly + vbInformation, "Relatórios enviados"

Set Mens = Nothing
Set Config = Nothing
Exit Sub
Else
Exit Sub
End If
End Sub

para ambos os casos, sem abrir o access é impossivel.

na macro pode defenir varias etapas, como minimizar o access e o quit para fechar, tal como o jpaulo disse.

no meu caso pode abri o access sim.. mas e o login e senha?

Vamos dar o tópico por resolvido.