[Resolvido] Comandos do Data

[Erich VB 0]

Estou fazendo um Form com o Data ele terá quatro botões para andar pelos registros.

<< Primeiro, <Anterior, >Próximo, >>Último. E mais dois Incluir Novo Registro e Excluir.

Os comandos para a navegação eu sei. Mas esqueci os de Incluir Novo Registro e Excluir.

Se alguém puder me ajudar obrigado.

 

<< Primeiro,

Data1.Recordset.MoveFirst

 

<Anterior

Data1.Recordset.MovePrevious

 

>Próximo

Data1.Recordset.MoveNext

 

>>Último

Data1.Recordset.MoveLast

[Erich VB 0]

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?

[Erich VB 0]

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

[scorpio 7]

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].

[Erich VB 0]

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.

[Erich VB 0]

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 Me

mas obrigado por tudo scorpio.