Bom dia, tenho uma macro que faz update no banco, consegui fazer o update selecionando 1 dia, agora o que eu necessito é, selecionar por período, exemplo do dia 1 ate o dia 7, ou o mes inteiro. Como que eu posso proceder para criar essa regra na macro. Tambem preciso criar um IF, para quando o usuário selecionar S grava se estiver com N não faz nenhuma alteração, quando eu deixo o IF no código ele não executa quando eu removo ele faz o update no banco. Espero que possam me ajudar..
Function GetAgentConnection
Dim oConection
Dim SLXServerName
Dim SLXDataBaseName
Dim SLXUserPassword
Dim SLXUserName
Dim sConnectionString
sConnectionString = "Provider=MSDASQL.1;Persist Security Info=True;User ID=root;Data Source=GHAN_BI;Extended Properties=DSN=GHAN_BI;UID=root;Initial Catalog=ghan_bi] (XPassword is JHLDSJVMYbbMCbEHRRMGDAC)"
Set oConection = CreateObject ("ADODB.Connection")
oConection.ConnectionString = sConnectionString
oConection.Open
Set GetAgentConnection = oConection
End Function
'Salva na tabela Vendas Diario
Sub QV2SQL
SET Conexao = GetAgentConnection()
dim uSQL
dim RegAfectados
dim importe
RegAfectados = 0
set val1=ActiveDocument.Fields("DATAFORMATOBD").GetSelectedValues
set val2=ActiveDocument.Fields("SELECIONA").GetSelectedValues
for i=0 to val1.Count-1
Conexao.Execute "UPDATE bi_agencia_stur_vendas_diario SET conferido='"+val2.Item(i).Text+"' WHERE data_emissao = '"+val1.Item(i).Text+"'"
next
Msgbox("Registros atualizados com sucesso!")
End Sub