error al cerrar un formulario acces 2003
Publicado por juan bautista peris (7 intervenciones) el 17/07/2015 13:41:00
intento cerrar un formulario para entrar en otro y me salta el error 2501 en tiempo de ejecucion. Tengo puesto esto en el generador de codigo, ayuda porfavor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Cuadro_combinado109_NotInList(NewData As String, Response As Integer)
strMsg = "El establecimiento (" & NewData & ") no existe en la base de datos.""¿Nuevo Establecimiento?"
' Preguntamos
If MsgBox(strMsg, vbQuestion + vbYesNo, "AVISO") = vbNo Then
Response = acDataErrContinue
Exit Sub
Else
DoCmd.OpenForm "Establecimientos", acNormal, "", "", , acNormal
Form_Establecimientos.SetFocus
Form_Establecimientos.TITULAR.Value = NewData
Response = acDataErrAdded
End If
DoCmd.Close acForm, "Actas 2015 Consulta"
End Sub
Valora esta pregunta


0