CRIAR RELATORIO COM DATAREPORT E DATAENVIRONMENT

EVERSON.PASETTO 10/11/2010 17:58:13
#357160

Tenho um codigo assim:
Private Sub Cmdexportar_Click()
[ô]rotina que fecha o relatorio caso ele tiver aberto e gera um novo

Set DataReport6 = Nothing
Set DataEnvironment4 = Nothing

If fDadosValidos Then

If cboNome.ListIndex > -1 Then
txtNome.Text = cboNome.Text
End If

If txtNome.Text = [Ô][Ô] Then
txtNome.Text = [Ô] [Ô]
End If

If txtCupom = [Ô][Ô] Then
txtCupom = [Ô] [Ô]
End If

MousePointer = 11
DataEnvironment4.rsCommand1.Open


DataEnvironment4.rsCommand1.Filter = [Ô] NroCupom like [ô]%[Ô] & txtCupom.Text & [Ô]*[ô] and NomeCli Like [ô]%[Ô] & txtNome.Text & [Ô]*[ô][Ô]

DataReport6.Show
DataEnvironment4.rsCommand1.Close
MousePointer = 0
End If
End Sub

Mas notem.. se txtNome ou txtCupom for = [Ô][Ô] (vazio) da erro na hora de pesquisar..
Erro 3001: Os argumentos são incorretos, estão fora do intervalo aceitavel, ou estão em conflito.

Gostaria de usar uma outra formula sem precisar criar a rotina acima de acrescenter um [Ô] [Ô] na pesquisa...
E tb no banco de dados Access tenho que salvar todos os dados com um [Ô] [Ô] espaço na frente de todos os dados..

Ou melhor.. como faço para gerar relatorios usando DataRepor e DataEnvironment.. gostaria de uma formula melhor.. que não de erros..

Obrigado e até +