Good morning friends I hope you are well
Within the VTL Form (frmvtl) I have three buttons with identical icons CommandButton5 (Guardar), CommandButton19 (Agregar) and CommandButton20 (Editar) which I need to be selectively hidden when the following conditions are met after clicking the Search button :
Currently I have managed to hide the “Guardar” (CommandButton5) and “Agregar” (CommandButton19) buttons, however, when doing a combined search with ID Number (TextBox1), Start Date (TextBox4) and End Date (TextBox5) using “Buscar” button (CmdBUSCAR), the “Guardar” (CommandButton5) and “Agregar” (CommandButton19) buttons are not hidden, leaving the three buttons even if the condition is met so that only the “Editar” button (CommandButton20) can be visible:
Within the VTL Form (frmvtl) I have three buttons with identical icons CommandButton5 (Guardar), CommandButton19 (Agregar) and CommandButton20 (Editar) which I need to be selectively hidden when the following conditions are met after clicking the Search button :
VBA Code:
Private Sub CmdBUSCAR_Click()
'Alertas del Sistema
If Me.TextBox1.Value = "" Then
Msgbox "Datos Incompletos: Ingrese un Número de Cédula", vbExclamation
End If
'Buscar Datos
Dim sh As Worksheet
Dim f As Range, r As Range
Dim cell As String
Dim fecIni As Date, fecFin As Date
Set sh = Sheets("MATRIZ4")
Set r = sh.Range("B:B")
If TextBox4.Value = "" Then
Set f = r.Find(Val(TextBox1.Value), , xlValues, xlWhole, xlByRows, xlNext)
If Not f Is Nothing Then
Me.TextBox2.Value = sh.Range("C" & f.Row).Value
Me.ComboBox1.Value = sh.Range("F" & f.Row).Value
Me.ComboBox2.Value = sh.Range("G" & f.Row).Value
Me.TextBox36.Value = sh.Range("AN" & f.Row).Value
Me.TextBox33.Value = sh.Range("AV" & f.Row).Value
Me.TextBox34.Value = sh.Range("AW" & f.Row).Value
Me.TextBox35.Value = sh.Range("AX" & f.Row).Value
End If
Else
If IsDate(TextBox4.Value) And IsDate(TextBox5.Value) Then
fecIni = CDate(TextBox4.Value)
fecFin = CDate(TextBox5.Value)
Set f = r.Find(Val(TextBox1.Value), , xlValues, xlWhole, xlByRows, xlNext)
If Not f Is Nothing Then
cell = f.Address
Do
If sh.Range("D" & f.Row).Value = fecIni And sh.Range("E" & f.Row).Value = fecFin Then
Me.TextBox2.Value = sh.Range("C" & f.Row).Value
Me.ComboBox1.Value = sh.Range("F" & f.Row).Value
Me.ComboBox2.Value = sh.Range("G" & f.Row).Value
Me.Label32 = sh.Range("H" & f.Row).Value
Me.TextBox16.Value = sh.Range("AD" & f.Row).Value
Me.TextBox17.Value = sh.Range("AE" & f.Row).Value
Me.TextBox18.Value = sh.Range("AF" & f.Row).Value
Me.TextBox19.Value = sh.Range("AG" & f.Row).Value
Me.TextBox20.Value = sh.Range("AH" & f.Row).Value
Me.TextBox21.Value = sh.Range("AI" & f.Row).Value
Me.TextBox22.Value = sh.Range("AJ" & f.Row).Value
Me.TextBox23.Value = sh.Range("AL" & f.Row).Value
Me.TextBox25.Value = sh.Range("AK" & f.Row).Value
Me.TextBox26.Value = sh.Range("AM" & f.Row).Value
Me.TextBox27.Value = sh.Range("AO" & f.Row).Value
Me.TextBox28.Value = sh.Range("AP" & f.Row).Value
Me.TextBox29.Value = sh.Range("AQ" & f.Row).Value
Me.TextBox30.Value = sh.Range("AR" & f.Row).Value
Me.TextBox31.Value = sh.Range("AT" & f.Row).Value
Me.TextBox32.Value = sh.Range("AU" & f.Row).Value
Me.TextBox33.Value = sh.Range("AV" & f.Row).Value
Me.TextBox34.Value = sh.Range("AW" & f.Row).Value
Me.TextBox35.Value = sh.Range("AX" & f.Row).Value
Me.TextBox36.Value = sh.Range("AN" & f.Row).Value
Exit Sub
End If
Set f = r.FindNext(f)
Loop While f.Address <> cell
End If
End If
End If
'Boton Guardar Visible
If Me.TextBox2.Value <> "" And Me.ComboBox1.Value <> "" And Me.ComboBox2.Value <> "" And Me.TextBox16.Value = "" And _
Me.TextBox17.Value = "" And Me.TextBox18.Value = "" And Me.TextBox19.Value = "" And Me.TextBox20.Value = "" And _
Me.TextBox21.Value = "" And Me.TextBox22.Value = "" And Me.TextBox23.Value <> "" And Me.TextBox24.Value <> "" And _
Me.TextBox25.Value = "" And Me.TextBox26.Value = "" And Me.TextBox27.Value = "" And Me.TextBox28.Value = "" And _
Me.TextBox29.Value = "" And Me.TextBox30.Value = "" And Me.TextBox31.Value = "" And Me.TextBox32.Value <> "" And _
Me.TextBox33.Value <> "" And Me.TextBox34.Value <> "" And Me.TextBox35.Value <> "" And Me.TextBox36.Value <> "" Then
CommandButton5.Visible = True
CommandButton19.Visible = False
CommandButton20.Visible = False
'Boton Agregar Visible
ElseIf Me.TextBox2.Value = "" And Me.ComboBox1.Value = "" And Me.ComboBox2.Value = "" And Me.TextBox16.Value = "" And _
Me.TextBox17.Value = "" And Me.TextBox18.Value = "" And Me.TextBox19.Value = "" And Me.TextBox20.Value = "" And _
Me.TextBox21.Value = "" And Me.TextBox22.Value = "" And Me.TextBox23.Value = "" And Me.TextBox24.Value = "" And _
Me.TextBox25.Value = "" And Me.TextBox26.Value = "" And Me.TextBox27.Value = "" And Me.TextBox28.Value = "" And _
Me.TextBox29.Value = "" And Me.TextBox30.Value = "" And Me.TextBox31.Value = "" And Me.TextBox32.Value = "" And _
Me.TextBox33.Value = "" And Me.TextBox34.Value = "" And Me.TextBox35.Value = "" And Me.TextBox36.Value = "" Then
CommandButton5.Visible = False
CommandButton19.Visible = True
CommandButton20.Visible = False
'Boton Editar Visible
ElseIf Me.TextBox2.Value <> "" And Me.ComboBox1.Value <> "" And Me.ComboBox2.Value <> "" And Me.TextBox23.Value <> "" And _
Me.TextBox24.Value <> "" And Me.TextBox25.Value <> "" And Me.TextBox26.Value <> "" And Me.TextBox27.Value <> "" And _
Me.TextBox28.Value <> "" And Me.TextBox29.Value <> "" And Me.TextBox30.Value <> "" And Me.TextBox31.Value <> "" And _
Me.TextBox32.Value <> "" And Me.TextBox33.Value <> "" And Me.TextBox34.Value <> "" And Me.TextBox35.Value <> "" And _
Me.TextBox36.Value <> "" Then
CommandButton5.Visible = False
CommandButton19.Visible = False
CommandButton20.Visible = True
Else
CommandButton5.Visible = False
CommandButton19.Visible = False
CommandButton20.Visible = False
End If
End Sub
VBA Code:
Private Sub CmdBUSCAR_Click()
'Botón Guardar Visible
If (Me.TextBox2.Value <> "" And Me.ComboBox1.Value <> "" And Me.ComboBox2.Value <> "" And Me.TextBox16.Value = "" And _
Me.TextBox17.Value = "" And Me.TextBox18.Value = "" And Me.TextBox19.Value = "" And Me.TextBox20.Value = "" And _
Me.TextBox21.Value = "" And Me.TextBox22.Value = "" And Me.TextBox23.Value <> "" And Me.TextBox24.Value <> "" And _
Me.TextBox25.Value = "" And Me.TextBox26.Value = "" And Me.TextBox27.Value = "" And Me.TextBox28.Value = "" And _
Me.TextBox29.Value = "" And Me.TextBox30.Value = "" And Me.TextBox31.Value = "" And Me.TextBox32.Value <> "" And _
Me.TextBox33.Value <> "" And Me.TextBox34.Value <> "" And Me.TextBox35.Value <> "" And Me.TextBox36.Value <> "") Then
CommandButton5.Visible = True
CommandButton19.Visible = False
CommandButton20.Visible = False
'Botón Agregar Visible
ElseIf (Me.TextBox2.Value = "" And Me.ComboBox1.Value = "" And Me.ComboBox2.Value = "" And Me.TextBox16.Value = "" And _
Me.TextBox17.Value = "" And Me.TextBox18.Value = "" And Me.TextBox19.Value = "" And Me.TextBox20.Value = "" And _
Me.TextBox21.Value = "" And Me.TextBox22.Value = "" And Me.TextBox23.Value = "" And Me.TextBox24.Value = "" And _
Me.TextBox25.Value = "" And Me.TextBox26.Value = "" And Me.TextBox27.Value = "" And Me.TextBox28.Value = "" And _
Me.TextBox29.Value = "" And Me.TextBox30.Value = "" And Me.TextBox31.Value = "" And Me.TextBox32.Value = "" And _
Me.TextBox33.Value = "" And Me.TextBox34.Value = "" And Me.TextBox35.Value = "" And Me.TextBox36.Value = "") Then
CommandButton5.Visible = False
CommandButton19.Visible = True
CommandButton20.Visible = False
'Botón Editar Visible
ElseIf Me.TextBox2.Value <> "" And Me.ComboBox1.Value <> "" And Me.ComboBox2.Value <> "" And Me.TextBox23.Value <> "" And _
Me.TextBox24.Value <> "" And Me.TextBox25.Value <> "" And Me.TextBox26.Value <> "" And Me.TextBox27.Value <> "" And _
Me.TextBox28.Value <> "" And Me.TextBox29.Value <> "" And Me.TextBox30.Value <> "" And Me.TextBox31.Value <> "" And _
Me.TextBox32.Value <> "" And Me.TextBox33.Value <> "" And Me.TextBox34.Value <> "" And Me.TextBox35.Value <> "" And _
Me.TextBox36.Value <> "" Then
CommandButton5.Visible = False
CommandButton19.Visible = False
CommandButton20.Visible = True
Else
CommandButton5.Visible = False
CommandButton19.Visible = False
CommandButton20.Visible = False
End If
End Sub
Currently I have managed to hide the “Guardar” (CommandButton5) and “Agregar” (CommandButton19) buttons, however, when doing a combined search with ID Number (TextBox1), Start Date (TextBox4) and End Date (TextBox5) using “Buscar” button (CmdBUSCAR), the “Guardar” (CommandButton5) and “Agregar” (CommandButton19) buttons are not hidden, leaving the three buttons even if the condition is met so that only the “Editar” button (CommandButton20) can be visible:
Code:
Private Sub CmdBUSCAR_Click()
'Boton Editar Visible
ElseIf Me.TextBox2.Value <> "" And Me.ComboBox1.Value <> "" And Me.ComboBox2.Value <> "" And Me.TextBox23.Value <> "" And _
Me.TextBox24.Value <> "" And Me.TextBox25.Value <> "" And Me.TextBox26.Value <> "" And Me.TextBox27.Value <> "" And _
Me.TextBox28.Value <> "" And Me.TextBox29.Value <> "" And Me.TextBox30.Value <> "" And Me.TextBox31.Value <> "" And _
Me.TextBox32.Value <> "" And Me.TextBox33.Value <> "" And Me.TextBox34.Value <> "" And Me.TextBox35.Value <> "" And _
Me.TextBox36.Value <> "" Then
CommandButton5.Visible = False
CommandButton19.Visible = False
CommandButton20.Visible = True
End If
End Sub
Last edited: