[Resolvido]Do While - Errado!

Boa noite a todos!
Usei esse código em um botão para que ele percorra todos os registros do formulário e coloque a data atual no campo2 onde o campo 1 seja vazio, mas não está funcionando e eu sei o porque. Alguém poderia me ajudar por favor?

Private Sub Botão_Click()

Dim contar3 As Integer
Dim contar2 As Integer
Dim rst2 As Recordset
Set rst2 = CurrentDb.OpenRecordset("TblSaída")
contar2 = 0
contar3 = rst2.RecordCount
DoCmd.RunCommand acCmdRecordsGoToFirst
Do While contar2 <> contar3
contar2 = contar2 + 1

   If IsNull(Me.campo1 = True) Then
       Me.campo2 = Now()
       DoCmd.RunCommand acCmdRecordsGoToNext
   End If

Loop
End Sub

Olá Rosalvo0

A instrução UPDATE do SQL onde tratamos no tópico de Analisar campos vazios ao abrir formulário também não se aplica a esta necessidade?

Ficaria algo do tipo:

No evento "Ao clicar" do botão:

'-- Executa a função para contar registros em branco, caso não ache nenhum, finaliza a função.
If Nz(DCount("*", "NomeDaTabela", "IsNull ([Campo_1])"), 0) = 0 Then
Exit Sub '-- para aqui e suspende a execução do código restante
End If

'-- Atualiza com a data de hoje todos os registros em que o campo Campo_1 estiverem em branco.
CurrentDb.Execute "UPDATE NomeDaTabela SET [Campo_2] = '" & Format(Date, "mm/dd/yyyy") & "' WHERE IsNull ([Campo_1])"
MsgBox("Os campos vazios foram atualizados"), vbInformation, "Aviso"
Exit Sub '-- para aqui e suspende a execução do código restante

Bom dia Cristian.

Em primeiro lugar, muito obrigado por sua atenção.
O seu código é perfeito, mas eu gostaria de construir um com laços para poder aprender melhor como eles funcionam. Procurei em vários tutoriais e eles tem sempre o mesmo método de ensinamento no qual eu não consigo aplicá-los as minhas necessidades. Estou tentando construir esse, que é bem simples, para poder ter um entendimento do seu funcionamento na prática.
Se puder me ajudar ficaria extremamente grato.

Inicie sempre o aprendizado, com o simples;

Código:

Private Sub SeuBotão_Click()
With Me.Recordset
  .MoveFirst
  Do While Not .EOF
    If IsNull(Me.Campo1) Or Me.Campo1 = "" Then
      Me.Campo2 = Now()
    End If
    .MoveNext
  Loop
End With
End Sub

Oi JP!
Perfeito.
Vou estudar passo a passo o código para poder entender o seu funcionamento e o significado de cada elemento usado nele.
Muito obrigado pela atenção de vocês JP e Cristian.
Grande abraço!!!

Obrigado pelo retorno o fórum agradece.