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

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

Alexandre,

para o trecho em sua mensagem no tópico: Criar consulta atualização com critério em Formulário
"Para verificar se a data prevista já está preenchida, não encontrei nenhum campo de controlo, além do [Data Prevista]. Seria conveniente ter um campo de um campo de identificação única do registo de forma a não afectar mais que o registo pretendido. Pense nisto!"

Tenho o campo com o nome de "Numerador" como poderia referencia-lo para verificar se a data prevista 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


tenho duvida se o trecho if e elseif está correto e também não consegui validar o item 3º acima:

If (IsNull(DLookup("[DATA PAGTO]", "GerarProtocoloItem"))) Then
MsgBox "O campo 'Data Pagamento' já está preenchido."
ElseIf (IsNull(DLookup("[DATA PAGTO]", "GerarProtocoloItem", _
"[DATA PREVISTA]=#" & Format(Me.DtaPrev, "mm/dd/yyyy") & "#"))) Then


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 (IsNull(DLookup("[DATA PAGTO]", "GerarProtocoloItem"))) Then
MsgBox "O campo 'Data Pagamento' já está preenchido."
ElseIf (IsNull(DLookup("[DATA PAGTO]", "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") & "#"

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

Será aberto um novo tópico, explicando melhor o pretendido.