Cambiar form de búsqueda
Publicado por Isabel (1 intervención) el 20/07/2010 23:58:45
HOla:
Utilizo un formulario basado en una consulta para buscar registros de una tabla, y para ello he creado un msgbox que te informa si el código que busca está en la tabla o no. De no estar ofrece la posibilidad de introducirlo.
Mi problema es que si acepto la posibilidad de introducirlo, me abre el formulario de búsqueda de nuevo para agregar registros, no sé como hacer para que me abra el formularios "ALTAS" que es el que realmente sirve para dar altas.
Para el mensaje utilizo este código:
Private Sub Form_Load()
Dim Mensaje, Estilo, Título, Respuesta, MiCadena, campo
Mensaje = "Código de ficha no procesado ¿Desea Introducirlo?"
' Define el mensaje.
campo = Valor & Chr(13)
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Título = "Centro de procesamiento Ariet" ' Define el título.
valorpred = "1"
' si el número de registros es cero
If Me.RecordsetClone.RecordCount = 0 Then
' enviamos un mensaje(Chr(10)), (Chr(10)),
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
' El usuario eligió el botón Sí.
' Ejecuta una acción.
Else ' El usuario eligió el botón No.
DoCmd.Close acForm, Me.Name ' Ejecuta una acción.
' cerramos el formulario actual
End If
End If
End Sub
Muchas gracias por la ayuda
Utilizo un formulario basado en una consulta para buscar registros de una tabla, y para ello he creado un msgbox que te informa si el código que busca está en la tabla o no. De no estar ofrece la posibilidad de introducirlo.
Mi problema es que si acepto la posibilidad de introducirlo, me abre el formulario de búsqueda de nuevo para agregar registros, no sé como hacer para que me abra el formularios "ALTAS" que es el que realmente sirve para dar altas.
Para el mensaje utilizo este código:
Private Sub Form_Load()
Dim Mensaje, Estilo, Título, Respuesta, MiCadena, campo
Mensaje = "Código de ficha no procesado ¿Desea Introducirlo?"
' Define el mensaje.
campo = Valor & Chr(13)
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los botones.
Título = "Centro de procesamiento Ariet" ' Define el título.
valorpred = "1"
' si el número de registros es cero
If Me.RecordsetClone.RecordCount = 0 Then
' enviamos un mensaje(Chr(10)), (Chr(10)),
Respuesta = MsgBox(Mensaje, Estilo, Título)
If Respuesta = vbYes Then
' El usuario eligió el botón Sí.
' Ejecuta una acción.
Else ' El usuario eligió el botón No.
DoCmd.Close acForm, Me.Name ' Ejecuta una acción.
' cerramos el formulario actual
End If
End If
End Sub
Muchas gracias por la ayuda
Valora esta pregunta
0