Olá... Pessoal,
Alguém poderia me ajudar?...
Criei um relatório no crystal 4.6, E no vb um botão ao ser clikado
abre uma caixa do inputbox para que seja informado o nome do
cliente a qual desejo imprimir.
# Exemplo:
Se for informado dentro do Inputbox um nome simples
Vejamos... (MATHEUS), o mesmo encontra e mostra no
relatório somente o nome informado. Mas se eu informar
Na mesma caixa o nome (MATHEUS ROCHA) ................
(RENATO SOUSA) ETC... existente no banco de dados
O mesmo não encontra? O relatório aparece em branco??
O que há de errado??? Alguém poderia me ajudar???
O CÓDIGO 
'----------------------------------------------------------------------------------
Private Sub_btnPrint_Click()
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "CadCli")
Set tb = db.OpenRecordset("TblCli", dbOpenDynaset)
dim busca as string,x as string
x=inputbox("Digite o nome do cliente a ser impresso!!")
If X = Empty Then Exit Sub
busca="Nome='" & x & "'"
tb.FindMin Busca
If tb.NoMatch = False Then
Me.MousePointer = 11
CrystalReport1.ReportFileName = (App.Path & "Cliente.rpt")
CrystalReport1.DataFiles(0) = (App.Path & "CadCli.mdb")
CrystalReport1.SelectionFormula = "{TblCli.Nome}='" & x & "'"
CrystalReport1.CopiesToPrinter = 1
CrystalReport1.Destination = crptToWindow
CrystalReport1.Action = 1
Me.MousePointer = 0
Else
MsgBox "Não existe ninguém com este nome no banco de dados"
End If
db.close
End Sub
'----------------------------------------------------------------------------------
Grato,
