Erro - m

[Alana 0]

Por Favor... me ajudem... eu sou nova na área.. mas preciso de ajuda aki.Esse erro não sai de maneira alguma... eu jah tentei todo tipo de ganbiarra... ERRO: This Action Was Cancelled by an associated object O erro acontece no momento do Update....Case "Salvar" liga (False) Frame1.Enabled = False Dim vcod As Long vcod = Val(Text3.Text) datConsulta.RecordSource = "select NomeEditora from Editoras where CodEditora= " & vcod & ";" datConsulta.Refresh If datConsulta.Recordset.EOF = False Then Label8.Caption = datConsulta.Recordset.Fields("NomeEditora").Value 'datLivros.Recordset.Edit datLivros.Recordset.Fields("CodEditoraLivros").Value = vcod datLivros.Recordset.Fields("NomeEditoraLivros").Value = Label8.Caption erro------> datLivros.Recordset.Update Else MsgBox "Editora não encontrada - Digite o código existente de editora", vbOKOnly, "Pesquisa de Editoras" End IfObrigada!

[slype 1]

Use seu SQL assim:"SELECT NomeEditora FROM Editoras WHERE CodEditora = '" & vcod & "'"-------------Confira tambem se seu RecordSet no DataEnvironment está como "Read Only" (Somente leitura)....Vá em Propriedades do RecordSet > Advanced > e em Lock Type selecione: "Optimistic"

[Alana 0]

Se eu usar esse codigo aki "SELECT NomeEditora FROM Editoras WHERE CodEditora = '" & vcod & "'" ele responde com essa mensagem de erro : DATA TYPE MISMATCH IN CRITERIA EXPRESSIONainda com problema no refresh...E eu não estou usando o DataEnvironment... estou usando um componente chamado DATA pra fazer a conexão com o banco de dados.

[Luizgrs 0]

Está dando esse erro, pois o seu campo codEditora deve ser numérico e vocês está jogando um valor no formato texto (a presença de ' ' significa isso) então você tem que tirá-los:

"SELECT NomeEditora FROM Editoras WHERE CodEditora = " & vcod

Quanto ao data dê uma olhada nas propriedades ReadOnly e RecordsetType, pois essas podem permitir ou não a alteração de dados.

[Alana 0]

Quando eu coloco esse código aqui:datConsulta.RecordSource = "select NomeEditora from Editoras where CodEditora= " & vcod & ";"é justamente pra impedir um erro quanto ao tipo de dado... já q no banco tah inteiro e no VB é texto.O problema é que eu quero que qndo uma pessoa digite o código em um campo, ele busque o nome automaticamente (que já foi gravado em outra tabela), e grave também esse nome e esse código em outra tabela. Conforme o código que eu mudei:

Case "Salvar" liga (False) Frame1.Enabled = False Dim vcod As Long vcod = Val(Text3.Text) datConsulta.RecordSource = "select NomeEditora from Editoras where CodEditora= " & vcod & ";" datConsulta.Refresh If datConsulta.Recordset.EOF = False Then Label8.Caption = datConsulta.Recordset.Fields("NomeEditora").Value datLivros.Recordset.Fields("CodEditoraLivros").Value = vcod datLivros.Recordset.Fields("NomeEditoraLivros").Value = Label8.Caption datLivros.Recordset.Update Else MsgBox "Editora não encontrada - Digite o código existente de editora", vbOKOnly, "Pesquisa de Editoras" End If

Só que eu já verifiquei o RecordOnly e o RecordSet.... o problema não é com eles... e continua com o mesmo erro.. já tentei o que vcs falaram aqui, porém o:

[Luizgrs 0]

Como você está abrindo o datLivros?