[Resolvido]Inserir dados no listbox com condição

Olá

Preciso inserir no código abaixo uma condição

- Caso NOMEPACIENTE esteja em banco, não inserir no ListBox89

Private Sub RG_AfterUpdate()
If MsgBox("Deseja Inserir na Consulta Geral?", vbQuestion + vbYesNo, "Operador(a) Aviso Importante !!! ") = vbYes Then
 ' DoCmd.GoToRecord , , acNext
  Me.Lista89.Requery
  CurrentDb.Execute "INSERT INTO tblCadPacientegeral(NomePaciente, n_pront, N_Prontmp, rg, cpf, cns, data_nasc ) VALUES ('" & Me!NomePaciente & "','" & Me!N_PRONT & "','" & Me!N_PRONTMP & "','" & Me!RG & "','" & Me!CPF & "','" & Me!CNS & "','" & Me!DATA_NASC & "')"
MsgBox "Resgistro Acrescentado"

End If
End Sub

?
o questionario do vba não está funcionando? Se aperta não o sistema não faz nada

Olá

Código:

Private Sub RG_AfterUpdate()
If MsgBox("Deseja Inserir na Consulta Geral?", vbQuestion + vbYesNo, "Operador(a) Aviso Importante !!! ") = vbYes Then

  If isnull(Me!NomePaciente) then
    MsgBox "Nome requerido"
    Me!NomePaciente.setfocus
    exit Sub
  endif

 ' DoCmd.GoToRecord , , acNext
  Me.Lista89.Requery
  CurrentDb.Execute "INSERT INTO tblCadPacientegeral(NomePaciente, n_pront, N_Prontmp, rg, cpf, cns, data_nasc ) VALUES ('" & Me!NomePaciente & "','" & Me!N_PRONT & "','" & Me!N_PRONTMP & "','" & Me!RG & "','" & Me!CPF & "','" & Me!CNS & "','" & Me!DATA_NASC & "')"
MsgBox "Resgistro Acrescentado"
End If
End Sub

Saludos

Frank boa tarde , kkk cara nem lembrei cara pensei que era banco  como escrito e não branco. Viajei

     
.

Desculpa ai pela grafia incorreta.

Vanderlei, conseguiu resolver?

Aguardamos...

resolvido