Como hacer un formulario de acceso a otro formulario principal mediante usuario y contraseña en Visual Basic.

Necesito acceder a un formulario principal, pero mediante otro que me pida usuario y contraseña.

Respuesta
1

Te facilito el código

Private Sub CommandButton1_Click()
usuario = TextBox1.Text
clave = TextBox2.Text
If usuario = "abc" And clave = 123 Then ' Cambia usuario y la clave deseado
Unload Me
Principal.Show 'Asegurate si el nombre  del formulario "principal" sea correcto
Else
MsgBox "Clave o usuario incorecto", vbInformation, "Aviso"
TextBox1.Text = ""
TextBox2.Text = ""
End If
End Sub

Me comenta y valoras para finalizar saludos!

2 respuestas más de otros expertos

Respuesta

¿En qué Visual Basic estas trabajando? En el que trae Excel (VBA) o el que trae Visual Studio (VB.NET)

Respuesta

En VBA de Excel

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Website verification: Process and what to look forWhen you are dealing with a new website,

When you are dealing with a new website, it is very important to verify that the website is legitimate and not a scam. This process can be done by looking for certain things on the website, such as contact information, privacy policy, and terms and...
4 respuestas

Porque mi nuevo pc gamming me saca de los juegos

Mi hijo se montó un pc gamming pero observa que cuando está jugando a un juego este de repente se cierra y no le deja seguir jugando y le pasa con cualquier juego. Tiene todo actualizado los drivers de todos los componentes y los controladores. Se le...
8 respuestas

Hi all, can you tell me how you where downloading videos from tiktok without the watermark.

Hi all, can you tell me how you where downloading videos from tiktok without the watermark. I need to find out right now, the video needs to be downloaded as fast as possible for my tiktok compilation . You want to tell you that I'm having a really...
9 respuestas

In 11 Winner you can build your dream team, participate in leagues, and forecast the outcome of games when they occur. It’s like

In 11 Winner you can build your dream team, participate in leagues, and forecast the outcome of games when they occur. It’s like being in the action, making every game more exciting than sitting in the stands. ¿The greatest aspect? Your skills and...
3 respuestas

Consulta de ingeniería de informática

Hace tiempo que estoy pensando en empezar a estudiar ingeniería informática de sistemas, pero no conozco a nadie que la esté haciendo, así que voy a hacerte unas consultas. Yo vengo de FP y aunque tengo una nota media bastante buena (entro dentro sin...
6 respuestas

3 Patti loot apps prioritize responsible gaming practices

3 Patti loot apps prioritize responsible gaming practices, ensuring that players maintain a healthy balance between enjoyment and moderation. Many apps include features that allow players to set personal limits on spending or playing time, and some...
9 respuestas

Como crear una condición en un textbox

Debo crear una condición en esta Macro en el TextBox8 ( se ingresa una fecha) ya que en muchas ocasiones no debo ingresar dicha fecha, y si eso sucede no me permite seguir, como lograr para que esto no suceda Private Sub CommandButton2_Click() Dim...
2 respuestas

Por qué el ratón USB ya no funciona en el móvil?

Tengo un móvil de pantalla completamente táctil y está estropeada. Para poder usarlo lo hago a través de un ratón USB conectado a un cable OTG. Todo iba bien hasta que el otro día dejó de funcionar. La luz del ratón se encendió 2 ó 3 segundos y ya no...
10 respuestas

¿Cuál es el lenguaje más seguro para un sitio web?

Quisiera saber cual es en sí el lenguaje web más seguro hoy en día de los comunes utilizados, me refiero a : - Php - NodeJS - Java - Python - Ruby ¿Cuál ofrece más seguridad para una aplicación web?
1 respuesta

Italians Breeze Through Satta king Czech Point

It wasn’t supposed to be this way - a do-or-die encounter by the North Sea. It had been largely assumed that Italy and the Czech Republic would already have qualified by the team they met in Hamburg - or at least be very close to doing so. That...
6 respuestas