Estoiu tentando abrir um relatorio no Crystal 6.0 o código é o seguinte:

 

CR1.ReportFileName = App.Path & "sendmailSENDMAIL.rpt"
CR1.Destination = crptToMAIL
CR1.WindowState = crptMaximized

Dim valor As String
valor = txtFields(0).Text
    CR1.SelectionFormula = "{TAB_SINISTROS.ID_SINISTRO} = " & valor

CR1.RetrieveDataFiles
CR1.Action = 1

 

quando vo exeutar me da o erro, informando que: A String is Required Here (Uma string é requerida aqui) o que pode ser?

 

abraços

Miro maneira correta de abrir relatorios no crystal e passar dados atraves de string :

Private Sub cmdCadastro_Click()
On Error GoTo Trata_Erro

Dim lFormulaCC   As String
'Captura data inicial
lFormulaCC = "{cadastro.Equipe} = '" & Equipe.Text & "'"

Me.MousePointer = 11
    Crp.DataFiles(0) = App.Path & "olao.mdb"
    Crp.ReportFileName = App.Path & "cadastro.rpt"
    Crp.SelectionFormula = lFormulaCC
    Crp.WindowState = crptMaximized
    Crp.Destination = crptToWindow
    Crp.Action = 1
Me.MousePointer = 0
   

Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou uma EQUIPE VÁLIDA!!!!"
End Sub

 

 

Agora maneira correta de passar valores com data :

 

Private Sub CmdConsulta_Click()
On Error GoTo Trata_Erro

Dim lFormulaFFF   As String
'Captura data inicial
lFormulaFFF = "({bolão.Data} = DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
lFormulaFFF = lFormulaFFF & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
lFormulaFFF = lFormulaFFF & " and {bolão.Local} ='" & LocalC.Text & "' "

Me.MousePointer = 11
   
    Crp.DataFiles(0) = App.Path & "olao.mdb"
    Crp.ReportFileName = App.Path & "classificação.rpt"
    Crp.SelectionFormula = lFormulaFFF
    Crp.WindowState = crptMaximized
    Crp.Destination = crptToWindow
    Crp.Action = 1
    Me.MousePointer = 0

Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"

End Sub

 

 

Algumas dicas :