Horas de nuevo
hola ya alguien me dio una idea pero ahora ya lo hice pero quisiera saber como le puedo hacerf esque ya me gurada lo que es la entrada péro cuando le vuelvo adar el mismo rfc me dice o bueno me mustra un msn que dice que no se pueden ducplicar los datso entonces omop le hago para ue si hi ser hace una condicon haga la otra por que veo que no lo hace
el codigo es el siguiente
TxtFecha = Format(Now, "dd/mm/yy")
TxtNombre = rs.Fields("Nombre").Value & " " & rs.Fields("Paterno").Value & " " & rs.Fields("Materno").Value
hra = Format(Now, "hh:mm")
Set rs = Nothing
rs.Open "select Entrada.Fecha,Entrada.Hora_Entrada,Salida.Hora_Salida from Entrada,Salida where Entrada.RFC='" & TxtRFC & "' and Salida.RFC='" & TxtRFC & "'", cn, adOpenDynamic, adLockReadOnly
If rs.Fields("Fecha").Value <> TxtFecha Then
If Not rs.Fields("Hora_Entrada").Value = "00:00" Then
On Error GoTo mensag
cn.Execute "Insert into Entrada values ('" & TxtRFC & "','" & TxtNombre & "','" & TxtFecha & "','" & hra & "')"
MsgBox "" & TxtNombre & "." + vbNewLine + "Tu hora de Entrada es a las: " & en & vbNewLine + "Que tengas un buen dÃa" + vbNewLine + "GOOD LOOK!", vbInformation, "Mensaje del Sistema"
Call Estado1
Exit Sub
mensag:
MsgBox "No se pueden duplicar las entradas, gracias.", vbCritical, "Mensaje del Sistema"
Call Estado1
Else
If rs.Fields("Hora_Salida").Value <> "00:00" Then
On Error GoTo mensaje
cn.Execute "Insert into Salida values ('" & TxtRFC & "','" & TxtNombre & "','" & TxtFecha & "','" & hra & "')"
MsgBox "" & TxtNombre & "." + vbNewLine + "Tu hora de salida es a las: " & en & vbNewLine + "Que tengas un buen dÃa" + vbNewLine + "GOOD LOOK!", vbInformation, "Mensaje del Sistema"
Call Estado1
Exit Sub
mensaje:
MsgBox "No se pueden duplicar las salidas, gracias.", vbCritical, "Mensaje del Sistema"
Call Estado1
Else
MsgBox "Los sentimos mucho pero," + vbNewLine + "ya ingresaste tanto tu entrada como tu salida.", vbInformation, "Mensaje del Sistema"
Call Estado1
End If
End If
End If
ayudenme por favor ya hice lo posible y no mesale
gracias
nello
el codigo es el siguiente
TxtFecha = Format(Now, "dd/mm/yy")
TxtNombre = rs.Fields("Nombre").Value & " " & rs.Fields("Paterno").Value & " " & rs.Fields("Materno").Value
hra = Format(Now, "hh:mm")
Set rs = Nothing
rs.Open "select Entrada.Fecha,Entrada.Hora_Entrada,Salida.Hora_Salida from Entrada,Salida where Entrada.RFC='" & TxtRFC & "' and Salida.RFC='" & TxtRFC & "'", cn, adOpenDynamic, adLockReadOnly
If rs.Fields("Fecha").Value <> TxtFecha Then
If Not rs.Fields("Hora_Entrada").Value = "00:00" Then
On Error GoTo mensag
cn.Execute "Insert into Entrada values ('" & TxtRFC & "','" & TxtNombre & "','" & TxtFecha & "','" & hra & "')"
MsgBox "" & TxtNombre & "." + vbNewLine + "Tu hora de Entrada es a las: " & en & vbNewLine + "Que tengas un buen dÃa" + vbNewLine + "GOOD LOOK!", vbInformation, "Mensaje del Sistema"
Call Estado1
Exit Sub
mensag:
MsgBox "No se pueden duplicar las entradas, gracias.", vbCritical, "Mensaje del Sistema"
Call Estado1
Else
If rs.Fields("Hora_Salida").Value <> "00:00" Then
On Error GoTo mensaje
cn.Execute "Insert into Salida values ('" & TxtRFC & "','" & TxtNombre & "','" & TxtFecha & "','" & hra & "')"
MsgBox "" & TxtNombre & "." + vbNewLine + "Tu hora de salida es a las: " & en & vbNewLine + "Que tengas un buen dÃa" + vbNewLine + "GOOD LOOK!", vbInformation, "Mensaje del Sistema"
Call Estado1
Exit Sub
mensaje:
MsgBox "No se pueden duplicar las salidas, gracias.", vbCritical, "Mensaje del Sistema"
Call Estado1
Else
MsgBox "Los sentimos mucho pero," + vbNewLine + "ya ingresaste tanto tu entrada como tu salida.", vbInformation, "Mensaje del Sistema"
Call Estado1
End If
End If
End If
ayudenme por favor ya hice lo posible y no mesale
gracias
nello