Olá Pessoal...
ALGUÉM PODE ME AJUDAR?
(...) Não consigo entender o porquê que o "Crystal" não põe o último
número como o informado no segundo texbox do VB. O disparo é o
mesmo entre intervalos de datas, só que esse é entre intervalos
de números...(Veja abaixo o exemplo). ==============================================================
* VB (Código)
-------------
Private Sub cmdImprimir_Click()
'Box p/ informar o número inicial
If txtNumIni.Text = "" Then
MsgBox "Digite o número inicial...", vbExclamation, "Advertência"
txtNumIni.SetFocus
Exit Sub
'Box p/ informar o número Final
ElseIf txtNumFin.Text = "" Then
MsgBox "Digite o número final...", vbExclamation, "Advertência"
txtNumFin.SetFocus
Exit Sub
'Box p/ informar o nome do clientes
ElseIf cboNome.Text = "" Then
MsgBox "Informe o nome do clientes...", vbExclamation, "Advertência"
cboNome.SetFocus
Exit Sub
Else
Dim numini
Dim numfin
Dim nomecl
numini = (txtNumIni.Text)
numfin = (txtNumFin.Text)
nomecl = (cboNome.Text)
End If
'Caminho do Banco de Dados
crimpressao.DataFiles(0) = App.Path & "clientes.mdb"
'Select Formula:
crimpressao.SelectionFormula = ("{QryNum.NOME} = '" & cboNome & "' AND {QryNum.IDNUM} >= " & txtNumIni & " AND {QryNum.NUMERO} <= " & txtNumFin & " ")
'Caminho do Relatório
crimpressao.ReportFileName = App.Path & "ecibo.rpt"
crimpressao.WindowTitle = "Relatório Resumido"
crimpressao.WindowState = crptMaximized
crimpressao.Destination = 0
crimpressao.Action = 1
End Sub
----------------------------------------------------------------------------
* CRYSTAL/RELATÓRIO:
--------------------
IMPRESSÃO C/ INTERVALOS DE NUMEROS
----------------------------------
EXEMPLO:
--------
NOME DO CLIENTE: ANA
Nº INICIAL: 1 - Nº FINAL: 3
OU ============================
NOME DO CLIENTE: BETO
Nº INICIAL: 3 - Nº FINAL: 5
============================
(...) NO EXEMPLO CITADO O Nº FINAL está imitando o Nº FINAL...
Como faço p/ corrigir???
Grato,