SoloCodigo

Mil gracias ¡¡

Voy a insertar los comandos que me mencionas y te aviso si salio bien

En que parte de mexico anduviste ??

Mil gracias y saludos.

Hola a Todos.

Tengo un sistema integral de administracion desarrollado in house en visual basic 6, utilizando para los reportes crystal reports 7. la base de datos central es access200. el programa funciona bastante bien, el asunto es que le acabo de incluir unos formularios para consultas de saldos de clientes entre fechas con reporteador en crystal reports. si abro el sistema y ejecuto cualesquiera de las consultas por fechas lo ejecuta bien, hasta que desde ahi ejecuto uno de los reportes que no consultan fechas, entonces me nada en error de "invalid formula name" el error ocurre tambien de manera inversa, si ejecuto una de las consultas anteriores todo va bien hasta que intento ejecturas una de las que incluyen fechas..otra vez el error. el codigo base que utilizo desde VB para las consultas por fechas es :
Private Sub BtnPrint_Click()
Dim RESP
    If IsDate(MskMin.Text) And IsDate(MskMax.Text) Then
        MiSQL = "Delete * from TMP_TOTALXSUC"
        Midb.Execute MiSQL
       
        RESP = MsgBox("Desea imprimir todos los Clientes/No=Imprime actual", vbYesNo + vbInformation)
        If RESP = vbYes Then
        'imprime todas las sucursales
            MiSQL = "Select t.idcliente, t.fecha, t.idsuc, t.idtrabajo, t.folio_orden, t.nnota_cli, s.total, s.consecsa, ds.consecsa, " & _
                    "ds.idmaterial from TRABAJOS t, SALIDAS s, DETSALIDA ds where t.fecha between CDate('" & MskMin.Text & "') And CDate('" & MskMax.Text & "') " & _
                    "and s.idtrabajo = t.idtrabajo and " & _
                    "t.status = 'A' and s.status = 'A'" & _
                    " and s.consecsa = ds.consecsa and s.status = 'A' and t.status = 'A' "
        Else
        'imprime solo la seleccionada
            MiSQL = "Select t.idcliente, t.fecha, t.idsuc, t.idtrabajo, t.folio_orden, t.nnota_cli, s.total, s.consecsa, ds.consecsa, " & _
                    "ds.idmaterial from TRABAJOS t, SALIDAS s, DETSALIDA ds where t.fecha between CDate('" & MskMin.Text & "') And CDate('" & MskMax.Text & "') " & _
                    "and s.idtrabajo = t.idtrabajo and " & _
                    "t.status = 'A' and s.status = 'A'" & _
                    " and s.consecsa = ds.consecsa and s.status = 'A' and t.status = 'A' " & _
                    " and t.idcliente = " & Val(CmbIdSuc.Text)
        End If
               
        Set Rs = Midb.OpenRecordset(MiSQL)
        If Rs.RecordCount > 0 Then
        demo = ""
            Do While Not Rs.EOF
            If Rs!idtrabajo <> demo Then
                Set rsTem = Midb.OpenRecordset("TMP_TOTALXSUC")
                    rsTem.AddNew
                        rsTem!idcliente = Rs!idcliente
                        rsTem!Fecha = Rs!Fecha
                        rsTem!IdSuc = Rs!IdSuc
                        rsTem!idtrabajo = Rs!idtrabajo
                        rsTem!Folio_orden = Rs!Folio_orden
                       rsTem!nnota_cli = Rs!nnota_cli
                        rsTem!total = Rs!total
                        rsTem!IdMat1 = Rs!idmaterial
                    rsTem.Update
                rsTem.Close
                demo = Rs!idtrabajo
            Else
                MiSQL = "select * from TMP_TOTALXSUC where idtrabajo = " & Rs!idtrabajo
                Set rsTem = Midb.OpenRecordset(MiSQL)
                    rsTem.Edit
                        rsTem!IdMat2 = Rs!idmaterial
                    rsTem.Update
                rsTem.Close
            End If
                Rs.MoveNext
            Loop
        End If
        Rs.Close

        Main.CryRep.ReportFileName = App.Path & "reportstotalXclif.rpt"
        Main.CryRep.Formulas(0) = "rango='" & MskMin.Text & " al " & MskMax.Text & "'"
        Main.CryRep.DiscardSavedData = True
        'Queda pendiente
        'Main.CryRep.SelectionFormula = "{TMP_TOTALXSUC.fecha} &  in & cdate(MskMin.Text) &  to cdate(MskMin.Text)"
       
        Main.CryRep.WindowState = crptMaximized
        Main.CryRep.Action = 1
    End If
End Sub

-- y el que ejecuto para las otras es :

Private Sub BtnReport_Click()
    If OptRep(0).Value = True And Len(TxtClv.Text) > 0 Then
        CryExt.ReportFileName = App.Path & "reportsexistencias.rpt"
        CryExt.SelectionFormula = "{EXISTENCIAS.IDMATERIAL} = '" & TxtClv.Text & "'"
    End If
   
    If OptRep(1).Value = True And CmbRan1.ListIndex <> -1 And CmbRan2.ListIndex <> -1 Then
        CryExt.ReportFileName = App.Path & "reportsexistencias.rpt"
        CryExt.SelectionFormula = "{EXISTENCIAS.IDMATERIAL} in '" & GetIdMaterial(CmbRan1) & "'" & " to '" & GetIdMaterial(CmbRan2) & "'"
    End If
   
    If OptRep(2).Value = True Then
        CryExt.SelectionFormula = ""
        CryExt.ReportFileName = App.Path & "reportsexistencias.rpt"
    End If
   
    If OptRep(3).Value = True Then
        CryExt.ReportFileName = App.Path & "reportsexistencias.rpt"
        CryExt.SelectionFormula = ValFiltrado
    End If
   
    If OptDes(0).Value = True Then
        CryExt.Destination = crptToWindow
    ElseIf OptDes(1).Value = True Then
        CryExt.Destination = crptToPrinter
    End If
   
    If OptDes(0).Value = False And OptDes(1).Value = False Then
        MsgBox "Seleccione el destino para el reporte!", vbCritical + vbOKOnly, Me.Caption
        Exit Sub
    End If
   
    If CryExt.ReportFileName = "" Then
        MsgBox "Introduzca un criterio valido para mostrar el reporte!", vbCritical + vbOKOnly, Me.Caption
        Exit Sub
    End If
    CryExt.DiscardSavedData = True
    CryExt.WindowTitle = "Reporte de existencias - Servicios Opticos Integrales"
    CryExt.WindowState = crptMaximized
    CryExt.Action = 1
End Sub

Private Sub BtnRestaurar_Click()
    CmbProv.ListIndex = -1
    CmbMat.ListIndex = -1
    CmbTMat.ListIndex = -1
    CmbCaract.ListIndex = -1
End Sub

Private Sub CmbIdMat_Click()
    CmbMat.ListIndex = CmbIdMat.ListIndex
End Sub

Private Sub CmbIdProv_Click()
    CmbProv.ListIndex = CmbIdProv.ListIndex
End Sub

Private Sub CmbIdTmat_Click()
    CmbTMat.ListIndex = CmbIdTmat.ListIndex
End Sub

Private Sub CmbProv_Click()
    CmbIdProv.ListIndex = CmbProv.ListIndex
    CmbMat.Clear
    If CmbProv.ListIndex <> -1 Then
        Load_materiales
    End If
    CmbMat.SetFocus
End Sub

Private Sub CmbTMat_Click()
    CmbIdTmat.ListIndex = CmbTMat.ListIndex
End Sub

Private Sub Command1_Click()

End Sub

---
alguna sugerencia ??
Un saludo desde mexico.