Validar si existe un dato en combobox obligue a insertar datos en txtbox
Tengo los siguientes combobox:
En donde si el valor del combobox es distinto a vació o NO APLICA obligue al usuario a insertar algún dato en el textbox SERIE al lado derecho del combobox.
2 respuestas
H o l a:
Agrega el código de validar series al evento btn_guardar_Click:
Public Sub btn_guardar_Click()
'Por.Dante Amor
Set h = Sheets("REGISTRO")
Set h2 = Sheets("DATOS")
u = 2
h.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
'
'validar series
If combo_sim1Entrante <> "" And combo_sim1Entrante <> "NO APLICA" Then
If txtbox_serieSimEntrante = "" Or txtbox_serieSimEntrante = "NO APLICA" Then
MsgBox "Falta capturar la serie"
txtbox_serieSimEntrante.SetFocus
Exit Sub
End If
End If
If combo_sim1Saliente <> "" And combo_sim1Saliente <> "NO APLICA" Then
If txtbox_serieSim1Saliente = "" Or txtbox_serieSim1Saliente = "NO APLICA" Then
MsgBox "Falta capturar la serie"
txtbox_serieSim1Saliente.SetFocus
Exit Sub
End If
End If
If combo_sim2Entrante <> "" And combo_sim2Entrante <> "NO APLICA" Then
If txtbox_serieSim2Entrante = "" Or txtbox_serieSim2Entrante = "NO APLICA" Then
MsgBox "Falta capturar la serie"
txtbox_serieSim2Entrante.SetFocus
Exit Sub
End If
End If
If combo_sim2Saliente <> "" And combo_sim2Saliente <> "NO APLICA" Then
If txtbox_serieSim2Saliente = "" Or txtbox_serieSim2Saliente = "NO APLICA" Then
MsgBox "Falta capturar la serie"
txtbox_serieSim2Saliente.SetFocus
Exit Sub
End If
End If
'
Felipe: Según a mi me parece entender, no lo tienes difícil, aunque es posible que no sea así.
Después de actualizar el Combo box que quieras:
If IsNull(Me.NombreDeTuCombo) Or Me.NombreDeTuCombo.Value = "NO APLICA" Then
MsgBox "Es Obligado lenar el TextBox ......",vbCritical,"FALTA DATO"
Me.NombreTuTextBox.Value = "Valor por Omisión: Cambiar"
End If
Mis Saludos >> Jacinto
Jacinto, según lo que entiendo con tu respuesta estaría validando que el combobox tuviera un valor distinto a vació o "NO APLICA" pero no validando que si el textbox tiene contenido o no, solo advirtiendo que debe tener información ingresada.
La idea es que si el combobox tiene un valor diferente a vació, o "NO APLICA" en ese momento o cuando presione el botón para ingresar la información del formulario (ojala) me acuse si los campos textbox correspondientes a cada combobox no se encuentren vacíos.
Saludos
Felipe: Te comento. En el código de de más arriba, lo que dice es.
Si el valor del combo es Nulo o el valor es NO APLICA:
1.- Te aviso que tienes que llenarlo con un valor
2.- Provisionalmente y mientras tu no lo escribes, tendrás éste >>"Valor por Omisión: Cambia"
Lo que me confunde es cuando dices"... tiene un valor diferente a vacio,.."
Bién, si lo que quieres es que reaccione cuando "Tiene", cualquier valor incluyendo el "NO APLICA"
If Not IsNull(Me.NombreDeTuCombo) Then
MsgBox "Es Obligado lenar el TextBox ......",vbCritical,"FALTA DATO"
Me.NombreTuTextBox.Value = "Valor por Omisión: Cambiar"
Me.NombreTuTextBox.SetFocus
End If
Si lo que quieres además es que no pierda el foco mientras no tenga un valor, el evento al perder el enfoque le pones algo así.
If IsNul(Me.NombreTuTextBox) Then
DoCmd.CancelEvent
End If
Te escribo un poco sobre la marcha. Creo que es bueno ir probando, y si ves que no te sales, comentamos. Saludos >> Jacinto