Validar que al menos un Checkbox esté seleccionado
En el formulario tengo múltiples campos, a todos les hice es if = “” entonces me aparezca el mensaje de completar, pero 6 Checkbox (lo hice así porque son 6 alternativas que no son excluyentes) ya hice con un IF que al ser true guarde un 1 o 0 si es falso, ¿pero cómo hago para que valide que al menos uno de los 6 esté seleccionado? Busqué en el foro, pero no encontré un código útil, o (lo más probable no supe buscar bien) y además hay 1 campo de texto que no debiera permitir menos de 5 caracteres.
2 respuestas
Te dejo un código para evaluar si hay check marcados o no. Lo coloqué en un botón solo para que puedas probarla... luego colocarás las instrucciones dentro de tu código.
Private Sub CommandButton1_Click() 'x Elsamatilde 'verificar cuántos Check están marcados Dim conta As Byte For Each cd In Me.Controls If TypeName(cd) = "CheckBox" Then If cd.Value = True Then conta = conta + 1 End If Next cd 'si no hay check marcados envía mensaje If conta = 0 Then MsgBox "Falta seleccionar alguna opción.", , "Atención" End Sub
PD) Por el tema del textbox deja una nueva consulta en el tablón con su título correspondiente.
