if per decidere il valore di una variabile.. ma non va

[Beppe2hd]

voglio che una variabile, in questo caso sex, assuma valori diversi in base all'optionbutton selezionato...
ho usato questo ciclo if... ma la variabile risulta (restituita da in msgbox) sempre 0
perchè?

Private Sub Command1_Click()
If Option1.Value = True Then
sex = 30
ElseIf Option2.Value = True Then
sex = 2
ElseIf Option3.Value = True Then
sex = 0.5
Else
sex = 1
End If

che codice potrei usare in alternativa

[leon84]

Originally posted by "Beppe2hd"

voglio che una variabile, in questo caso sex, assuma valori diversi in base all'optionbutton selezionato...
ho usato questo ciclo if... ma la variabile risulta (restituita da in msgbox) sempre 0
perchè?

Private Sub Command1_Click()
If Option1.Value = True Then
sex = 30
ElseIf Option2.Value = True Then
sex = 2
ElseIf Option3.Value = True Then
sex = 0.5
Else
sex = 1
End If

che codice potrei usare in alternativa

Scusa dove dichiari la variabile sex ?

[Beppe2hd]

la variabile l'ho dichiarata nella parte generale...nella speranzaa che fosse valida anche per gli altri cicli del programma...
vi mando il codice intero..?

[matpez]

L'ho provato da me...funziona!!!!

Non è sicuramente il codice sbagliato!!

[Beppe2hd]

Allora : il codice completo per questo form è il seguente

Private Sub Check1_Click()
If Check1.Value = 1 Then
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Else
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Else
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
End If
End Sub

Private Sub Command1_Click()
If Option1.Value = True Then
sex = 30
ElseIf Option2.Value = True Then
sex = 2
ElseIf Option3.Value = True Then
sex = 0.5
Else
sex = 1
End If

If Option4.Value = True Then
sterss = 30
ElseIf Option5.Value = True Then
stress = 2
ElseIf Option6.Value = True Then
stress = 0.5
Else
stress = 1
End If

End Sub

Private Sub Command2_Click()
MsgBox sex
End Sub



Private Sub Form_Load()
Dim stress As Integer
Dim sex As Integer
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False
Option5.Enabled = False
Option6.Enabled = False
End Sub

La domanda è dove devo mettere le dichiarazioni delle variabili perchè siano lette in tutte le procedure...??? e in modo quindi che una volta cliccato il command 1 di seguito il clic del command 2 mi restituisca il mgsbox con la variabile???

[leon84]

Perché non facciamo una cosa . Inviami tutto il programma zippato che me lo vedo con calma . Chiaramente se ti va .

[cionci]

basta dichiarare "Dim sex As Double" in cima al codice...

[Beppe2hd]

bene così ma adsso il problema è fare leggere quelle variabili al form 1.
In pratica (allego il programma) mi servono nella procedura "special" del form 1

[Beppe2hd]

il file è di 2 Kb circa ma non me lo fa allegare... dice che la dimensione degli allegati è al limite.. come vi faccio avere il programma?

[cionci]

La devi dichiarare solo una volta per tutto il form in alto al di fuori delle sub...

[leon84]

Beppe guarda i tuoi PVT , ti ho inviato l'indirizzo email così potrai inviarmi il programma