[VB6] loop su opt non va +

[raffaeu]

Ciao avevo creato un loop su delle opt presenti in un form ma ora non va piu', non funziona il ciclo

Private Sub controllaOpt()
On Error Resume Next
Dim opt As OptionButton
Dim frm As Form
Set frm = frmRegistrazione
    For Each opt In frm
        If opt.Value = True Then
            Select Case opt.Tag
                Case "A": caricaAlbero
                Case "B":
                            If txtDATA.Text = "" Or txtDATA2.Text = "" Then
                                MsgBox "Inserire entrambe le date."
                                txtDATA.SetFocus
                                Exit Sub
                            Else
                                Dim dDate As String
                                Dim aDate As String
                                If Not IsDate(Trim(txtDATA)) Then txtDATA = Format(Date, "dd" & sDate & "mm" & sDate & "yyyy")
                                If Not IsDate(Trim(txtDATA2)) Then txtDATA2 = Format(Date, "dd" & sDate & "mm" & sDate & "yyyy")
                                dDate = Format(txtDATA, "mm/dd/yy")
                                dDate = Replace(dDate, ".", "/")
                                aDate = DateAdd("d", 1, CDate(txtDATA2))
                                aDate = Format(aDate, "mm/dd/yy")
                                aDate = Replace(aDate, ".", "/")
                                RICERCA "DataModifica Between #" & dDate & "# And #" & aDate & "# "
                            End If
                Case "C":
                            If txtCLIENTE.Text = "" Then
                                MsgBox "Scegliere un Cliente / Fornitore"
                                txtCLIENTE.SetFocus
                                Exit Sub
                            Else
                                RICERCA "CLIENTE = " & lblID_CLIENTE.Caption
                            End If
                Case "D":
                            If txtFATTURA.Text = "" Then
                                MsgBox "Inserire un numero da ricercare."
                                txtFATTURA.SetFocus
                                Exit Sub
                            Else
                                RICERCA "FATTURA = " & txtFATTURA.Text
                            End If
            End Select
        End If
    Next
End Sub

In grassetto la parte incriminata, se vado in debug, quando sono nel ciclo mi dice variabile ... non impostata ed esce, perchè?

[raffaeu]

up

secondo voi cosa puo' essere

[DeBe99]

dovresti cambiare un po il ciclo, cercando controlli generici (non solo option e al limite confrontando il tipo (TypeName). Poi il ciclo va fatto sull'insime controls del form:

Dim opt As Control
Dim frm As Form
Set frm = frmRegistrazione
For Each opt In frm.Controls
   If TypeName(opt) = "OptionButton" Then 
        If opt.Value = True Then
            Select Case opt.Tag
                Case "A": caricaAlbero
                Case "B":
                ...
            End Select
        End If
   end if
Next opt

[raffaeu]

non so se va bene lo stesso, ma ho risolto in questo modo:

Dim opt As OptionButton
    For Each opt In frmRegistrazione
        If opt.Value = True Then
            Select Case opt.Tag

... ... ... ... ... ... ... ... ... ...
 ... ... ... ... .... ... .. .. .. . . .. .

Adesso funziona, prima non so come mai ma non trovava l' oggetto opt quando il ciclo arrivava sulla riga opt.tag, adesso la trova ???

Boh ...

PS: un buon sito dove scaricare qualche ocx bello, tipo list view con immagini e simili?