Visual Basic - Otra ayudita, por favor

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Otra ayudita, por favor

Publicado por Vero (106 intervenciones) el 21/01/2004 00:44:01
En una caja de texto tengo una fecha inicial, normalmente correspondiente a las fechas de las facturas, lo que quiero es que después de introducir una fecha, me muestre en los combo box las facturas a partir de esa fecha.
Pongo aquí el código, a ver si me podeis ayudar:

Private Sub mskFechaInicial_LostFocus()
dFecha = Format(mskFechaInicial.Text, "dd/mm/yy")
Dim vFactura As Variant
cSQL2 = "SELECT Facturas.Id_Factura, Facturas.Num_factura, Facturas.Año_factura, Facturas.Fecha_factura"
cSQL2 = cSQL2 & " FROM Facturas"
cSQL2 = cSQL2 & " ORDER BY Val(Facturas.Año_factura) DESC, Val(Facturas.Num_factura) DESC;"
Set rcsFacturas = dbBaseDatos.OpenRecordset(cSQL2, dbOpenSnapshot)
rcsFacturas.MoveFirst
Do While Not rcsFacturas.EOF
If rcsFacturas("Fecha_factura") >= dFecha Then
nNumFactura = Val(rcsFacturas("Num_factura"))
nAñoFactura = Val(rcsFacturas("Año_factura"))
cmbFraInicial.AddItem nNumFactura & " - " & nAñoFactura
cmbFraFinal.AddItem nNumFactura & " - " & nAñoFactura
End If
rcsFacturas.MoveNext
Loop
rcsFacturas.Close
End Sub

Muchas gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Otra ayudita, por favor

Publicado por J2ML (464 intervenciones) el 21/01/2004 15:18:50
1.- La base de datos es Access ?, el campo fecha_factura es Datetime ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Otra ayudita, por favor

Publicado por kinoscar (233 intervenciones) el 21/01/2004 16:45:45
si las respuestas para las preguntas de J2ML son si en el where de la consulta puedes colocar esto

where fecha_factura => datevalue('" & txtfecha.text & "')

o bien

where fecha_factura between datevalue('" & txtfecha.text & "') and datevalue('" & date & "')

espero te sirva
suerte

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar