[Resolvidos]Selecionar registro repetido, RecordsetClone no subformulário

Boa noite galera,

Tenho um formulário chamado "CadCursos" e um subformulário dentro dele chamado "Matricula Subformulario". Gostaria que a medida que fosse cadastrando um registro no subformulário "Matricula Subformulario" e repetisse o cadastro com o mesmo nome, aparecesse uma caixa de mensagem me informando que "Apenas é possível um nome por curso!" sendo impossível ter o mesmo nome mais de 1 vez cadastrado no mesmo curso. Quem tiver interesse, abaixo postei um link do BD que criei para mostrar a minha dúvida. Desde já agradeço ... valeu!

BD DÚVIDA

Olá Michel,

Coloca o código abaixo no evento ANTES DE ATUALIZAR do campo Aluno:

Private Sub aluno_BeforeUpdate(Cancel As Integer)
'seta variavel recordset
Dim tabela As Recordset
Set tabela = Me.RecordsetClone

With tabela
'verifica se o cliente já está cadastrado
.FindFirst "Aluno=" & Me.Aluno & ""
'se encontrou então
If Not .NoMatch Then
Cancel = True
'Desfaz o registro
Me.Undo
MsgBox "Aluno já Matriculado!!!", vbCritical, "Atenção"
'exibe o registro já cadastrado
Me.Bookmark = .Bookmark
End If
End With
Set tabela = Nothing
End Sub

Nivaldo