[Resolvido]Gravar dados em uma tabela que existam em outra

Tenho 2 tabelas:

TblClientes
TblMovimento

Qual o código no formulário para só aceitar gravar na TblMovimento os clientes que já são cadastrados na TblClientes?

Talvez tenha que alterar a estrutura do seu aplicativo. Pois, normalmente, a tblMovimento deveria ter um relacionamento com a tblClintes. Basta esse relacionamento para que tudo funcione certinho.

Não queria fazer por integridade referncial, já que eu queria por uma caixa de mensagem que o CLIENTE NÃO ESTÁ CADASTRADO!

Se ele estiver, eu coloco esta rotina:

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("TblClientes")

Do Until rs.EOF
If (Me!cliente = rs!cliente) Then
Beep
MsgBox "Cliente Já Cadastrado", , "CADASTRAR CLIENTE"
Exit Sub
Else
rs.MoveNext
End If
Loop

Agora, como ficaria um código parecido com esse no formulário de movimento pra informar que o cliente não está cadastrado, fazendo referência à TblClientes?

Você precisa de um dado exclusivo, como por exemplo o CPF. O nome pode dar problemas, uma vez que pode ter mais de um pessoa com mesmo nome e até mesmo a mesma assinatura. Para fazer a consulta, pode utilizar várias formas, entre elas:

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM TblClientes WHERE CPF='" & Me.CPF & "'")

If rs.RecordCount < 1 Then
MsgBox "Cliente ainda não cadastrado", vbCritical, "Atenção"
End If

Do Until rs.EOF
If (Me!cliente = rs!cliente) Then
Beep
MsgBox "Cliente Já Cadastrado", , "CADASTRAR CLIENTE"
Exit Sub
Else
rs.MoveNext
End If
Loop

' Não se esquecer de fechar os RecordSet e Database
rs.Close
db.Close

' Não se esquecer de limpá-los da memória:
Set rs = Nothing
Set db = Nothing

Um pouco mais das informações que eu estou trabalhando:

CAMPOS DO FORMULARIO
CPF
CLIENTE (Já vem automático pelo CPF)
Valor da compra

Botão Gravar:
Private Sub btGravar_Click()
If isnull(me!cpf) then
Msgbox “CPF Não Pode ficar vazio”,vbcritical, “CADASTRAR MOVIMENTO”
Elseif isnull(me!compra) then
Msgbox “Valor da Compra Não Pode ficar vazio”,vbcritical, “CADASTRAR MOVIMENTO”
Else
Dim db as database
Dim rs as recorset

Set db = CurrentDb()
Set rs = db.OpenRecordset("TblMovimento")

rs.AddNew
rs!cpf = Me!cpf
rs!cliente = Me!cliente
rs!compra = Me!compra
rs.Update

rs.Close
db.Close

Beep
MsgBox "Compra Realizada Com Sucesso!”, vbInformation, "COMPRA REALIZADA"

Queria que ele buscasse nos cpf já cadastrados e me informasse apenas se este cpf NÃO ESTÁ CADASTRADO na TBlClientes.

Mas, mesmo assim: Obrigado pelo post anterior!

É exatamente isso. Veja a linha do Set rs:

Set rs = db.OpenRecordset("SELECT * FROM TblClientes WHERE CPF='" & Me.CPF & "'")

Veja que ela irá filtrar registros cujo CPF seja igual ao digitado no campo CPF (Me.CPF) do formulário.
O rs.RecordCount conta o número de registros que satisfaça esse filtro. Se for menor que 1, exibe a mensagem dizendo que ainda não está cadastrado. O resto, é questão de adaptação.

Gostaria de agradecer pela informação!

Coloquei para chamar a Tabela após atualizar o campo:
Private Sub categoria_AfterUpdate()

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM TblCategorias WHERE Categoria='" & Me.categoria & "'")

If rs.RecordCount < 1 Then
MsgBox "CPF ainda não cadastrado!", vbCrytical, "PROJETO" Then
Me!CPF = Null
End If
Mais uma vez, obrigado!

Então resolveu? Só não se esqueça de fechar o Recordset e o Database e liberar a memória conforme mencionei mais acima.