[Resolvido] Comandos do Data

Tentei usar o comando Data1.Recordset.Delete para excluir mas não deu certo.

Ele retorna o erro 3200

The record cannot be deleted or changed because table ‘avaliacao_capacidade’ includes related records.

Parece que se o registro esta relacionado ele não apaga.

Tenho que tirar o relacionamento?

Como eu faço uma busca no Data?

Tem algo errado neste código?

dado = FormNovoCadastro.TextCd
busca = "cd = " & dado & ""
Data1.Recordset.FindFirst busca

‘Si o campo não existe crie um.
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
End If

>
Tem algo errado neste código?

dado = FormNovoCadastro.TextCd
busca = "cd = " & dado & ""
Data1.Recordset.FindFirst busca

‘Si o campo não existe crie um.
If Data1.Recordset.NoMatch Then
Data1.Recordset.AddNew
End If

Deu erro?

Tente fazer com Data.RecordSource = [instrução sql].

Copiei este código de um outro projeto meu. nele funciona.

Quando coloquei neste deu erro. A busca não anda como se o registro não existisse.

O esquema seria assim tem um Form la eu cadastro os dados mais importantes do cliente. Ai quando eu fecho um segundo Form abre para completar o cadastro. Assim eu posso completar ele mais tarde.

O primeiro projeto é igual.

A única grande diferença é que no primeiro projeto ele procura o ”cd” da tabela “alunos” nas outras tabelas matemática, ciências e etc.

Mas neste projeto ele procura na mesma tabela.

So muda o Form mas a tabela é a mesma.

Não tenho a menor idéia porque deu certo agora!

Coloquei o Data1.Recordset.MoveFirst no primeiro Form e a busca no segundo deu certo! Não entendo.

FormCadastro.Show
FormCadastro.TextCdRecebeDados.Text = TextCd.Text
Data1.Recordset.MoveFirst
FormCadastro.Buscar
Unload Memas obrigado por tudo scorpio.