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.
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
0