HOW to use a select case in...

User avatar
sal21
PlatinumLounger
Posts: 4334
Joined: 26 Apr 2010, 17:36

HOW to use a select case in...

Post by sal21 »

Code: Select all

'FILL SOTTO COMBOBOX
                If CNAME = "CESERCIZIO" Then
                    Me.CINIZIO0.AddItem ELEMENT
                    Me.CFINE0.AddItem ELEMENT
                End If

                If CNAME = "CREVISIONE" Then
                    Me.CINIZIO1.AddItem ELEMENT
                    Me.CFINE1.AddItem ELEMENT
                End If

                If CNAME = "CCOLLAUDO" Then
                    Me.CINIZIO2.AddItem ELEMENT
                    Me.CFINE2.AddItem ELEMENT
                End If

                If CNAME = "CSCADEST" Then
                    Me.CINIZIO3.AddItem ELEMENT
                    Me.CFINE3.AddItem ELEMENT
                End If

                If CNAME = "CDATAINTERVENTO" Then
                    Me.CINIZIO4.AddItem ELEMENT
                    Me.CFINE4.AddItem ELEMENT
                End If

                If CNAME = "CANNOCOSTR" Then
                    Me.CINIZIO5.AddItem ELEMENT
                    Me.CFINE5.AddItem ELEMENT
                End If
                'FILL SOTTO COMBOBOX

User avatar
HansV
Administrator
Posts: 78233
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: HOW to use a select case in...

Post by HansV »

You should be able to do that yourself, Sal.
Best wishes,
Hans