Problemas con la Option

[kakinets]

holass a todoss

Tengo una duda yo tengo 4Option y un boton cada Option hase una funsion distinta lo q yo quisiera sava si se puede q cuando yo presiones el boton y no tenga nigun Option selecsionado me de un Error es decir q aparezca un MsgBox


gracias

PD:lo se hacer en los text pero esto es la primera ves q los uso....

[APOKALYPSE]

pues con select case

Código [Seleccionar] Expandir

Select Case Option1(i).Value
Case Option1(0).Value = True
sentencias
Case Option1(1).Value = True
sentencias
Case Option1(2).Value = True
sentencias
Case Option1(3).Value = True
sentencias
Case Else
MsgBox "error"
End Select

un saludo.

[Slasher-K]

Select Case no se usa así. Lo mejor es crear una matriz de controles OptionButton y luego cuando se hace click en el botón se usaría un código como el siguiente:

Código [Seleccionar] Expandir


Private Sub CommandBtn_Click()
         Dim i%

  For i = 0 To OptionBtn.Count -1
    If OptionBtn(i).Value = True Then Exit Sub
  Next

  Call MsgBox("No hay ninguna opción seleccionada", vbCritical)
End Sub


Saludos.

[APOKALYPSE]

Edito: tienes razon Anhur me he ekivocado en el selecta case  gracias por el aviso

un saludo.