Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
QUANDO EXECUTO O SEGUINTE CIDUGO:Private Sub Command2_Click()Dim COD As StringCOD = Val(InputBox("digite me"))CrystalReport1.ReportFileName = "C:\Report\Report2.rpt"CrystalReport1.SelectionFormula = "{ALUNO.CODE}=" & CODCrystalReport1.Action = 1End SubDÁ O SEGUINTE ERROError in File C:\Report\Report2.rpt:Error in formula <Record_Selection>. '{ALUNO.CODE}=33'A string is required here.NO DEBUG O CURSO FICA NA LINHA DE CODIGO:CrystalReport1.Action = 1O QUE PODE ESTAR ERRADO?GRATO PELA AJUDA
o campo CODE é do tipo texto....
se CODE é texto, então a pesquisa deve ser feita com exatidão usando aspas, ou não, usando LIKEentão, se o CODE for 0009 então o Selection Formula deve ser {ALUNO.CODE}='0009'ou selecionar todos os CODES que começam por 7 {ALUNO.CODE} LIKE '7*'Flows
No caso ustlizo uma variavel do tipo String: CODseria então:Private Sub Command2_Click()Dim COD As StringCOD = Val(InputBox("digite me"))CrystalReport1.ReportFileName = "C:\Report\Report2.rpt"CrystalReport1.SelectionFormula = {ALUNO.CODE}= CODCrystalReport1.Action = 1End SubO estranho é que no debug o erro acontece na ultima linha:CrystalReport1.Action = 1
voce precisa por aspas simples no SelectionFormula.
SelecionFormula = "{ALUNO.CODE}='" & COD & "'"no final, o SelectionFormula fica {ALUNO.CODE}='0'
porque CODE é um campo do tipo texto
tendeu?
Agradeço muito a sua ajuda....Agora entendi.... vou testar....
Verifique se o campo CODE é numérico