SoloCodigo

Salu2. me vas a perdonar pero tu código me tiene en la luna. yo pienso que está mal hecho, pero solo es una opinión, .

=======================
Primero declaras como string yy le metes una SELECT

Y luego lo comparas con un campo FECHA¿?, toy en el aire lo siento.

Dim Rango As String
Rango = "Select * From MASIVOS Where (Fecha>=" & "'" & DTPickFechaDesde & "'"
Rango = Rango & " And Fecha<='" & DTPickFechaHasta & "')"

If Rango = RsMasivos!Fecha Then

osea, si select patatin = a fecha, no coincidira nunca.

=======================

Si habres una taba conrestricciones se supone que solo coge lo que tu le has dicho, tu problema no lo veo.
Ya me perdonarás pero tendras que explicarte mejor.

A ver si este código te acara algo:
=============================
Set BasePrincipal = OpenDatabase(PathDeBase)
ValStr = "SELECT * FROM Citas WHERE (Fecha>=" & "'" & FechaIni & "'"
ValStr = ValStr & " And Fecha<='" & FechaFin & "')"
 
  If GNCli <> 0 Then
  ValStr = ValStr & " And IdCliente=" & DameInt(Mid$(Clientes.Text, (Len(Clientes.Text) - 3)))
  End If
 
ValStr = ValStr & " ORDER BY Fecha;"
Set AbreTabla = BasePrincipal.OpenRecordset(ValStr, dbOpenDynaset, dbReadOnly)

  If AbreTabla.EOF Then
  AbreTabla.Close
  BasePrincipal.Close
 
  PulsaS 0, "No tiene trabajos realizados entre las fechas introducidas", "0 TRABAJOS", vbInformation
  Exit Function
 
  End If

Tabla1.Redraw = False

  AbreTabla.MoveFirst
  While Not AbreTabla.EOF
 
  Tabla1.Rows = (Tabla1.Rows + 1)
  Tabla1.Row = (Tabla1.Rows - 1)
 
  Tabla1.TextMatrix(Tabla1.Row, 0) = "" & AbreTabla!Trabajo
  Tabla1.TextMatrix(Tabla1.Row, 1) = "" & GiraFecha(AbreTabla!Fecha, 4)
  Tabla1.TextMatrix(Tabla1.Row, 2) = "" & Mid$(AbreTabla!HoraI, 1, 2) & ":" & _
  Mid$(AbreTabla!HoraI, (Len(AbreTabla!HoraI) - 1))
  Tabla1.TextMatrix(Tabla1.Row, 3) = "" & Mid$(AbreTabla!HoraF, 1, 2) & ":" & _
  Mid$(AbreTabla!HoraF, (Len(AbreTabla!HoraF) - 1))
  Tabla1.TextMatrix(Tabla1.Row, 4) = "" & AbreTabla!Precio
   
    If AbreTabla!cobrado = 0 Then
    Tabla1.TextMatrix(Tabla1.Row, 5) = "No"
    Tabla1.Col = 5
    Tabla1.CellBackColor = &H80&      'blanco -2147483643
    Else
    Tabla1.TextMatrix(Tabla1.Row, 5) = "Si"
    Tabla1.Col = 5
    Tabla1.CellBackColor = 90 * QBColor(10)
     
    End If
  Tabla1.TextMatrix(Tabla1.Row, 6) = "" & AbreTabla!IdCliente
  Tabla1.TextMatrix(Tabla1.Row, 7) = "" & AbreTabla!IdCita
 
  AbreTabla.MoveNext
  Wend

============================================

Te he mandado un E-Mail, con el prog, pero me lo han devuelto así que o bien no tienes espacio, 1.4mb, o no se que ha pasado. abisame dónde puedo mandarte el radmin y nos ponemos en marcha. tengo la sensación de que lo que crees es que hace pagos en los bancos, y no es así solo controla en que bancos fue hecho el ingreso de la factura. hay 5 posibilidades porque permite pago en 5 plazos con fechas de vencimiento y demás.

Pos eso dime donde puedo mandarte 1.4mb sin que me lo devuelvan y lo ves tu mismo.

Salu2.

====================================================
Podemos hacer otra cosa, dime que quieres exactamente, cuanto ofreces, y si me parece correcto te creo uno adecuado a tus necesidades.
+ Salu2.

No creo que puedas, lo empece en el 99, y lo di por cerrado el 2002, despues de actulizarle y cambierle cosas que no acabaron de gustarle. y lo vendi por 2.000.000 de pesetas :-)

Que lo quieres ver, perfecto, te conectas a mi pc y lo ves, si puedes sacar alguna idea me alegro. dime si tenes un prog que se llama Radmin sino te lo mando y te digo como interactuas con mi pc. en un momento dado te paso el codigo de las facturas nada mas, además tiene formas de pago en 5 fechas dependiendo del cliente los dias exigidos por la empresa a la que se vende. uff te voy a volver loco.

Bueno, a lo dicho estoy dispuesto a darte el codigo de facturación, pero dudo que así puedas acoplarlo a ningun site, tendrás que generarte uno para ti partiendo de ese, es a medida, ya te dije.

salu2.

primero pones el valor de la var Col del control msflexgrid, numero de columnas que tendrá el control.

Yo suelo dejar la linea 0, osea Row, para títulos. para meter datos se usa el controlgrid.textmatrix(linea,col)=a text o num, es =.

ten cuidado tanto si no existe la linea como si cno existe la col te dara un error irrecuperable y se bloqueará.

en el VB5 no admitia campos NULL, otra cosa a tener en cuenta, procura meter todo como text osea:

texto
tabla1.textmatrix(editalinea,editacol)=  "" & VAR así evitas el Null

numerico
tabla1.textmatrix(editalinea,editacol)=  "" & str(VAR)

Espero haberte podido ayudar. Salu2.

Te adjunto un ejemplo de como hago los msflesgrid.

Salu2. lo veo fácil o no entiendo muy bien lo que dicessolo tienes que pedir al usuario que elija los materiales que quiere introducir al pedido por ejem. con MsFlexGrid.

Te dejo un archivo .doc de como facturo en 1 programita mio

Ese Form factura albaranes pendientes, es el usuario el que opina los albaranes qu se han de facturar. pero siempre se puede hacer automático.

Salu2.
Darkjoss, podrias mandarm,e un ejemplo de como lees de un var.text o en su defecto de un archivo .txt.

   Entré en el mismo links y baje los ficheros que decia

agtx0c0a.exe
lhttsspe.exe
msagent.exe
spchcpl.exe, este, que es la prueba solo lee el ingles bien y desde su propio prog que se pone en el panel de control de windows, ya que su idioma es inglés.

te agradeceria mucho que me echaras una mano con los comandos si está en tus manos. notengo mucho que ofrecer de programación ya que soy un poco de la antigua remesa, y me custa mucho adaptarme a las nuevas tecnologias, si te sirven DiVX, DoCus, SeRieS, y Demás, eso si te podría ofrecer

Sagutxo.

Salu2, CPmario, como puedo conseguir el service pack 6, en la pag de microsoft solo veo hasata el 5, si puedes ayudarme te lo agradeceré mucho.

Gracias.

Pos no se por que te pasa, lo siente, ese mismo error me dio a mi una vez al cometer un error de instalacion. intente meter en el win2000 algo compilado en WinXP.

   Lo siento, si me entero de algo prometo contestarte.

Salu2.

Salu2.

   tienen los mismo sistemas operativos la makina donde creaste el setup y la makina donde instalas la aplicación ?

Buenas, soy nuevo en este foro y no estoy seguro de tener que poner akí mi petición de ayuda. Si no es así perdón, espero hacerlo bien la próxima vez.

Tengo un problema con crystal report haciendo el report interno, mientras lo compile y ejecute en la makina que se está creando el prog MIO, todo va bien pero al instalarlo en otra makina en la que no existe ni VB ni crystal me da este error al ejecutar el informe desde mi aplicación, "PHYSICAL DATABASE NOT FOUND", os agradeceria muchísimo que pudierais ayudarme , pues no tengo ni idea de por donde cogerlo   . Intentesolventar el problema haciendo una llamada a un RPT en vez de hacerlo interno pero me da error en servidor SQL, y tampoco se que es.

MUCHAS GRACIAS.
P.D.Me he registrado hoy en este foro y tengo que deciros que me ha ayudado mucho ya  
Sagutxo.

=================================================
He descubierto la razón de mi primer error: "PHYSICAL DATABASE NOT FOUND".
Parece ser que es el path a la DB de access, pero al NO ponerle path de destino a la DB supuestamente lo deberia de coger del path del report pero no es así. se desplace a unidad:\, osea, Raiz de unidad, a buscar la DB.