[Resolvido]Relatório em Front-End desvinculado (erro 32585)

Carregando o relatório com o código abaixo dá o erro 32585 (Este recurso está disponível somente em ADP)



Private Sub Report_Open(Cancel As Integer)
'On Error Resume Next
Parametros_de_Inicializacao "SysApac.par"
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim StrDetento As String
Dim VarReg As String
Dim VarUnidade As String
Dim Rs As DAO.Recordset
VarReg = RegimeAtual
VarUnidade = UnidadeOrigem


Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(DirBancoDados & "\SysApac_Be.Accdb", False, False, "MS Access;PWD=senha")

'RecorSource
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nome da Mãe], Detentos.[Nível], Detentos.[Cela]," _
& "Detentos.[Sexo], Detentos.[Crime], Detentos.[Cela], Detentos.[RG/CPF], Detentos.[Data de Nascimento] " _
& "FROM Detentos WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"
Set Rs = db.OpenRecordset(StrDetento)
'RecorSource
Set Me.Recordset = Rs
End Sub



como pode ser sanado este problema?


Grato.

Hary,

lamento em informar que relatório não aceita o uso do SET para conectar um recordset. Funciona somente em projetos ADP, como diz a mensagem.

Ou vai ter que VINCULAR, usando uma SQL ou pode criar a tabela em tempo de execução para carregar o relatório.

Sucesso!

Como carregar neste caso Mestre, sendo que não tenho tabelas vinculadas e gostaria que a abertura do be tivesse senha como está ai...

Se puder me enviar um modelo para criar a tabela em tempo de excução... um norte...


Grato.

Eu utilizava este método anteriormente.. porém se o BD tiver senha não funciona


Private Sub Report_Open(Cancel As Integer)
On Error Resume Next
Parametros_de_Inicializacao "SysPen.par"
Dim dbBanco As Database
Dim StrDetento As String
Dim strPath As String
Dim NomeBD As String
Dim VarReg As String
Dim VarUnidade As String

VarReg = RegimeAtual
VarUnidade = UnidadeOrigem
NomeBD = "Syspen_be.accdb"

'String com path para conexão com a base de dados.
strPath = DirBancoDados & NomeBD
' Conecta ao banco de dados
' Se vc estiver tbls vinculadas use:
'Set dbBanco = CurrentDb()
Set dbBanco = OpenDatabase(strPath)

'RecordSource
StrDetento = "SELECT Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.[Nível], Detentos.[Cela], Detentos.[Anotações] FROM Detentos IN '" & strPath & "'" _
& "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"

Me.RecordSource = StrDetento
dbBanco.Close
Set dbBanco = Nothing
End Sub


Cumprimentos

Acompanhe este tópico.

http://maximoaccess.forumeiros.com/t7486-carregando-relatorios-em-front-end-desvinculado

Sucesso!

Boas Avelino, havia me esquecido deste excelente tópico...

Bem neste caso a solução proposta no início pelo Criquio me serve, porém esta a dar erro na Clausula From..

Nao sei se me estressei e não estou a enxergar o erro...


'RecorSource
StrDetento = "SELECT Nome & Space (1) & Sobrenome As Detento, [Nome da Mãe], Nível, Cela," _
& "Sexo, Crime, Cela, [RG/CPF], [Data de Nascimento] FROM Detentos in ''[;Database=" & CurrentProject.Path & "\Base\& SysApac.db;PWD=senha]" _
& " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"

Cumprimentos.

Seu erro pode estar na parte em vermelho

StrDetento = "SELECT Nome & Space (1) & Sobrenome As Detento, [Nome da Mãe], Nível, Cela," _
& "Sexo, Crime, Cela, [RG/CPF], [Data de Nascimento] FROM Detentos in ''[;Database=" & CurrentProject.Path & "\Base\& SysApac.db;PWD=senha]" _
& " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"

Bom, está ciente da vulnerabilidade de usar senha na propriedade RecordSource.

Existe uma alternativa mais simples, sem o uso do IN

Estrutura:

SELECT campos FROM [caminho;senha].tabelea WHERE filtro;

Experimente:

StrDetento = "SELECT Nome & Space (1) & Sobrenome As Detento, [Nome da Mãe], Nível, Cela, Sexo, Crime, Cela, [RG/CPF], [Data de Nascimento] "
StrDetento = StrDetento & "FROM [" & CurrentProject.Path & "\Base\SysApac.db;PWD=senha].Detentos "
StrDetento = StrDetento & "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"

Sucesso!

Claro mestre, o excelente tópico sobre isto, de onde se originou o protec diz tudo, porém este BD que estou fazendo é para um cliente em específico e não há necessidade de maiores proteção senão as comuns.

A propósito uma pergunta.. o protec é somente para relatórios ou para forms tambem? Utiliza-se ele na mesma instrução acima aplicada em forms?

Cumprimentos.

Hary,

o PROTEC foi liberado. Agora se encontra livremente no Maestro_v5.

Veja mais detalhes neste meu artigo abaixo:

http://www.usandoaccess.com.br/tutoriais/tuto50.asp?id=1#inicio

Bom estudo!

Avelino Sampaio

Deu o mesmo erro Avelino...





Set Ws = DBEngine.Workspaces(0)
Set db = Ws.OpenDatabase(DirBancoDados & "\SysApac_Be.Accdb", False, False, "MS Access;PWD=senha")

'RecorSource

StrDetento = "SELECT Nome & Space (1) & Sobrenome As Detento, [Nome da Mãe], Nível, Cela, Sexo, Crime, Cela, [RG/CPF], [Data de Nascimento] "
StrDetento = StrDetento & " FROM [" & CurrentProject.Path & "\Base\SysApac.db;PWD=senha].Detentos "
StrDetento = StrDetento & " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"

'RecorSource
Me.RecordSource = StrDetento 'Db.OpenRecordset(StrDetento)
End Sub



Cumprimentos.

Este código abaixo funciona em um form... mas a SQL no relatório dá erro de sintaxe na cláusula From..


VarReg = RegimeAtual
VarReg1 = RegimeAlbergue
VarUnidade = UnidadeOrigem

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(DirBancoDados & "SysApac_be.db", False, False, "MS Access;PWD=senha")

strPath = DirBancoDados & "SysApac_be.db"

StrDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & strPath & "'[Ms Access;PWD=Senha;DATABASE='" & strPath & "']" _
& "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "' or RegimeAtual='" & VarReg1 & "'" _
& "Order By Nome, Sobrenome ASC;"





Cumprimentos.

Boas Avelino... tem alguma ideia de como sanar isto?

Obrigado.

Amigos estou ja nesta parte e precisava resolver isto.

Alguma ideia?

Cumprimentos.

Por ora resolvi assim:

Sub CarregaForm()
Parametros_de_Inicializacao "SysApac.par"
Dim db As DAO.Database
Dim Rs As DAO.Recordset
Dim Ws As DAO.Workspace
Dim StrDetento As String
Dim nomeBd As String
Dim VarReg As String
Dim VarUnidade As String
Dim StrTabela As String
    
    VarUnidade = UnidadeOrigem
    VarReg = RegimeAtual
Set Ws = DBEngine.Workspaces(0)
Set db = Ws.OpenDatabase(DirBancoDados & "\SysApac_Be.db", False, False, "MS Access;PWD=senha")
    
'RecordSource
StrDetento = "SELECT ID,Nome, Sobrenome,Endereço,Cidade, Estado FROM Detentos WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "';"
StrTabela = "SELECT ID, [Nome] & Space (1) & [Sobrenome] As Detento ,Endereço,Cidade, Estado FROM DetentosTMP;"

Set Rs = db.OpenRecordset(StrDetento)
Rs.MoveFirst
Do While Not Rs.EOF
    CurrentDb.Execute "INSERT INTO DetentosTMP(ID,Nome, Sobrenome,Endereço,Cidade, Estado)" _
                                      & " Values(""" & Rs(0) & """,""" & Rs(1) & """," _
                                      & """" & Nz(Rs(2), "") & """, """ & Nz(Rs(3), "") & """, """ & Nz(Rs(4), "") & """, """ & Nz(Rs(5), "") & """);"
    Rs.MoveNext
Loop
Me.RecordSource = StrTabela

db.Close
Set db = Nothing
End Sub

Cumprimentos.