|
|
Postada em 03/11/2005 21:43 hs
Tenho o codigo abaixo, quando inicio a primeira tudo ok, mas a segunda aparece
o seguinte erro!
Run-time error 3705
Operação não permitida quando o objeto esta aberto
datainicial = Format(CDate(txt_data(0)), "dd/mm/yyyy")
datafinal = Format(CDate(txt_data(1)), "dd/mm/yyyy")
procura = cbocentrocusto.Text
procura1 = CboStatus.Text
db6.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "Biblio.mdb", , "Contas"
Set rs6 = db6.Execute("select * from Contas where cvdate(Vencimento)between datevalue('" & datainicial & "')and datevalue('" & datafinal & "') and (centrocusto) like '" & procura & "' and (status) like '" & procura1 & "'")
Set DataReport8.DataSource = rs6
DataReport8.Show
Unload Me
|
|
|
|
|
|
|
|
Postada em 04/11/2005 06:42 hs
Olá, você deve fechar o record set quando terminou a consulta, não é permitido fazer mais de um "show" sem abrir novamente o rs. Tente, fechá-lo no evento "QueryClose" do DataReport que deve funcionar para os próximos processamentos. Rogério. |
|
|
|
|
|
Postada em 04/11/2005 08:28 hs
Não consegui Rógerio, qual código necessário? Sou leigo no assunto... |
|
|
|
|
|
Postada em 04/11/2005 08:43 hs
Olá, eu abro a conexão e o recordset em uma Sub Main, e depois de processado o relatório com o método "show", quando encerro ou fecho o relatório eu uso o código abaixo : Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer) RecordSet.Close
Conexão.Close Set RecordSet = Nothing
Set Conexão = Nothing End Sub Eu uso o banco de dados SQL Server, com este procedimento funciona bem. Rogério. |
|
|
|
|
|
Postada em 04/11/2005 08:48 hs
Roberto faça como abaixo : ON ERROR RESUME NEXT datainicial = Format(CDate(txt_data(0)), "dd/mm/yyyy")
datafinal = Format(CDate(txt_data(1)), "dd/mm/yyyy")
procura = cbocentrocusto.Text
procura1 = CboStatus.Text
DB6.CLOSE
db6.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "Biblio.mdb", , "Contas"
Set rs6 = db6.Execute("select * from Contas where cvdate(Vencimento)between datevalue('" & datainicial & "')and datevalue('" & datafinal & "') and (centrocusto) like '" & procura & "' and (status) like '" & procura1 & "'")
Set DataReport8.DataSource = NOTHING
Set DataReport8.DataSource = rs6
DataReport8.Show
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 04/11/2005 08:55 hs
Rógerio obrigado pela dica, é que no meu caso ainda uso Access, vou partir para Sql logo espero, e Alexandre perfeito seu código Funcionou perfeitamente, muito Obrigado! Abraços Roberto |
|
|
|
