Título: Problemas con la Option Publicado por: kakinets en 28 Julio 2005, 04:49 am 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.... Título: Re: Problemas con la Option Publicado por: APOKALYPSE en 28 Julio 2005, 05:26 am pues con select case
Código: 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. Título: Re: Problemas con la Option Publicado por: Slasher-K en 28 Julio 2005, 08:44 am 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: 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. Título: Re: Problemas con la Option Publicado por: APOKALYPSE en 28 Julio 2005, 09:12 am Edito: tienes razon Anhur me he ekivocado en el selecta case :-[ gracias por el aviso
un saludo. |