Hola a todos y gracias de antemano por las posibles respuestas de los miembros del foro.
El problema que tengo es que crie una base de datos con los siguientes campos
Nombre de la base de datos: Hokioder
Tablas de la base de datos:
Tabla númeo uno: Nombre: Empleados la cual tiene los campos codigo de tipo entero largo y Nombre de tipo texto
Tabla número dos: Entregado la cual tiene los campos Fecha de tipo date, código de tipo entero largo y por último Cantidad de tipo entero largo
el problema consiste en que no reconoce el filtro de la clausula select porque siempre tengo la misma respuesta, independiente del día y el código introducido y esta es la respuesta:
MsgBox " El trabajador no tiene cantidades recibidas en ésta fecha"Observación: Estoy usando un grid1 para mostrar los datos y tengo un text.text denominado Taxiz
Dim Limpiarme As Database
Set Limpiarme = OpenDatabase("C:\Archivos de programa\Microsoft Visual Basic\Hokioder")
ap1c2 = "Agregue el código del trabajador."
ap1c3 = " MOVIMIENTO DIARIO "
Halar$ = InputBox(ap1c2, ap1c3, , 2300, 4000)
venez = Format(Date, "dd/mm/yyyy")
Taxiz.Text = CDate(venez)
If Ensegui = "Select * from Entregado where Fecha = '" & Taxiz.Text & "' and codigo =" + Halar$ Then
goto Leon
Else
MsgBox " El trabajador no tiene cantidades recibidas en ésta fecha"
Exit Sub
End If
Leon:
' Otras sentencias
