problema con actualizar formularios

MANUJMRI
21 de Julio del 2004
tengo un programa con unos 10 formularios. el primer formulario k tengo es el form1 k consta de 2 txtboxes y dos commandbutons asociados a cada textbox. esto es para entrar en el programa, lo k he hecho es k cuando introduzcsa una clave entre al programa pudiendo ver todos los datos pero con otra clave solo verá los datos k yo kiero. El codigo sería el siguiente:



Private Sub Command1_Click()

If form1.Text1.Text = "clave" Then

form7.text1.text="Acceso restringido"
form2.Show
Unload form1

End If

End Sub

Private Sub Command2_Click()
If form1.Text2.Text = "clave2" Then
form2.Show
Unload form1
End If
End Sub

entonces con esto hago k la textbox de form7 ponga Aceso restringido. pero el problema viene pork form7 viene de form6 mediante un commandbuton y cuando ejecuto el programa y voyla primera vez a form7 si me aparece la label como acceso restringido pero el problema es cuando vuelvo otra vez de form7 a form6. si ahora kiero volver otra vez a form7 ya no me aparece lo de Acceso restringido sino el dato k antes habia y k yo no kiero k sea visualizado por usuarios no autorizados. como puedo solucionar esto? teneis alguna idea? gracias

Estrambotica
21 de Julio del 2004
Hola!!! :-) , tienes q preguntar cada vez q llamas al formulario restringido, si la clave q introdujo es la correcta, es decir el dato del txt1 guardalo en una variable publica " variable = txt1" (creada en un modulo), antes de llamar al form7 pregunta

if variable="clave" then
form7.show
else
msgbox "acceso restringido"
end

espero q t sirva bye