Quisiera que me ayudes en una sentencia sql con fecha

Tengo una bd access y tengo un campo fecha lo que quiero hacer es una sentencia que me busque el rango del año es decir yo coloco 012001 en un texbox y este me busque en mi tabla dicho rango en un año en especifico por el campo fecha o orientarme al respecto

1 respuesta

Respuesta
1
Lo que debes hacer es tomar de alguna forma el año (sino sabes como hacer te puedo ayudar) y con el mismo realizar una consulta que busqué según el año que le pases los datos a mostrar:
Select *
From Tabla
Where NombreCampoFecha= unaFecha


Debes pasarle el parámetro unaFecha que es la que va a buscar, de esta forma estarías mostrando todos los registros que contengan el año indicado.
PD: no comprendo lo del rango, ¿entre un año y otro? ¿O entre un mes y otro?
Gracias por tu respuesta en verdad tengo problemas mi bd access tengo ciertos campo fechas y me da error si los dejo como fechas te explico bien es una aplicación en vb6.0 y ella me guarda en una tabla llamada datos y tengo un formulario aparte que genera reportes en archivos planos y este tiene un textbox llamado fecha y allí debería introducir el mes y el año del reporte que voy a generar por darte un ejemplo 012001 pero me da error te voy a enviar la sentencia que utilizo para ejecutar el archivo:
Esto no hace nada porque si los campos relacionados los coloco como fea no hace la búsqueda y no se porque la parte que tiene el format me da un error de sentencia en verdad ya estoy desesperado y agradecería tu ayuda
Private Sub Command1_Click()
On Error GoTo Errores
Dim RsTabla As New ADODB.Recordset
Dim sArchivo As String
Dim Texto As String
Dim Campo As String
Dim sQuery As String
Dim campo2 As Date
Dim campo10 As Date
Dim campo17 As Date
If fecha.Text = "" Then
Exit Sub
End If
sQuery = "SELECT * FROM datos where mid(campo73,4,5)='" & fecha.Text & "' Order by campo73"
RsTabla.Open sQuery, Conexion, adOpenDynamic, adLockOptimistic
If RsTabla.BOF = True And RsTabla.EOF = True Then
MsgBox "No existen registro para esa Fecha...", vbInformation
fecha.Text = ""
Exit Sub
End If
sArchivo = "FONGAR 4101_" & fecha.Text & ".TXT"
Open "c:\Sifoga-TxT\" & sArchivo For Output As #1
RsTabla.MoveFirst
Campo = " "
Do While Not RsTabla.EOF
Texto = Texto + RsTabla.Fields(0)
Texto = Texto + Espacios(Format(campo2, "ddmmyyyy"), RsTabla.Fields(1), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(2), 4, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(3), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(4), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(5), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(6), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(7), 9, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(8), 1, 0, " ")
Texto = Texto + Espacios(Format(campo10, "ddmmyyyy"), RsTabla.Fields(9), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(10), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(11), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(12), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(13), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(14), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(15), 9, 1, "0")
Texto = Texto + Espacios(Format(campo17, "ddmmyyyy"), RsTabla.Fields(16), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(17), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(18), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(19), 15, 0, " ")
'--prestatario1
Texto = Texto + Espacios(RsTabla.Fields(20), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(21), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(22), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(23), 9, 1, "0")
Texto = Texto + Espacios(Format(campo25, "ddmmyyyy"), RsTabla.Fields(24), 8, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(25), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(26), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(27), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(28), 9, 1, "0")
'--prestatario2
Texto = Texto + Espacios(RsTabla.Fields(29), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(30), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(31), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(32), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(33), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(34), 9, 1, "0")
Texto = Texto + Espacios(Format(campo36, "ddmmyyyy"), RsTabla.Fields(35), 8, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(36), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(37), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(38), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(39), 9, 1, "0")
'--prestatario3
Texto = Texto + Espacios(RsTabla.Fields(40), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(41), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(42), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(43), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(44), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(45), 9, 1, "0")
Texto = Texto + Espacios(Format(campo47, "ddmmyyyy"), RsTabla.Fields(46), 8, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(47), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(48), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(49), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(50), 9, 1, "0")
'--prestatario4
Texto = Texto + Espacios(RsTabla.Fields(51), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(52), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(53), 15, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(54), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(55), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(56), 9, 1, "0")
Texto = Texto + Espacios(Format(campo58, "ddmmyyyy"), RsTabla.Fields(57), 8, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(58), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(59), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(60), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(61), 9, 1, "0")
'--Tipo de Inmueble
Texto = Texto + Espacios(RsTabla.Fields(62), 1, 0, " ")
Texto = Texto + Espacios(RsTabla.Fields(63), 6, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(64) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(65) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(66), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(67) * 100, 5, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(68), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(69), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(70), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(71) * 100, 14, 1, "0")
Texto = Texto + Espacios(Format(campo73, "ddmmyyyy"), RsTabla.Fields(72), 8, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(73), 3, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(74), 2, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(75) * 100, 4, 1, "0")
Texto = Texto + Espacios(Format(campo77, "ddmmyyyy"), RsTabla.Fields(76), 8, 1, "0")
'--Area de Asistencia
Texto = Texto + Espacios(RsTabla.Fields(77), 1, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(78), 10, 1, "0")
Texto = Texto + "0" '(rsTabla.Fields(79)
Texto = Texto + Espacios(RsTabla.Fields(80), 20, 0, " ")
Texto = Texto + "0" 'rsTabla.Fields(81)
Texto = Texto + Espacios(RsTabla.Fields(82) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(83) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(84) * 100, 14, 1, "0")
Texto = Texto + Espacios(RsTabla.Fields(85), 1, 0, "0")
Texto = Texto + Espacios(RsTabla.Fields(86), 90, 0, " ")
Texto = Texto + Espacios(Campo, 28, 0, " ")
Print #1, Texto
Texto = ""
RsTabla.MoveNext
Loop
Close #1
fecha.Text = ""
fecha.SetFocus
RsTabla.Close
MsgBox "Archivo Generado", vbInformation
Errores:
If Err.Number <> 0 Then
If Err.Number = -2147217900 Then
MsgBox "Archivo AFOGOILP.DBF no existe....", vbCritical
Err.Clear
End If
If Err.Number = -2147467259 Then
MsgBox "El ODBC no existe....", vbCritical
Err.Clear
End If
If Err.Number <> -2147217900 And Err.Number <> -2147467259 Then
MsgBox Err.Description, vbCritical, "Error nro. " & Err.Number
Err.Clear
End If
End If
End Sub
Si quieres pasar el parámetro de una fecha tiene que ser correctamente, ya que 012001 no es una fecha válida. Por eso te está dando un error, te recomendaría que colocaras el primer día de cada mes, y luego lo quites al presentar el reporte, si pones como Fecha el número 012001, te está tomando sólo el 12001 y dejaría como fecha 08/11/1932 .
En esta línea
Texto = Texto + Espacios(Format(campo58, "ddmmyyyy"), RsTabla.Fields(57), 8, 0, "0")
Verifica lo que está en negrita si lo has echo correctamente.
Gracias por responderme tan rapido pero si transformo los campos de mi bd access a fechas me genera un error por que sera dime los dejo como fecha o como texto había pensado en un lost focus y transformarla después que pierda el foco pero el validate cuando voy a modificar un dato me genera borra el text transformado porque no cumple con las especificaciones de fecha como puedo hacer para desactivar el validate cuando este sea una cadena numérica por ejemplo 24-05-2005 y después del lost focus lo transforma 02052005 pero cuando quiero modificar y me agarra el foco de nuevo en los textbox modificado de campo fecha y me da error ejemplo estos son mis validate para fechas
If Not IsDate(TxtCampo17) Then
Cancel = True
MsgBox "Por favor Ingrese fecha (dd-mm-año)"
TxtCampo17 = ""
End If
Como hago para que no me genere este error después de haberlo guardado por favor y gracias tus ayudas han servido de mucho
Si colocas de tipo de dato Fecha/Time en tu base de datos, desde visual la variable debes declararla como Date y no como String. Puede darte errores por varias cosas entre ellas, datos incorrectos o mal colocados, ej. 16/91/2005.


"dime los dejo como fecha o como texto había pensado en un lost focus y
transformarla después que pierda el foco pero el validate cuando voy a
modificar un dato me genera borra el text transformado porque no cumple
con las especificaciones de fecha como puedo hacer para desactivar el
validate cuando este sea una cadena numérica por ejemplo 24-05-2005 y
después del lost focus lo transforma 02052005 pero cuando quiero
modificar y me agarra el foco de nuevo en los textbox modificado de
campo fecha y me da error.."
Bien, te recomendaría que revisaras si la fecha está correcta en el momento de guardar, o sea, para guardar utilizas un botón, ¿verdad?, bueno en ese momento verifiques,

24-05-2005 no lo va a tomar como válido, debes usar 24/05/2005
Para verificar si una cadena o contenido de textbox es numérica verifícalo así:
If IsNumeric(TextBox1.Text) = True Then
   MsgBox "Es numérico"
Else
   MsgBox "No Es numérico"
End If
Muéstrame de la forma en que guardas y dime donde te da error para verificar que es lo que está mal,

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
4 respuestas

How much does it cost to hire a professional app developer Dubai

Hello! If you have finally decided to have an app for your business, you need to look for a TOP MOBILE APP DEVELOPMENT AGENCY DUBAI. It doesn't matter if you are creating an app from scratch or re-launching the pre-existing one. You need to hire a...
11 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas

Extraer de campo fecha el mes

Necesito el código para extraer de un capo fecha el mes en letra para insertarlo en otro campo se que no sera difícil pero la verdad no lo se mientras gracias por su ayuda
2 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

Poner registro ID de base de access en MsgBox

Estoy construyendo un userform para captura de datos, los cuales se almacenaran en una base de datos de access, el enviar la información del formulario de excel a la base de datos de access se genera un MsgBox que dice que la información de almaceno...
2 respuestas