Aviso ao Abrir Tela

[CROVADOR]

Bom dia amigos, tenho uma tela de cadastro que ao digitar os dados ela me diz se já existe, mas gostaria que ele me avisasse quando eu abrir a tela, ou seja, sem ter que digitar. Alguém poderia me ajudar? Segue código abaixo.

Código: Selecionar todos

Private Sub txt_cnpj_cpf_AfterUpdate()
	On Error Resume Next
	Dim ComandoSQL As String
	
	SqlOrçDetsete = "SELECT * FROM tbOrç_Detalhe7" 'Listagem de Orçamentos
	Set rsOrçDetsete = New ADODB.Recordset
	rsOrçDetsete.Open SqlOrçDetsete, cn, adOpenKeyset, adLockOptimistic
	
	Do Until rsOrçDetsete.EOF
		If rsOrçDetsete(7) = "" & Me.txt_cnpj_cpf.Text Then
			
			MsgBox "Renavan " & Me.txt_cnpj_cpf.Text & " É Existente!", vbInformation, "Cadastro Duplicado!"
			
'txtNome = Empty
'txt_cnpj_cpf = Empty
			txt_cnpj_cpf = Empty
			
			Exit Sub
		End If
		
		rsOrçDetsete.MoveNext
		
	Loop
End Sub

[Reinaldo]

Não entendi a demanda "...ou seja, sem ter que digitar..."; pode postar um exemplo/modelo

[CROVADOR]

Ao Abrir a tela Cadastro de Clientes terá que vir a seguinte mensagem. "Existe Cliente Pendente, Favor Verificar" .
Segue modelo....
Deus abençoe amigos...

[CROVADOR]

Resolvi com este código, porém queria que ele contasse quantos pendentes existem.
Exemplo: "Existem 38 O.S Pendentes"

Dim vbResp As VbMsgBoxResult

SqlOrçDetum = "SELECT * FROM tbOrç_Detalhe1" 'Listagem de Orçamentos
Set rsOrçDetum = New ADODB.Recordset
rsOrçDetum.Open SqlOrçDetum, cn, adOpenKeyset, adLockOptimistic

Do Until rsOrçDetum.EOF
If rsOrçDetum(3) = "PENDENTE" Then

vbResp = MsgBox("Existe O.S PENDENTE No Sistema!" & Chr(13) _
& "Verifique Para Concluir Estas Pendências!" & Chr(13), vbQuestion, "Atenção")

Exit Sub
End If
rsOrçDetum.MoveNext
Loop