[Resolvido]Consulta atualizar via VBA

Senhores,


Tenho um botão em um form com o código abaixo, porém preciso, ajustar o código adicionando ao critério de seleção para que seja selecionado somente itens que na tabela GerarProtocolocab nos campos Canceladocadastro ou Canceladocontabil ou CanceladoContrato ou CanceladoCp tenha o valor “SIM” ou “5”. Estou tentando ajustar mas não consegui.


Private Sub btAtualizar_Click()

If IsNull(Me.DtaPrev) = True Or Me.DtaPrev.Value = "" Then
MsgBox "Preencha uma data de previsão válida, não é permitido deixar este campo em branco!", vbCritical, "Atenção"
Me.DtaPrev.BackColor = vbRed
Me.DtaPrev.ForeColor = vbWhite
Me.DtaPrev.SetFocus
Exit Sub
End If

If (Not IsNull(DLookup("[DATA PREVISTA]", "GerarProtocoloItem", _
"[DATA PREVISTA]=#" & Format(Me.DtaPrev, "mm/dd/yyyy") & "#"))) Then

CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Format(Me.dtaPgto, "mm/dd/yyyy") & "#, [BANCO PAGADOR]='BRASIL - BR' where [DATA PREVISTA] =#" & Format(Me.DtaPrev, "mm/dd/yyyy") & "# and IsNull([data pagto])"

MsgBox "Data de Pagamento atualizada!", vbInformation, "ATUALIZADO"
Else
MsgBox "Não existe esta data de previsão de pagamento!", vbInformation, "Atenção"
End If

End Sub

Algo assim?

CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Format(Me.dtaPgto, "mm/dd/yyyy") & "#, [BANCO PAGADOR]='BRASIL - BR' where [DATA PREVISTA] =#" & Format(Me.DtaPrev, "mm/dd/yyyy") & "# and IsNull([data pagto]) And (((Cp)=Yes)) OR (((Cp1)=Yes) or ((Cp2)=Yes));"

Mas os campos novos estão em outra tabela. Na tabela GerarProtocolocab.

As tabelas são relacionadas?

Se puder post um exemplo com as tabelas e o código.

Cumprimentos.

Segue em anexo no access 2003

Segue em access 2010

Faça uma breve descrição de como funciona essa atualização, os campos no form é para atualizar em que tabela.

Descreva todo o processo.

Cumprimentos.

Tente assim:

CurrentDb.Execute "UPDATE GerarProtocoloCab LEFT JOIN GerarProtocoloItem ON GerarProtocoloCab.NUMERADOR = GerarProtocoloItem.NUMERADOR" _
& " SET GerarProtocoloItem.[DATA PAGTO] = #" & Format(Me.dtaPgto, "mm/dd/yyyy") & "#, GerarProtocoloItem.[BANCO PAGADOR]" _
& " = 'BRASIL - BR' WHERE (((GerarProtocoloCab.CANCELADOCADASTRO)='sim')) OR (((GerarProtocoloCab.CANCELADOCONTABIL)='sim')" _
& " Or ((GerarProtocoloCab.CANCELADOCONTRATUAL)='sim') or ((GerarProtocoloCab.CANCELADOFISCAL)='sim'));"

Estive a ver a tabela, e os campos com valores sim/nao tem origem em uma caixa de combinação, entao os critérios não servirão da forma como está acima.

** a caixa de combinação tem duas opções SIM = 1 e NAO = 2

Então substitua os SIM por 2 na SQL da mensagem anterior.

Cumprimetos.

Mas também tenho que não atualizar os registros que não estão com o campo dataprevista preenchido.

Boas Donizeth, assim como pediu na otigem do tópico o fiz.

Uma dica, ao colocar a dúvida, ja a explique em todo seu conteudo, assim evitasmos a ficar dando voltas em soluções..


Especifique novamente qual campo e qual tabela.

Cumprimentos.

No inicio do tópico coloquei de forma clara o que eu estava tentando fazer, ou seja, queria adicionar ao código existente a seleção do registros que na tabela Gerarprotocolocab nos campos : Canceladocadastro ou Canceladocontabil ou CanceladoContrato ou CanceladoCp[/b] tenha o valor “SIM” ou “5”

Senhores,


Tenho um botão em um form com o código abaixo, porém preciso, ajustar o código adicionando ao critério de seleção para que seja selecionado somente itens que na tabela GerarProtocolocab nos campos Canceladocadastro ou Canceladocontabil ou CanceladoContrato ou CanceladoCp tenha o valor “SIM” ou “5”. Estou tentando ajustar mas não consegui.


Private Sub btAtualizar_Click()

If IsNull(Me.DtaPrev) = True Or Me.DtaPrev.Value = "" Then
MsgBox "Preencha uma data de previsão válida, não é permitido deixar este campo em branco!", vbCritical, "Atenção"
Me.DtaPrev.BackColor = vbRed
Me.DtaPrev.ForeColor = vbWhite
Me.DtaPrev.SetFocus
Exit Sub
End If

If (Not IsNull(DLookup("[DATA PREVISTA]", "GerarProtocoloItem", _
"[DATA PREVISTA]=#" & Format(Me.DtaPrev, "mm/dd/yyyy") & "#"))) Then

CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Format(Me.dtaPgto, "mm/dd/yyyy") & "#, [BANCO PAGADOR]='BRASIL - BR' where [DATA PREVISTA] =#" & Format(Me.DtaPrev, "mm/dd/yyyy") & "# and IsNull([data pagto])"

MsgBox "Data de Pagamento atualizada!", vbInformation, "ATUALIZADO"
Else
MsgBox "Não existe esta data de previsão de pagamento!", vbInformation, "Atenção"
End If

End Sub

Donizeth amigão, isso eu ja o fiz acima...

mas olha o que falou logo em seguida:

Mas também tenho que não atualizar os registros que não estão com o campo dataprevista preenchido.

Isto não estava no início do código. Estou falando quanto a este problema que não havia citado.

De detalhes sobre isso.

Cumprimentos.

No exemplo, tenho que atualizar os registros na tabela gerarprotocoloitem somente se o campo "DATA PREVISTA" estiver preenchido e se o campo "DATA PAGTO" não estiver preenchido nessa tabela gerarprotocoloitem. Além desse critério deve-se verificar se os campos na outra tabela Gerarprotocolocab campos Canceladocadastro ou Canceladocontabil ou CanceladoContrato ou CanceladoCp[/b] tenha o valor diferente de “SIM” ou “5”

As duas tabelas Geraprotocolocab e gerarprotocoloitem são relacionadas através do campo "Numerador".

Sendo assim, a atualização deverá comparar campos nas duas tabelas e atualizar somente em uma delas e nesse caso atualizar na tabela Gerarprotocoloitem conforme informado acima.

Minha dificuldade é transformar a SQL abaixo em código VBA.

Fazendo a consulta em SQL ficou com a seguinte instrução :

PARAMETERS [Formulários]![FormAtualizardata]![DtaPrev] DateTime, [Formulários]![FormAtualizardata]![dtaPgto] DateTime;
UPDATE GerarProtocoloCab INNER JOIN GerarProtocoloItem ON GerarProtocoloCab.NUMERADOR = GerarProtocoloItem.NUMERADOR SET GerarProtocoloItem.[DATA PAGTO] = [Formulários]![FormAtualizardata]![dtaPgto]
WHERE (((GerarProtocoloItem.[DATA PREVISTA])=[Formulários]![FormAtualizardata]![DtaPrev] And (GerarProtocoloItem.[DATA PREVISTA]) Is Not Null) AND ((GerarProtocoloItem.[DATA PAGTO]) Is Null) AND ((GerarProtocoloCab.CANCELADOCADASTRO) Is Null Or (GerarProtocoloCab.CANCELADOCADASTRO)="5") AND ((GerarProtocoloCab.CANCELADOCONTABIL) Is Null Or (GerarProtocoloCab.CANCELADOCONTABIL)="5") AND ((GerarProtocoloCab.CANCELADOFISCAL) Is Null Or (GerarProtocoloCab.CANCELADOFISCAL)="5") AND ((GerarProtocoloCab.CANCELADOCONTRATUAL) Is Null Or (GerarProtocoloCab.CANCELADOCONTRATUAL)="5"));

Amigão na tabela os campos cancelados tem valor 1 ou 2. de onde tirou esse 5?

Com o auxilio do Mestre Balem:

DoCmd.RunSQL "PARAMETERS [Formulários]![FormAtualizardata]![DtaPrev] DateTime, [Formulários]![FormAtualizardata]![dtaPgto] DateTime;" & _
"UPDATE GerarProtocoloCab INNER JOIN GerarProtocoloItem ON GerarProtocoloCab.NUMERADOR = GerarProtocoloItem.NUMERADOR " & _
"SET GerarProtocoloItem.[DATA PAGTO] = [Formulários]![FormAtualizardata]![dtaPgto] " & _
"WHERE (((GerarProtocoloItem.[DATA PREVISTA])=[Formulários]![FormAtualizardata]![DtaPrev] And " & _
"(GerarProtocoloItem.[DATA PREVISTA]) Is Not Null) AND ((GerarProtocoloItem.[DATA PAGTO]) Is Null) AND " & _
"((GerarProtocoloCab.CANCELADOCADASTRO) Is Null Or (GerarProtocoloCab.CANCELADOCADASTRO)='5') AND " & _
"((GerarProtocoloCab.CANCELADOCONTABIL) Is Null Or (GerarProtocoloCab.CANCELADOCONTABIL)='5') AND " & _
"((GerarProtocoloCab.CANCELADOFISCAL) Is Null Or (GerarProtocoloCab.CANCELADOFISCAL)='5') AND " & _
"((GerarProtocoloCab.CANCELADOCONTRATUAL) Is Null Or (GerarProtocoloCab.CANCELADOCONTRATUAL)='5'));"


Cumprimentos.

ok, resolvido, obrigado.

O Fórum agradece o retorno.

Cumprimentos.

Gostaria de uma ajuda, não consigo actualizar a minha base de dados que foi feita em Access
apartir do VB, estou usando o Visual Basic 2010, alguem me pode ajudar

Boas Vanasantonio... como este é um fórum específico de Ms Access, creio que talvez não encontre aqui a solução de tua dúvida...

Bem,de qualquer forma espero que consigas solucionar.

Cumprimentos.