problemas al guardar

[Celest3]

hola a todos, hoy quisiera su ayuda con este problema que se me presentado, cuando crei que todo estaba terminado.

les explico, en el archivo adjunto es una pequeña aplicacion para registar reparaciones de maquinaria y la vez casa reportes de entre un rango de fechas o por maquina.

Problema 1:

- en el frm orden, al guardar (hoja historico) todo bien alparecer pues si entro a la hoja historico me voy con la sorpresa que algunos registro los a gudardo sobre un registro existente porque ni idea por eso pido su ayuda (ver en la hoja historico filas 227, 273,767 y 841 como ejemplo del problema)

problema 2:

- en el frm_reporte, la idea es que se escoge un codigo y despues seleccionar que tipo de mantenimiento deseo buscar que son "reparacion, mantenimiento o todas" pero solo me funciona todas.

Problema 3:

- pues no es un problema, mas quisiera agregar el tiempo que la maquina esta en el taller por ejemplo si ingreso 9am y se fue a las 11:15am al final de la orden debe decir tiempo en reparacion/mantenimieto: 2h15m y si esta ideas igual.

porque el egistro se inicia ni bien ingresa al taller en el frm orden veran que al final hay un check pues ese es el que da la fecha de salida y me gustaria que en tiempo tambien.

porque aveces me piden que les diga cuando tiempo a estado tal maquina en el taller, y yo ni que responderle solo me queda calcular al ojo.

bueno espero que se me entienda y me puedan dar una mano y sobre los datos no hay problema solo son datos de reparaciones y creo que a la vez le puede servir a otros usuarios.

http://dl.dropbox.com/u/108311084/Akelos.rar

se me olvida la clave de la hoja histórico es 10

Saludos

Celest3

[Celest3]

Hola revisando este rpoycto me he dado con la sorpresa que el codigo para editar/modificar no funciona y me acuerdo quecundo empeze este proyecto si funcionaba. me puede ayudar diciendo donde esta mal el codigo y si tienes otra opcion sera bien aceptada.

este codigo es darle guadar:

Private Sub CmdGuardar_Click()ApplicationScreenUpdating = False
Sheets("historico").Unprotect "10"
Dim SFecha As Date
Rem Primero copia este codigo al comienzo del boton guardar
Rem Textbox que solo permite formato de Fecha
On Error Resume Next
If SFecha = CDate(Format(DTPicker2.Value, "dd/mm/yyyy")) Then
MsgBox "Edite Formato de Fecha dd/mm/aaaa", vbExclamation, "Excel Servicios"
Exit Sub
End If


If DTPicker2.Value = DTPicker1.Value Or DTPicker2.Value > DTPicker1.Value Then
Dim a
'
a = TextBox1.Value


If TextBox1 <> Empty Then
    If Application.WorksheetFunction.CountIf(Range("A:A"), TextBox1) Then

        If MsgBox("Guardar cambios realizados?", vbYesNo + vbQuestion, "INFORMACION") = vbNo Then Exit Sub
        Columns("A:A").Select

        Cells.Find(what:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate

        almacenar

        MsgBox "El registro se ha modificado modificar", vbInformation, "MENSAJE"

        If MsgBox("Desea imprimir?", vbYesNo + vbQuestion, "PREGUNTA") = vbYes Then
            imprimir
        End If

        Exit Sub
    End If
End If


Application.ScreenUpdating = False
Sheets("historico").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Cells.Find(what:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

    almacenar

If MsgBox("Desea imprimir?", vbYesNo + vbQuestion, "PREGUNTA") = vbYes Then
    imprimir
End If


TextBox1.Enabled = True
Frame3.Enabled = False
Frame4.Enabled = False
txtRecepcion.Enabled = False
txtprocedi.Enabled = False
txtobservaciones.Enabled = False
DTPicker2.Enabled = False
DTPicker1.Enabled = False
Cbrealizado.Enabled = False
cmdguardar.Enabled = False
Cmdeditar.Enabled = True
txtcodigo.Enabled = False
TextBox1.SetFocus
Exit Sub
Else
MsgBox "La fecha Ingresada no es correcta", vbExclamation, "Excel Servicios"
End If
Application.ScreenUpdating = True
'GUARDA EL LIBRO AUTOMATICAMENTE
ThisWorkbook.Save
Sheets("historico").Protect "10"
Sheets("AKELOS2.6.1").Select
End Sub
[/code]

Este codigo es el procedimiento almacenar

Function almacenar()


    If opCorrectivo.Value = True Then

        ' ActiveCell = txtconta.Value

        'activeCell.Offset(0, 1) = txtconta.Value

        ActiveCell.Offset(0, 1) = CDate(DTPicker1.Value)

        ActiveCell.Offset(0, 2) = txtcodigo.Text

        ActiveCell.Offset(0, 3) = txtdescripcion.Value

        ActiveCell.Offset(0, 4) = txtoperador.Value

        ActiveCell.Offset(0, 5) = cbsector.Text

        ActiveCell.Offset(0, 6) = txtjefe.Value

    If opCorrectivo.Value = True Then

        ActiveCell.Offset(0, 7) = opCorrectivo.Caption

    End If

    If opCorrectivo.Value = True Then

        ActiveCell.Offset(0, 7) = OpPreventivo.Caption

    End If

        ActiveCell.Offset(0, 8) = txtRecepcion.Value

        ActiveCell.Offset(0, 9) = Cbproced.Value

        ActiveCell.Offset(0, 10) = txtprocedi.Value

        ActiveCell.Offset(0, 11) = txtobservaciones.Value

        ActiveCell.Offset(0, 12) = CDate(DTPicker2.Value)

        ActiveCell.Offset(0, 13) = Cbrealizado.Value

        ActiveCell.Offset(0, 14) = Val(txthoro.Text)

    End If



End Function

[/CODE]

por favor su apoyo con este problema, el frm_consulta, esta el link de descarga en el 1er post.

gracias

Saludos,

Celest3