USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  VB+Crystal - Intervalos de Números
Robsonslz
SÃO LUÍS
MA - BRASIL
ENUNCIADA !
Postada em 14/07/2005 18:13 hs            
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,
   
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 19/07/2005 17:22 hs            
 
         Tente assim:
 
         crimpressao.SelectionFormula = ("{QryNum.NOME} = '" & cboNome & "'  AND {QryNum.IDNUM} between " & txtNumIni & "  AND   " & txtNumFin & " ")
 
 
   
Robsonslz
SÃO LUÍS
MA - BRASIL
ENUNCIADA !
Postada em 20/07/2005 19:08 hs            
Blz!
 
Grato,
 
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página