[Resolvido]Update VBA - com variáveis

xoxe 13/7/2016, 14:16

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº1

[Resolvido]Update VBA - com variáveis

Mensagem xoxe 13/7/2016, 14:16

Bom dia!

Estou tentando (e tomando surra rs) para fazer update pelo VBA, porém não estou conseguindo.

Segue código

Código:: Dim stDocName, servico1, servico2, UserAdm, DiaEscala1, DiaEscala2, HoraEscala1, HoraEscala2, SupResp1, SupResp2 As String servico1 = servico1txt servico2 = servico2txt UserAdm = txtUserAtual DiaEscala1 = DiaEscala1txt DiaEscala2 = DiaEscala2txt HoraEscala1 = HoraEscala1txt HoraEscala2 = HoraEscala2txt SupResp1 = SupResp1txt SupResp2 = SupResp2txt If IsNull(chave1txt) Or IsNull(chave2txt) Then MsgBox "Por favor, informe uma chave", vbExclamation, "Mensagem" ElseIf UserAdm = "Trafego" Then CurrentDb.Execute "UPDATE TabEscala SET Servico = 'servico1', DiaEscala = 'DiaEscala1', HoraEscala = 'HoraEscala1', SupResp = 'SupResp1' WHERE (([ChaveOp]=[Formulários]![FrmEscala]![chave2txt]) AND ([DiaFDS]=[Formulários]![FrmEquipe]![DiaTxt]))" CurrentDb.Execute "UPDATE TabEscala SET Servico = 'servico2', DiaEscala = 'DiaEscala2', HoraEscala = 'HoraEscala2', SupResp = 'SupResp2' WHERE (([ChaveOp]=[Formulários]![FrmEscala]![chave1txt]) AND ([DiaFDS]=[Formulários]![FrmEquipe]![DiaTxt]))" MsgBox "Troca efetuada!", vbInformation, "Sucesso" chave1txt = "" chave2txt = "" refresh End if

Está dando erro de parametros. eram esperados 2 Rolling Eyes

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

[Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

wellingtoneo 13/7/2016, 15:56

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº2

Re: [Resolvido]Update VBA - com variáveis

Mensagem wellingtoneo 13/7/2016, 15:56

Bom dia!

Amigo, o que está entre ' ' é referente as variáveis declaradas no inicio do código? Se sim, tente colocar ' & variável & ' veja:

Código:: CurrentDb.Execute "UPDATE TabEscala SET Servico =' & servico1 &', DiaEscala =' & DiaEscala1 & ', HoraEscala =' & HoraEscala1 &', SupResp =' & SupResp1 & ' WHERE (([ChaveOp]=[Formulários]![FrmEscala]![chave2txt]) AND ([DiaFDS]=[Formulários]![FrmEquipe]![DiaTxt]))"

xoxe 13/7/2016, 16:09

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº3

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 13/7/2016, 16:09

Permanece dando a mensagem "Parametros insuficientes. Eram esperados 2"

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

wellingtoneo 13/7/2016, 16:17

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº4

Re: [Resolvido]Update VBA - com variáveis

Mensagem wellingtoneo 13/7/2016, 16:17

Você realizou o procedimento nas duas consultas?
Olha se a Cláusula Where está dando problemas de referência.
Coloca um ponto de interrupção no código e na janela de verificação imediata cola o código abaixo.

?(([ChaveOp]=[Formulários]![FrmEscala]![chave2txt]) AND ([DiaFDS]=[Formulários]![FrmEquipe]![DiaTxt]))

no resultado você pode olhar se o parâmetros estão corretos.

FabioPaes 13/7/2016, 16:45

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº5

Re: [Resolvido]Update VBA - com variáveis

Mensagem FabioPaes 13/7/2016, 16:45

Senhores, salvo engano as Variaveis ficam entre " & &" para Numero e '"& &"' para Texto.

Servico = " & servico1 &"

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

xoxe 13/7/2016, 17:01

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº6

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 13/7/2016, 17:01

E para hora??

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

wellingtoneo 13/7/2016, 17:08

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº7

Re: [Resolvido]Update VBA - com variáveis

Mensagem wellingtoneo 13/7/2016, 17:08

se não me engano para hora e data é # #.

FabioPaes 13/7/2016, 17:19

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº8

Re: [Resolvido]Update VBA - com variáveis

Mensagem FabioPaes 13/7/2016, 17:19

A data Fica entre " " o diferencial e que entre o # inicio e #Fim...

# " & Me.CampoData & " #

É aconselhado tambem formatar essa data para mm/dd/yyyy para evitar uma confusao pelo VBA... Ex: 06/05/2016 pode ser compreendido que o mes é 06 e o dia é 05.

FIcando assim: # " & Format(Me.CampoData, "mm/dd/yyyy") & " #

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

xoxe 13/7/2016, 18:19

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº9

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 13/7/2016, 18:19

Código:: CurrentDb.Execute "UPDATE TabEscala SET Servico = '" & servico1 & "', DiaEscala = '" & DiaEscala1 & "', HoraEscala = # " & Format(HoraEscala1, "mm/dd/yyyy") & " #, SupResp = '" & SupResp1 & "' WHERE (([ChaveOp]=[Formulários]![FrmEscala]![chave2txt]) AND ([DiaFDS]=[Formulários]![FrmEquipe]![DiaTxt]))"

Modifiquei o código, mas permanece com o erro Parâmetros insuficientes. Eram esperados 2.

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

FabioPaes 13/7/2016, 19:42

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº10

Re: [Resolvido]Update VBA - com variáveis

Mensagem FabioPaes 13/7/2016, 19:42

So nos resta pedir seu exemplo amigo... Posta aqui favor!

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

xoxe 13/7/2016, 20:14

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº11

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 13/7/2016, 20:14

Re: Update VBA - com variáveis
Mensagem FabioPaes Hoje à(s) 13:19
+
----
-
A data Fica entre " " o diferencial e que entre o # inicio e #Fim...

# " & Me.CampoData & " #

É aconselhado tambem formatar essa data para mm/dd/yyyy para evitar uma confusao pelo VBA... Ex: 06/05/2016 pode ser compreendido que o mes é 06 e o dia é 05.

FIcando assim: # " & Format(Me.CampoData, "mm/dd/yyyy") & " #

Agora que me liguei, é para HORA e não DATA.

De qualquer modo, segue Banco de dados, formulário principal "FrmEquipe" https://goo.gl/wvkyOl

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

FabioPaes 13/7/2016, 20:34

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº12

Re: [Resolvido]Update VBA - com variáveis

Mensagem FabioPaes 13/7/2016, 20:34

Para hora continua da mesma forma que lhe falei... # ... #

Fiquei perdido no seu sistema, nao sei como simular o erro!

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

xoxe 13/7/2016, 20:38

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº13

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 13/7/2016, 20:38

Isso é a escala de trabalho dos operadores aqui da Central de atendimento.

Simule por exemplo escolhendo um supervisor qualquer e selecione a data 16/07/2016.
Lá clique em troca e em seguida informe a chave de 2 operadores diferentes e veja se ocorrerá a troca.

Consegui ser claro?

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

wellingtoneo 13/7/2016, 22:02

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº14

Re: [Resolvido]Update VBA - com variáveis

Mensagem wellingtoneo 13/7/2016, 22:02

Amigo, tente o código a baixo, se funcionar, como exercício aplica na segunda consulta...

Código:: CurrentDb.Execute "UPDATE TabEscala SET [Servico] = '" & servico1 & "', [DiaEscala] = '" & DiaEscala1 & "', [HoraEscala] = '" & HoraEscala1 & "', [SupResp] ='" & SupResp1 & "' WHERE (([ChaveOp]='" & Forms!FrmEscala!chave2txt & "') AND ([DiaFDS]= #" & Format(Forms!FrmEquipe!DiaTxt, "mm/dd/yyyy") & "#))"

xoxe 14/7/2016, 11:08

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº15

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 14/7/2016, 11:08

Perfeito, funcionou!

Só uma duvida, como estou declarando variáveis, o valor ficará armazenado nelas, correto?

Estava fazendo de outra forma (pelo assistente do access) e em alguns momentos ocorria duplicidade de valores.

https://www.maximoaccess.com/t27153-update-e-insert-via-vba

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

wellingtoneo 14/7/2016, 14:15

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº16

Re: [Resolvido]Update VBA - com variáveis

Mensagem wellingtoneo 14/7/2016, 14:15

Os valores armazenados nas variáveis ficando nela durante aquele procedimento. Após isso eles são eliminados. Agora, pelo que eu vir do seu sistema, se a pessoa esquecer de clica em consulta antes de realizar a troca as informações não são alteradas... Acho que esse é o problema da duplicação. O que você acha?

xoxe 14/7/2016, 14:27

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº17

Re: [Resolvido]Update VBA - com variáveis

Mensagem xoxe 14/7/2016, 14:27

Nem é, se não clicar em consulta os campos ficarão vazios (nulos), creio que seja realmente como estava antes..

Já fiz a alteração no sistema daqui na empresa, irei observar se teremos reclamações.. Caso contrário, penso em outra solução!

Obrigado pela ajuda de todos!

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha [Resolvido]Update VBA - com variáveis 001_1810

para agradecer a dica que solucionou seu problema.

wellingtoneo 14/7/2016, 14:49

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº18

Re: [Resolvido]Update VBA - com variáveis

Mensagem wellingtoneo 14/7/2016, 14:49

Ok, qualquer coisa estamos ai...

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº19

Re: [Resolvido]Update VBA - com variáveis

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Update VBA - com variáveis

[Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: [Resolvido]Update VBA - com variáveis

Re: [Resolvido]Update VBA - com variáveis

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada