Início
jntrindade 26/2/2012, 01:06norbs, vc poder baixar o exemplo e dividi o banco, então vc vera quando clicar no botão para transferir as informações.
5 participantes
[Resolvido]Reabrindo Orçamento x Venda
jntrindade- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009
jntrindade- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009
norbs quando eu clico no botão, aparece a mensagem e pede para depurar ai eu entro na area e fica marcado de amarelo a seguinte linha:
Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
Convidad- Convidado
Após dividir o bd, corrija no código do frmorcamento:
Substitua:
Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
por:
Set rs1 = db1.OpenRecordset("tblvenda", dbOpenDynaset)
Substitua:
Set rs2 = db1.OpenRecordset("tblvenda", dbOpenTable)
por:
Set rs2 = db1.OpenRecordset("tblpedido", dbOpenDynaset)
Convidad- Convidado
E ?
Aqui resolveu.
jntrindade- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 277
Registrado : 07/12/2009
boa dia, gostaria de agradecer em especial a Jungli e norbs, por terem me ajudado. Ficou perfeito agora, valeu mesmo pela ajuda e desculpem pelas vezes que fui insistente. Agora vou instalar o sistema para o cliente. valeu mesmo esse forum é demais. 
abrçs Jorge.
abrçs Jorge.
Convidad- Convidado
Da minha parte, estava te devendo uma ajudinha, já que lá no meio do tópico não pude dar continuidade.
Felizmente as soluções estão pela comunidade, como um código de Criquio, um exemplo de Regislange, uma ajuda de Jungli ...
Estamos todos contentes que tenha resolvido.
E este Resolvido faço questão de marcar.
Jungli- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 715
Registrado : 07/05/2010
Desculpe a demora em responder, dificilmente tenho tempo de acessar o fórum nos fins de semana...
(cursos, viagens ... )
Eu geralmente faço assim:
Substitua:
Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
por:
Set rs1 = db1.OpenRecordset("tblvenda")
Set rs2 = db1.OpenRecordset("tblvenda", dbOpenTable)
por:
Set rs2 = db1.OpenRecordset("tblpedido")
Faço minhas as palavras do mestre norbs...
Fico Feliz
em ajudar
(cursos, viagens ... )
Eu geralmente faço assim:
Substitua:
Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)
por:
Set rs1 = db1.OpenRecordset("tblvenda")
Set rs2 = db1.OpenRecordset("tblvenda", dbOpenTable)
por:
Set rs2 = db1.OpenRecordset("tblpedido")
Faço minhas as palavras do mestre norbs...
Fico Feliz em ajudar.................................................................................
"Somos o que repetidamente fazemos.
A excelência, portanto, não é um feito,
mas um hábito."
Aristóteles