control de fechas
Hola tengo un problema y es el siguiente,
tengo un formulario con 4 botones.
estos botones son para que al pulsarlos graben en la base de datos la fecha, es decir se pulsa el boton de entrar por la ma帽ana y se almacena y asi con los demas botones. (los botones son un array de botones)
Ademas almaceno en una variable global el codigo de persona ya que tambien se almacenara el codigo,
lo que hice fue lo siguiente
Public Sub Operaciones_Click(Index As Integer)
Dim id As Integer
i = 0
If rst1.EOF = True Then
rst1.AddNew
rst1.Fields("Cod_Empleado") = id_empleado
rst1.Fields("Fecha") = Date
rst1.Fields("Cod_Registro") = 1
registrar
rst1.Update
Else
'rst1.MoveLast
id = rst1.Fields("Cod_Registro")
'rst1.MoveFirst
'While rst1.Fields("Cod_Empleado") <> id_empleado
' rst1.MoveNext
'Wend
If rst1.EOF = False Then
rst1.AddNew
rst1.Fields("Cod_Empleado") = id_empleado
rst1.Fields("Fecha") = Date
rst1.Fields("Cod_Registro") = id + 1
registrar
rst1.Update
Else
registrar
rst1.Update
End If
End If
End Sub
Public Sub registrar()
If rst1.Fields("Entrada_Ma") = 0 Then
Operaciones(1).Enabled = True
Operaciones(2).Enabled = False
Operaciones(3).Enabled = False
rst1.Fields("Entrada_Ma") = Time
Operaciones(0).Enabled = False
Else
If rst1.Fields("Salida_Ma") = 0 Then
Operaciones(0).Enabled = False
Operaciones(2).Enabled = True
Operaciones(3).Enabled = False
rst1.Fields("Salida_Ma") = Time
Operaciones(1).Enabled = False
Else
If rst1.Fields("Entrada_Ta") = 0 Then
Operaciones(0).Enabled = False
Operaciones(1).Enabled = False
Operaciones(3).Enabled = True
rst1.Fields("Entrada_Ta") = Time
Operaciones(2).Enabled = False
Else
If rst1.Fields("Salida_Ta") = 0 Then
Operaciones(0).Enabled = False
Operaciones(1).Enabled = False
Operaciones(2).Enabled = False
rst1.Fields("Salida_Ta") = Time
Operaciones(3).Enabled = False
End If
End If
End If
End If
End Sub
Si alguien me puede ayudar se lo agradezco
tengo un formulario con 4 botones.
estos botones son para que al pulsarlos graben en la base de datos la fecha, es decir se pulsa el boton de entrar por la ma帽ana y se almacena y asi con los demas botones. (los botones son un array de botones)
Ademas almaceno en una variable global el codigo de persona ya que tambien se almacenara el codigo,
lo que hice fue lo siguiente
Public Sub Operaciones_Click(Index As Integer)
Dim id As Integer
i = 0
If rst1.EOF = True Then
rst1.AddNew
rst1.Fields("Cod_Empleado") = id_empleado
rst1.Fields("Fecha") = Date
rst1.Fields("Cod_Registro") = 1
registrar
rst1.Update
Else
'rst1.MoveLast
id = rst1.Fields("Cod_Registro")
'rst1.MoveFirst
'While rst1.Fields("Cod_Empleado") <> id_empleado
' rst1.MoveNext
'Wend
If rst1.EOF = False Then
rst1.AddNew
rst1.Fields("Cod_Empleado") = id_empleado
rst1.Fields("Fecha") = Date
rst1.Fields("Cod_Registro") = id + 1
registrar
rst1.Update
Else
registrar
rst1.Update
End If
End If
End Sub
Public Sub registrar()
If rst1.Fields("Entrada_Ma") = 0 Then
Operaciones(1).Enabled = True
Operaciones(2).Enabled = False
Operaciones(3).Enabled = False
rst1.Fields("Entrada_Ma") = Time
Operaciones(0).Enabled = False
Else
If rst1.Fields("Salida_Ma") = 0 Then
Operaciones(0).Enabled = False
Operaciones(2).Enabled = True
Operaciones(3).Enabled = False
rst1.Fields("Salida_Ma") = Time
Operaciones(1).Enabled = False
Else
If rst1.Fields("Entrada_Ta") = 0 Then
Operaciones(0).Enabled = False
Operaciones(1).Enabled = False
Operaciones(3).Enabled = True
rst1.Fields("Entrada_Ta") = Time
Operaciones(2).Enabled = False
Else
If rst1.Fields("Salida_Ta") = 0 Then
Operaciones(0).Enabled = False
Operaciones(1).Enabled = False
Operaciones(2).Enabled = False
rst1.Fields("Salida_Ta") = Time
Operaciones(3).Enabled = False
End If
End If
End If
End If
End Sub
Si alguien me puede ayudar se lo agradezco
Hola,
Exactamente.... ¿d贸nde te falla?
Yo lo har铆a con un select case dependiendo del bot贸n que pinchen para no hacer tantos If.
Saludos
sdemingo
Exactamente.... ¿d贸nde te falla?
Yo lo har铆a con un select case dependiendo del bot贸n que pinchen para no hacer tantos If.
Saludos
sdemingo
al pulsar la primera tecla funciona, pero cuando pulsas las demas, ya no funciona
No entiendo cuando preguntas por el valor del campo entrada_ma, si es=0 entonces introduces el valor como si fuera entrada_ma.
Otra cosa que veo muy compleja es la manera de manejar la base de datos, si puedes copia o m谩ndame el resto del c贸digo, ya que lo que quieres hacer se podr铆a resumir much铆simo.
Saludos
Otra cosa que veo muy compleja es la manera de manejar la base de datos, si puedes copia o m谩ndame el resto del c贸digo, ya que lo que quieres hacer se podr铆a resumir much铆simo.
Saludos