[Resolvido]Contar com resultado em janela pop-up

Bom dia,

gostaria de contar o numero de registros de uma consulta( todos os Registros ) e:

em um formulário, dentro de uma textbox, fazer aparecer este resultado:

e se possível, toda vez que o formulário fosse aberto, uma janela com a opção sim ou não se abrisse com o mesmo resultado do contar.


Obrigado



Fabio

Ai um exemplo


Se desejar que ao carregar o formulário seja exibido na textbox a soma dos registros:

Código:

Me.txtRecebe = DCount("nome", "teste")


Caso deseje que apareça a opção se deseja a contagem dos registros então:

Código:

Private Sub Form_Load()

    If MsgBox("Contar os Resgistros?", vbYesNo, "Contar Registros") = vbYes Then
    Me.txtRecebe = DCount("nome", "teste")
    End If

End Sub

Forte abraço.

Amigo, quase isso,


Assim,

Private Sub Form_Load()

If MsgBox("Existem ?? registros incompletos,gostaria de revisar agora", vbYesNo, "Contar Registros") = vbYes Then
DoCmd.OpenForm "meu form para revisão"

End If
End Sub

Só falta ai a contagem de quantos registros e não tenho ideia de como fazer...


Obrigado

Ficaria Assim então correto?

Código:

Private Sub Form_Load()

Dim Contador As Integer

Contador = DCount("nome", "teste")

If MsgBox("CExistem " & Contador & " registros incompletos,gostaria de revisar agora", vbYesNo) = vbYes Then
Me.txtRecebe = Contador
End If

End Sub


Amigo ficou assim,

Private Sub Form_Load()

TxtRecebe = DCount("*", "ConsultaFaltantes")

Dim Q As Integer
Dim Contador As Integer

Contador = DCount("*", "ConsultaFaltantes")

If Me.TxtRecebe > 0 Then
Q = MsgBox("Existem " & Contador & " registros incompletos,gostaria de revisar agora", vbYesNo, "Contar Registros")
If Q = vbYes Then
DoCmd.OpenForm "frm_registro"
End If
End If

End Sub


Muito obrigado pela ajuda, ajudou muito mesmo....



Fabio

O Fórum agradece o retorno.

Forte abraço Fábio.