[email protected]
02 de Septiembre del 2009

Hola,

Tengo un formulario para gestionar horas de trabajo que ha empezado a dar error 3022 cuando quiero modificar los registros (al principio funcionaba correctamente). No entiendo por qué, ya que en los otros formularios no tengo este problema. He revisado el código de arriba a abajo y no encuentro el fallo. Me pueden ayudar? o explicarme a qué se puede deber?

Private Sub guardar()

rshoras!Cod.Value = Txtcod.Text
rshoras!Idpersonal.Value = Txtcodpersonal.Text
rshoras!abreviado.Value = Txtabreviadopersonal.Text
rshoras!nombrepersonal.Value = Txtnombrepersonal.Text
rshoras!fecha.Value = CLng(CDate(Txtfechahora.Text))
rshoras!tipohora.Value = Txttipohora.Text
rshoras!abreviado.Value = Txtabreviadotarea.Text
rshoras!tipotarea.Value = Txttipotarea.Text
rshoras!horas.Value = Txthoras.Text
rshoras!proyecto.Value = Txtproyecto.Text
rshoras!Observaciones.Value = Rtbobservaciones.Text
---- línea el error 3022
rshoras.Update

end sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "modificar"
Dim b As Byte
b = MsgBox("¿Desea guardar las modificaciones?", vbYesNoCancel, "MODIFICAR HORAS")
If b = vbYes Then
rshoras.Edit
guardar
Else
If b = vbNo Or b = vbCancel Then mostrar_datos
End If
end select

genosol
02 de Septiembre del 2009

está solucionado.
gracias