Hola Foristas. Buenas a todos. Espero estén bien de salud.
Una vez más por acá con dudas.
Primero: En el Formulario (UserForm6) Pretendo insertar los Datos Generales de la Empresa que se imprimirán en las hojas correspondientes. Estos datos se fijarán una primera vez y no “deben” modificarse a no ser que alguno de ellos cambie en algún momento. ¿Cómo puedo mantener los Datos en sus respectivas celdas sin que cambien?
‘Este es el código (inconcluso):
Private Sub BtnGuardar_Click()
'Validar que se ingresen Datos en todos los Campos
If Me.TxtEmpresa.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.TxtEmpresa.ControlTipText), vbInformation, "COLOSSUS"
Me.TxtEmpresa.SetFocus
Exit Sub
ElseIf Me.TxtCodigo.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.TxtCodigo.ControlTipText), vbInformation, "COLOSSUS"
Me.TxtCodigo.SetFocus
Exit Sub
ElseIf Me.TxtReuup.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.TxtReuup.ControlTipText), vbInformation, "COLOSSUS"
Me.TxtReuup.SetFocus
Exit Sub
ElseIf Me.CmbPeriodo.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.CmbPeriodo.ControlTipText), vbInformation, "COLOSSUS"
Me.CmbPeriodo.SetFocus
Exit Sub
ElseIf Me.CmbBanco.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.CmbBanco.ControlTipText), vbInformation, "COLOSSUS"
Me.CmbBanco.SetFocus
Exit Sub
ElseIf Me.TxtNoCuenta.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.TxtNoCuenta.ControlTipText), vbInformation, "COLOSSUS"
Me.TxtNoCuenta.SetFocus
Exit Sub
ElseIf Me.TxtTitular.Text = "" Then
MsgBox ("Debe completar el campo: " & Me.TxtTitular.ControlTipText), vbInformation, "COLOSSUS"
Me.TxtTitular.SetFocus
Exit Sub
End If
'Boton Agregar **********************
Hoja3.Range("B3") = TxtEmpresa.Text
Hoja3.Range("B2") = CmbPeriodo.Text
Hoja4.Range("C3") = TxtEmpresa.Text
Hoja4.Range("C2") = CmbPeriodo.Text
Hoja5.Range("E5") = CmbPeriodo.Text
Hoja5.Range("A4") = TxtNoCuenta.Text
Hoja5.Range("D5") = TxtEmpresa.Text
Hoja5.Range("B5") = CmbBanco.Text
Hoja7.Range("B3") = TxtEmpresa.Text
Hoja7.Range("B2") = CmbPeriodo.Text
End Sub
Private Sub BtnSalir_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With CmbPeriodo
.AddItem "2021", 0
.AddItem "2022", 1
.AddItem "2023", 2
.AddItem "2024", 3
.AddItem "2025", 4
.AddItem "2026", 5
.AddItem "2027", 6
.AddItem "2028", 7
.AddItem "2029", 8
.AddItem "2030", 9
.AddItem "2031", 10
.AddItem "2032", 11
.AddItem "2033", 12
.AddItem "2034", 13
.AddItem "2035", 14
.AddItem "2036", 15
.AddItem "2037", 16
.AddItem "2038", 17
.AddItem "2039", 18
.AddItem "2040", 19
End With
With CmbBanco
.AddItem "BANDEC", 0
.AddItem "BFI", 1
.AddItem "BPA", 2
.AddItem "METROPOLITANO", 3
End With
End Sub
Segundo: en el FrmLogin cuando busco la manera de que los usuarios accedan al Sistema y poniendo los datos correctos me da el siguiente error:
Se ha producido el error "401" en tiempo de ejecución.
No se puede mostrar un Formulario no Modal cuando se muestra un Formulario Modal.
Verdaderamente es la primera vez que veo esa denominación de Formulario Modal y Formulario no Modal.
Option Explicit
Private Sub BtnAceptar_Click()
Dim fila, final, I As Long
fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
final = fila - 1
For I = 16 To final
If TxtUsuario = Hoja2.Cells(I, 2) And TxtContraseña.Text = Hoja2.Cells(I, 3) Then
MsgBox "ACCESO PERMITIDO", vbInformation, "COLOSSUS"
UserForm1.Show
Exit Sub
End If
Next I
MsgBox "Usuario o Contraseña incorrecta", vbCritical, "COLOSSUS"
TxtUsuario = Empty
TxtContraseña = Empty
TxtUsuario.SetFocus
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
TxtContraseña.PasswordChar = ""
Else
TxtContraseña.PasswordChar = "*"
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Cuando introduje la línea de código UserForm1.Show fue cuando comenzó el error.
Espero puedan ayudarme.
Gracias de antemano y que tengan un excelente día.
Saludos a Antoni, JSD, Gabriel, Alexander, Xinortiz, y demás foristas.
Un abrazo
Pino
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola Foristas. Buenas a todos. Espero estén bien de salud.
Una vez más por acá con dudas.
Primero: En el Formulario (UserForm6) Pretendo insertar los Datos Generales de la Empresa que se imprimirán en las hojas correspondientes. Estos datos se fijarán una primera vez y no “deben” modificarse a no ser que alguno de ellos cambie en algún momento. ¿Cómo puedo mantener los Datos en sus respectivas celdas sin que cambien?
‘Este es el código (inconcluso): Private Sub BtnGuardar_Click() 'Validar que se ingresen Datos en todos los Campos If Me.TxtEmpresa.Text = "" Then MsgBox ("Debe completar el campo: " & Me.TxtEmpresa.ControlTipText), vbInformation, "COLOSSUS" Me.TxtEmpresa.SetFocus Exit Sub ElseIf Me.TxtCodigo.Text = "" Then MsgBox ("Debe completar el campo: " & Me.TxtCodigo.ControlTipText), vbInformation, "COLOSSUS" Me.TxtCodigo.SetFocus Exit Sub ElseIf Me.TxtReuup.Text = "" Then MsgBox ("Debe completar el campo: " & Me.TxtReuup.ControlTipText), vbInformation, "COLOSSUS" Me.TxtReuup.SetFocus Exit Sub ElseIf Me.CmbPeriodo.Text = "" Then MsgBox ("Debe completar el campo: " & Me.CmbPeriodo.ControlTipText), vbInformation, "COLOSSUS" Me.CmbPeriodo.SetFocus Exit Sub ElseIf Me.CmbBanco.Text = "" Then MsgBox ("Debe completar el campo: " & Me.CmbBanco.ControlTipText), vbInformation, "COLOSSUS" Me.CmbBanco.SetFocus Exit Sub ElseIf Me.TxtNoCuenta.Text = "" Then MsgBox ("Debe completar el campo: " & Me.TxtNoCuenta.ControlTipText), vbInformation, "COLOSSUS" Me.TxtNoCuenta.SetFocus Exit Sub ElseIf Me.TxtTitular.Text = "" Then MsgBox ("Debe completar el campo: " & Me.TxtTitular.ControlTipText), vbInformation, "COLOSSUS" Me.TxtTitular.SetFocus Exit Sub End If 'Boton Agregar ********************** Hoja3.Range("B3") = TxtEmpresa.Text Hoja3.Range("B2") = CmbPeriodo.Text Hoja4.Range("C3") = TxtEmpresa.Text Hoja4.Range("C2") = CmbPeriodo.Text Hoja5.Range("E5") = CmbPeriodo.Text Hoja5.Range("A4") = TxtNoCuenta.Text Hoja5.Range("D5") = TxtEmpresa.Text Hoja5.Range("B5") = CmbBanco.Text Hoja7.Range("B3") = TxtEmpresa.Text Hoja7.Range("B2") = CmbPeriodo.Text End Sub Private Sub BtnSalir_Click() Unload Me End Sub Private Sub UserForm_Initialize() With CmbPeriodo .AddItem "2021", 0 .AddItem "2022", 1 .AddItem "2023", 2 .AddItem "2024", 3 .AddItem "2025", 4 .AddItem "2026", 5 .AddItem "2027", 6 .AddItem "2028", 7 .AddItem "2029", 8 .AddItem "2030", 9 .AddItem "2031", 10 .AddItem "2032", 11 .AddItem "2033", 12 .AddItem "2034", 13 .AddItem "2035", 14 .AddItem "2036", 15 .AddItem "2037", 16 .AddItem "2038", 17 .AddItem "2039", 18 .AddItem "2040", 19 End With With CmbBanco .AddItem "BANDEC", 0 .AddItem "BFI", 1 .AddItem "BPA", 2 .AddItem "METROPOLITANO", 3 End With End Sub
Segundo: en el FrmLogin cuando busco la manera de que los usuarios accedan al Sistema y poniendo los datos correctos me da el siguiente error:
Se ha producido el error "401" en tiempo de ejecución.
No se puede mostrar un Formulario no Modal cuando se muestra un Formulario Modal.
Verdaderamente es la primera vez que veo esa denominación de Formulario Modal y Formulario no Modal.
Option Explicit Private Sub BtnAceptar_Click() Dim fila, final, I As Long fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 final = fila - 1 For I = 16 To final If TxtUsuario = Hoja2.Cells(I, 2) And TxtContraseña.Text = Hoja2.Cells(I, 3) Then MsgBox "ACCESO PERMITIDO", vbInformation, "COLOSSUS" UserForm1.Show Exit Sub End If Next I MsgBox "Usuario o Contraseña incorrecta", vbCritical, "COLOSSUS" TxtUsuario = Empty TxtContraseña = Empty TxtUsuario.SetFocus End Sub Private Sub CheckBox1_Click() If CheckBox1 = True Then TxtContraseña.PasswordChar = "" Else TxtContraseña.PasswordChar = "*" End If End Sub Private Sub CommandButton1_Click() Unload Me End Sub
Cuando introduje la línea de código UserForm1.Show fue cuando comenzó el error.
Espero puedan ayudarme.
Gracias de antemano y que tengan un excelente día.
Saludos a Antoni, JSD, Gabriel, Alexander, Xinortiz, y demás foristas.
Un abrazo
Pino