CADASTRAR DADOS COM DADOS DE OUTRAS TABELAS

BELLEBS 18/11/2011 18:30:32
#389443
Boa noite.

Estou com um problema com meu projeto que precisa cadastrar em uma tabela dados de uma tabela que já existe, só que quando tento cadastrar aparece o seguinte erro:
Citação:

Compile Error:

Method or Data Member not Found



Eis o código que deveria fazer o comando:

Citação:

Dim mat As Variant

If Not de.rsalunos.Fields([Ô]matricula[Ô]).EOF And Not de.rsalunos.Fields([Ô]matricula[Ô]).BOF Then

de.rsalunos.MoveFirst
mat = de.rsalunos.Fields([Ô]matricula[Ô]).Value
de.rsmatriculas.AddNew
de.rsmatriculas.Fields([Ô]matalu[Ô]) = mat
de.rsmatriculas.Fields([Ô]modalidade[Ô]) = de.rsmodalidade.Fields([Ô]codigo[Ô]).Value
de.rsmatriculas.Fields([Ô]valor[Ô]) = txtvalfin.Text
de.rsmatriculas.Fields([Ô]data_inicio[Ô]) = txtdatini.Value
de.rsmatriculas.Fields([Ô]data_termino[Ô]) = txtdater.Value
de.rsmatriculas.Fields([Ô]plano[Ô]) = cboplan.Text
de.rsmatriculas.Update

de.rscaixa.AddNew
de.rscaixa.Fields([Ô]historico[Ô]) = [Ô]Matrícula Efetuada[Ô]
de.rscaixa.Fields([Ô]data[Ô]) = (VBA.Date)
de.rscaixa.Fields([Ô]hora[Ô]) = (VBA.Time)
de.rscaixa.Fields([Ô]forma[Ô]) = cboplan.Text
de.rscaixa.Update

MsgBox [Ô]Matrícula Efetuada com Sucesso!![Ô], vbInformation, [Ô]Gravação Bem Sucedida[Ô]

End If



Desde já agradeço.
XXXANGELSXXX 19/11/2011 13:38:58
#389483 Resposta escolhida
blza.. mas em qual linha especificamente ta dando o erro?, nao entendi muito bem o que esta querendo... mas tipo assim, porque voce nao abre um rs com uma consulta no banco a partir de uma informacao qualquer, tipo cpf, busca todos os dados se ja existir, e manda ele gravar esse rs.
Tópico encerrado , respostas não são mais permitidas
Voltar