Bom dia amigos,

 

Desenvolvi um sistema no qual estou usando o crystal report para gerar meus relatorios, mas o problema é: CRYSTL32.OCX.

 

Será que todo mundo tem problemas na hora de registrar essa OCX, como eu faço para que essa ocx seja registrada normalmente como as outras, ou seja, sem me da problemas.

 

Eu estou gerando meu disco de instalacao no XP, seria isso um problema?

 

Se alguem ja teve esse problema e encontrou a solução, por favor me mostre, pois toda vez q vou instalar um sistema ocorre esse problema (CRYSTL32.OCX)

 

No aguardo agradeço...

Tive problemas com intalação no win2000, então usei a dica abaixo com algumas modificações, é esta funcionando até hoje.

 

é eu vi essa sua dica, mas nao consegui configura para meu sistema, pois, no modo antigo, eu seja, eu tenho um forma onde estabeleço criterios para filtrar os registros.

 

Desse forma que vc esta usando, como vc fez, vc poderia me passar um modelo para eu ver como fazer aqui....

 

 

Que tipo de criterio vc. está usando para filtrar os registros, para que eu possa te passar um modelo mais adequado as suas necessidades.

entao, o codigo é o seguinte:

 

If Option2.Value = True Then
Dim AnoSel2 As Variant
AnoSel2 = Empty
Select Case MenuPat.Label1
    Case "1"
        AnoSel2 = "Pat01.mdb"
    Case "2"
        AnoSel2 = "Pat02.mdb"
    Case "3"
        AnoSel2 = "Pat03.mdb"
    Case "4"
        AnoSel2 = "Pat04.mdb"
    Case "5"
        AnoSel2 = "Pat05.mdb"
End Select

If Text5.Text = Empty Then
    MsgBox "Digite a data inicial!!!", vbInformation, "ATENÇÃO USUÁRIO"
    Exit Sub
End If
If Text1.Text = Empty Then
    MsgBox "Digite a data final!!!", vbInformation, "ATENÇÃO USUÁRIO"
    Exit Sub
End If
    With CrystalReport1
          MsgBox "Clique em OK" & Chr(13) & "" & Chr(13) & "E aguarde para visualizaçao do relatório!!!", vbInformation, "ATENÇÃO USUÁRIO"
          .ReportFileName = App.Path & "RelPat.rpt"
          .SelectionFormula = "{CadBem.DtAquis} >=date(" & Format(Text5.Text, "yyyy,mm,dd") & ") and {CadBem.DtAquis} <=date(" & Format(Text1.Text, "yyyy,mm,dd") & ")"
          .DataFiles(0) = AnoSel2
          .CopiesToPrinter = 1
          .DiscardSavedData = True
          .Destination = crptToWindow
          .WindowState = crptMaximized
          .WindowTitle = "Controle Patrimonial - Relatórios dos Patrimônios"
          .Action = 1
          AnoSel2 = Empty
    End With
End If

 

1 - Conforme vc viu o codigo, essa pesquisa é por periodo de data, mas primeiro o relatorio tem que ser aberto de acordo com o codigo que o usuario escolher, ou seja, a empresa, vc viu que tenho referente a 5 codigo,  para cada codigo tenho um banco, isso nunca ira mudar, da forma que eu uso, isso funciona beleza, mas da forma que vc me falou na consigo adequar para minhas necessidades.

 

2 - quanto form eu preciso para fazer da forma que vc me falou, pois, pelo que eu vi o relatorio e exibido num form, e os criterios para selecao é feita em outro, como fazer com que isso funcione.

 

vc poderia me explicar???? ou mandar um exemplo???