Autor
Código:
Private Sub btnacpetar1_Click()
Dim error As VbMsgBoxResult
If txtclave1.Text = "" Then 'si la casilla está vacía manda error
error = MsgBox("¡Error! No ha ingresado la clave", vbOKOnly + vbCritical, "Error") Else
Form2.Show ' si ha ingresado una clave,muestra el formulario 2
End If
End Sub
Form2
Código:
Private Sub btnaceptar2_Click()
Dim error As VbMsgBoxResult
If txtclave2.Text <> Form1.txtclave1.Text Then 'si la clave es distinta, error.
error = MsgBox("¡Error! La clave no es válida", vbOKOnly + vbCritical, "Error") txtclave2.Text = "" ' y vacia la casilla
Else ' ...si la clave es igual a la anterior
End ' finaliza el proceso
End If
End Sub
De la forma en que lo escribí, me funciona correctamente cumpliendo todos los requisitos pedidos. Si hay algún error, por favor díganlo.
Tengo algunas dudas en cuanto a otros ejercicios, como por ejemplo, si acaso puedo ocupar Visual Basic Scripts para realizar los ejericios 7, 8 y 9 en relación a Acceso a ficheros, o cualquier otro ejercicio en el cual sea posible, y si es posible, que de pasada me expliquen si hay alguna diferencia en los VBS, por lo cuál es seleccionado como otro tipo de código.
Espero haber sido claro.
En línea
