PROBLEMA COM O CRYSTAL

USUARIO.EXCLUIDOS 20/07/2005 17:33:47
#95231 Resposta escolhida

qual a linha de comando que gera o erro??
o banco pode estar sendo usado no momento em modo exclusivo, ou ter sido mudado de lugar, ainda inumeros outros fatores.
como esta definindo o local do banco???

CEDAHMER 20/07/2005 17:41:06
#95233

O código q estou uzando é o seguinte:

Set ggCons = ggDB.CreateQueryDef("ProblemaConsulta", "SELECT Problema.Código, Setor.Setor, Problema.Descrição, Problema.SugestãodeSolução, Problema.DataReclamação, Problema.Urgente, Problema.Resolvido, Problema.DataResolução, Problema.Solicitado, Problema.DataSolicitação FROM Setor INNER JOIN Problema ON Setor.Código = Problema.CodSetor;")

Report1.DataFiles(0) = App.Path + "\Não Conformidade em SIGAA.mdb"
Report1.ReportFileName = App.Path + "\Não Conformidade1.rpt"
Report1.WindowTitle = "Não Conformidades"

Report1.Destination = 0
Report1.Action = 1

ggDB.QueryDefs.Delete ggCons.Name
ggDB.Close

o depuradoir de erros para na linha Report.Action = 1

O banco de dados não é aberto de forma excluiva, e está setado, pois ao mesmo tempo ele salva dados no mesmo...

USUARIO.EXCLUIDOS 20/07/2005 17:45:41
#95234

por desencargo de consciencia, altere de:
Report1.DataFiles(0) = App.Path + "\Não Conformidade em SIGAA.mdb"
Report1.ReportFileName = App.Path + "\Não Conformidade1.rpt"
para
Report1.DataFiles(0) = App.Path & "\Não Conformidade em SIGAA.mdb"
Report1.ReportFileName = App.Path & "\Não Conformidade1.rpt"

utilize o & para concatenar.
se colocar nesta sequencia, tambem funciona???

ggDB.QueryDefs.Delete ggCons.Name
ggDB.Close
Report1.DataFiles(0) = App.Path & "\Não Conformidade em SIGAA.mdb"
Report1.ReportFileName = App.Path & "\Não Conformidade1.rpt"

CEDAHMER 20/07/2005 17:53:19
#95235

ok obrigado pela dica... o problema era imcompatibilidade com o mdb 2000, mas tua dica de ordenar vai resolver outro problema meu....

muito obrigado!