cerrar / abrir formulario
Publicado por ventura (4 intervenciones) el 08/03/2006 18:11:08
Hola buenas tardes.
tengo un formulario que me da problemas para que se cierre cuando otro se abre.
Los demas no me dan ese problema per en este caso si.
el formulario en si, tiene un textbox para introducir una clave que siempre es la misma, un boton de cancelar y otro de validar.
El codigo que uso para que funcione este formulario es el siguiente:
Option Compare Database
Private Const codi As String = "*********************" 'este es el numero de codigo'
Private intcontadorattempts As Integer
Option Explicit
Private Sub comcancelar2_Click()
Application.Quit
End Sub
Private Sub comvalidar2_Click()
If IsNull(Me.numeroigual) Or Me.numeroigual = "" Then
numeroigual.SetFocus
MsgBox "INTRODUEIXI EL SEU CODI. GRACIES.", vbOKOnly, "!!DADES REQUERIDES!!"
Exit Sub
Else
If codi = Me!numeroigual Then docmd.OpenForm "comercios"
End If
If codi <> Me.numeroigual Then
MsgBox "CODI INCORRECTE", vbInformation, "!! ERROR !!"
numeroigual.SetFocus
numeroigual = ""
intcontadorattempts = intcontadorattempts + 1
If intcontadorattempts = 3 Then
MsgBox "ACCES DENEGAT: SI US PLAU CONTACTI AMB L'ADMINISTRADOR", vbCritical, "!! ACCES DENEGAT !!"
Application.Quit
End If
End If
End Sub
Cuando introduzco la linea:
DoCmd.Quit
para que me cierre el formulario cuando se abre el siguiente, me da error, dice access que el objeto esta cerrado o no existe.
¿porque me ocurre esto,? ¿que es lo que hago mal?.
Si alguien sabe la forma de solucionar esto, por favor, decidmelo.
Gracias. un saludo.
tengo un formulario que me da problemas para que se cierre cuando otro se abre.
Los demas no me dan ese problema per en este caso si.
el formulario en si, tiene un textbox para introducir una clave que siempre es la misma, un boton de cancelar y otro de validar.
El codigo que uso para que funcione este formulario es el siguiente:
Option Compare Database
Private Const codi As String = "*********************" 'este es el numero de codigo'
Private intcontadorattempts As Integer
Option Explicit
Private Sub comcancelar2_Click()
Application.Quit
End Sub
Private Sub comvalidar2_Click()
If IsNull(Me.numeroigual) Or Me.numeroigual = "" Then
numeroigual.SetFocus
MsgBox "INTRODUEIXI EL SEU CODI. GRACIES.", vbOKOnly, "!!DADES REQUERIDES!!"
Exit Sub
Else
If codi = Me!numeroigual Then docmd.OpenForm "comercios"
End If
If codi <> Me.numeroigual Then
MsgBox "CODI INCORRECTE", vbInformation, "!! ERROR !!"
numeroigual.SetFocus
numeroigual = ""
intcontadorattempts = intcontadorattempts + 1
If intcontadorattempts = 3 Then
MsgBox "ACCES DENEGAT: SI US PLAU CONTACTI AMB L'ADMINISTRADOR", vbCritical, "!! ACCES DENEGAT !!"
Application.Quit
End If
End If
End Sub
Cuando introduzco la linea:
DoCmd.Quit
para que me cierre el formulario cuando se abre el siguiente, me da error, dice access que el objeto esta cerrado o no existe.
¿porque me ocurre esto,? ¿que es lo que hago mal?.
Si alguien sabe la forma de solucionar esto, por favor, decidmelo.
Gracias. un saludo.
Valora esta pregunta


0