Estou na batalha no meu problema
fiz o seguinte código
Dim db As Database
Dim db2 As DAO.Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim rs4 As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TblRom")
Set rs1 = db.OpenRecordset("tblProdutos")
e abri as tabelas TblRom e TblProdutos.
posicionei o cursor no primeiro registro da TblRom com rs.MoveFirst
agora quero passar o valor de rs("ClienteRom") para a variavel rs2 fiz assim
Set rs2= rs.OpenRecordset("ClienteRom") ====== ai que está o ocorrendo o erro
"erro 3421
erro de conversão de tipos de dados" ===== se tento dessa outra maneira
Set rs2= rs("ClienteRom")====== Da tipos Incompativeis
Quero atribuir para está variavel o valor porque tenho que inserir novo registro baseado nesse registro na Tabela "TblRom"
depois disso faço um loop e passo para para o proximo registro com rs.MoveNext
todos os dados são Números.
agradeço se alguem puder me ajudar
fiz o seguinte código
Dim db As Database
Dim db2 As DAO.Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim rs4 As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TblRom")
Set rs1 = db.OpenRecordset("tblProdutos")
e abri as tabelas TblRom e TblProdutos.
posicionei o cursor no primeiro registro da TblRom com rs.MoveFirst
agora quero passar o valor de rs("ClienteRom") para a variavel rs2 fiz assim
Set rs2= rs.OpenRecordset("ClienteRom") ====== ai que está o ocorrendo o erro
"erro 3421
erro de conversão de tipos de dados" ===== se tento dessa outra maneira
Set rs2= rs("ClienteRom")====== Da tipos Incompativeis
Quero atribuir para está variavel o valor porque tenho que inserir novo registro baseado nesse registro na Tabela "TblRom"
depois disso faço um loop e passo para para o proximo registro com rs.MoveNext
todos os dados são Números.
agradeço se alguem puder me ajudar