Olá,

Passei a usar o crystal 8.5 no lugar do 4.6

Criei os novos relatórios pelo CR8.5  e a Sub abaixo está no FrmPrint para chamá-los

Essa que tem fórmula dá erro no CR8.5 e no CR4.6 não

O que está errado na fórmula?

Para o CR8.5 seria diferente?

Na tela de erro dá direitinho as variáveis dentro da expressão da formula

{Customer.Cargo} = Carcereiro

 

If Option1(5).Value = True Then '
           
        Dim strCargo As String
        Dim strValor As String
       
       
        strCargo = Combo1Rel.text
        strValor = Combo2Rel.text
       
        With cr1
            .WindowState = 2
            .DataFiles(0) = GetAppPath() & "Cust.MDB"
            .ReportFileName = GetAppPath() & "Report1.rpt"
            .SelectionFormula = "{Customer." & strCargo & "} = '" & strValor & "'"
            .Action = 1
        End With
       
      End If

 

Flecha

J. Carlos,

Na strcargo pega o item da combox1 no formulário de impressão e a strvalor pega o item da combo2, pois ele vai escolher o que quer imprimir: escolhe a Função Cargo que é o campo do registro que contem os cargos "Carcereiro","Agente", "Investigador" e depois ele escolhe o Exercicio que é outro campo do registro que é o local de trabalho pode ser "Capturas", "Deatur", Viracopos".

Dessas escolhas ele monta a formula que é atribuida as strsCargo e Valor e coloca na string da fórmula.

 

Pelo report do 4.6 tá beleza, ai eu criei o report identico só que pelo CR8.5 e coloquei no lugar do outro com o mesmo nome, sem a fórmula funciona, mas com a formula dá o erro:

20515 ele cita a string montada com os valores certinho, mas informa que:

This Field Name is not Known.

Ele acho o relatório, é a formula que ele não reconhece, não sei...

 

Flecha 

RESOLVIDO.

 

Pessoal, descobri que na String da formula não entra o nome da Tabela e sim {ADO.campo da minha tabela}.

 

Só isso e funcionou como deveria funcionar.

 

Obrigado a todos.

Felcha