Macro update

Tue, 31 Jan 2017 10:16:06 GMT

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+"'"

Msgbox("Registros atualizados com sucesso!")

End Sub

topic Macro update in Brasil

Macro update