[Resolvido]Criar consulta atualização com critério em Formulário3

Este tópico é referenciado ao tópico: Criar consulta atualização com critério em Formulário

Alexandre,


Tenho o campo com o nome de "Numerador" como poderia referencia-lo para verificar se a data pagto já está preenchida?

Fiz um ajuste no código conforme abaixo, os objetivo são:

1º Verificar se o campo "Dtaprev" no form está preenchido;

2º Verificar se o campo "DATA PAGTO" na tabela está vazio;

3º Verificar se a "Dtaprev" do form existe na tabela no campo "DATA PREVSTA";

4º Se o itens acima forem atendidos, atualizar o campo "DATA PAGTO" na tabela com a informação preenchida no Me.dtaPgto do form e campo "Banco Pagador" para 'BRASIL - BR'


Não consegui resolver o item 2º acima.

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]=#" & Me.DtaPrev & "#"))) Then

CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Me.dtaPgto & "#, [BANCO PAGADOR]='BRASIL - BR' where [DATA PREVISTA] =#" & Me.DtaPrev & "#"
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

Boa tarde, donizeth

Também não é conveniente proliferar temas. Quando abrir novo tema que se relacione com algum já existente (que esteja resolvido), coloque uma hiperligação do tema anterior.

tema anterior:
http://maximoaccess.forumeiros.com/t4927-resolvidocriar-consulta-atualizacao-com-criterio-em-formulario2

Sobre o seu problema, veja se funciona assim:
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","Numerador=" & Me.TxtNumerador)) Then
msgbox "O campo 'Data Prevista' já está preenchido."
Else
CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Format(Me.dtaPgto, "mm/dd/yyyy") & "#, [Banco pagador]='BRASIL - BR' where Numerador=" & me.TxtNumerador & ";"

MsgBox "Data de Pagamento atualizada!", vbInformation, "ATUALIZADO"
End If
End Sub

Alexandre,

Preciso ver se o campo "data pagto", uma vez que o campo "data prevista" sempre estará preenchido. O campo numerador não consigo colocar no form, pois uma data prevista possuem vários registros com vários numeradores.

As descrições parecem-me diferentes, esclareça de novo o que pretende

Alexandre,

O código abaixo me atende, com exceção da verificação se já foi preenchido o campo "data pagto".

Por exemplo, supondo que o usuário do BD tenha clicado no botão para atualizar o campo "data pagto" e os criterios do código abaixo foram atendidos, é preenchido o valor para o campo "data pagto", e se posteriormente sejam inseridos novos registros com a mesma data prevista cujo campo "data pagto" já foi atualizado, gostaria que o access não atualize novamente o campo "data pagto"


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]=#" & Me.DtaPrev & "#"))) Then

CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Me.dtaPgto & "#, [BANCO PAGADOR]='BRASIL - BR' where [DATA PREVISTA] =#" & Me.DtaPrev & "#"
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,

Continua a não descrever tudo de uma vez e eu continuo a achar que a sua lógica faz pouco sentido.
No entanto, se pretende actualizar apenas os registos que ainda não tiverem o campo "data pagto" preenchido, utilize
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]=#" & Me.DtaPrev & "#"))) Then
CurrentDb.Execute "UPDATE GerarProtocoloItem set [DATA PAGTO]=#" & Me.dtaPgto & "#, [BANCO PAGADOR]='BRASIL - BR' where [DATA PREVISTA] =#" & Me.DtaPrev & "# 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

ok, resolvido.