URGENTE!!!!
Publicado por Claudia (56 intervenciones) el 14/09/2007 21:29:49
Hola a tod@s:
tengo un problemilla que espero me puedan ayudar a resolver:
tengo un formulario con el siguiente código:
Private Sub cmdRegSiguiente_Click()
On Error GoTo Err_cmdRegSiguiente_Click
If ([Marco22]) = 0 Or ([Marco31]) = 0 Then
MsgBox "Debe evaluar el ítem"
Else
DoCmd.Save
DoCmd.GoToRecord , , acNext
End If
Exit_cmdRegSiguiente_Click:
Exit Sub
Err_cmdRegSiguiente_Click:
MsgBox "No hay más registros"
Resume Exit_cmdRegSiguiente_Click
End Sub
éste formulario evalúa los registro uno a uno y según cumpla condiciones, guarda los datos o de lo contrario muestra un mensaje: "Debe evaluar el ítem"...todo ésto al evento clic del comando "cmdRegSiguiente".
mi problema es que cuando llega al último registro... muestra un mensaje del portapapeles, y no guarda los cambios....y sólo ocurre éste problema con el último registro!!!
no sé que más hacer...¿existe alguna posibilidad de que se guarden TODOS los registro...INCLUSIVE el ÚLTIMO???
espero me puedan ayudar
de antemano muchas gracias!!!
Saludos,
Claudia
tengo un problemilla que espero me puedan ayudar a resolver:
tengo un formulario con el siguiente código:
Private Sub cmdRegSiguiente_Click()
On Error GoTo Err_cmdRegSiguiente_Click
If ([Marco22]) = 0 Or ([Marco31]) = 0 Then
MsgBox "Debe evaluar el ítem"
Else
DoCmd.Save
DoCmd.GoToRecord , , acNext
End If
Exit_cmdRegSiguiente_Click:
Exit Sub
Err_cmdRegSiguiente_Click:
MsgBox "No hay más registros"
Resume Exit_cmdRegSiguiente_Click
End Sub
éste formulario evalúa los registro uno a uno y según cumpla condiciones, guarda los datos o de lo contrario muestra un mensaje: "Debe evaluar el ítem"...todo ésto al evento clic del comando "cmdRegSiguiente".
mi problema es que cuando llega al último registro... muestra un mensaje del portapapeles, y no guarda los cambios....y sólo ocurre éste problema con el último registro!!!
no sé que más hacer...¿existe alguna posibilidad de que se guarden TODOS los registro...INCLUSIVE el ÚLTIMO???
espero me puedan ayudar
de antemano muchas gracias!!!
Saludos,
Claudia
Valora esta pregunta
0