Ciao ragazzi ho un piccolo problema :
perche' la mia X non mi da nessun valore ?
Ditemi dove go sbagliato , a me sembra che la sintassi sia giusta.
Select Case varModelloFono
'estrapolo i caratteri per cercarli nel catalogo
‘
Case Is <> "FSJ-" And varModelloFono <> "FKP-" And varModelloFono <> "FKC-"
X = Left(varModelloFono, 2)
‘
Case Is = "FSJ-"
X = "FS"
‘
Case Is = "FKP-"
X = "FP"
‘
Case Is = "FKC-"
X = "FC"
‘
End Select
'
'Dim cerca As String
'cerca = X & y & z
'Unisce i nomi per ricavare il nome intero del 'catalogo
‘y = larghezza
‘z= profondita’
|