ACCESS ERROR EN CODIGO VB
Publicado por Rodrigo (4 intervenciones) el 26/07/2015 22:04:38
AYUDA ERROR ACCESS
Se ha producido el error '3265´ en tiempo de ejecución:
No se encontró el elemento en esta colección.
Se ha producido el error '3265´ en tiempo de ejecución:
No se encontró el elemento en esta colección.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Cmd_Devolucio_Click()
If MsgBox("Esta seguro que desea devolver esta herramienta...?", vbYesNo, "Aviso") = vbYes Then
With Me.Subfor_Devolucion.Form.RecordsetClone
.MoveFirst Do While Not .EOFCurrentDb.Execute ("UPDATE Herramientas SET Disponible = Disponible + " & CStr(!CanDev) & " WHERE Codigo = '" & CStr(!Codigo) & "'")
.MoveNextLoop
End With
Else
Exit Sub
End If
DoCmd.Close acForm, "Val_Devolucion", acSaveYes
End Sub
Valora esta pregunta
0