[VB] numeri

[Rossella_75]

ciao a tutti

ho una textbox e devo fare in modo che se l'utente inserisce un numero minore o uguale a 45 deve fare "bla bla bla" se il numero e compreso tra 45 e 70 allora "bla" altrimenti "ciao"

io ho fatto cosi

If Textbox <= 45 Then
MsgBox " bla bla bla"
ElseIf Textbox > 45 < 70 Then
MsgBox "bla"
ElseIf Textbox > 70 Then
MsgBox "ciao"
End If

perchè se scrivo 80 non mi da ciao??

[$$$]

scusa ma Textbox.. che sarebbe Textbox.text ???

[Rossella_75]

SI

[Michele Facchin]

If (Text1.Text <= 45) Then
 MsgBox "bla bla bla"
ElseIf (Text1.Text > 45) And (Text1.Text < 70) Then
 MsgBox "bla"
Else
 MsgBox "ciao"
End If

[Rossella_75]

guarda il codice su cui sto lavorando è questo

Private Sub lunghezza_LostFocus()

    lunghezza = Trim(lunghezza)    'ELIMINO EVENTUALI SPAZi
    
    If (lunghezza.Text <= 45) Then
    

    sqlstring = "select * from ListinoTimbri where misura like '*" & Replace(lunghezza.Text, "'", "''") & "*'"  'CREO LA QUERY

    Set db = OpenDatabase(App.Path & "\db1.mdb", False, False) ' APRO IL DATABASE

    Set rs = db.OpenRecordset(sqlstring) 'ESEGUO LA QUERY

    Set Data.Recordset = rs
    If Not Data.Recordset.EOF Then
    Do While Not Data.Recordset.EOF
    
    primarigap = (Data.Recordset.Fields("primarigap"))
    rigopiup = (Data.Recordset.Fields("rigopiup"))
    
    primarigar = (Data.Recordset.Fields("primarigar"))
    rigopiur = (Data.Recordset.Fields("rigopiur"))
    
    Data.Recordset.MoveNext
    Loop
    righe.Enabled = True
    primarigap.Enabled = True
    rigopiup.Enabled = True
    primarigar.Enabled = True
    rigopiur.Enabled = True
    
    Else
    MsgBox "PREZZO NON DISPONIBILE"
    righe.Enabled = False
    primarigap.Enabled = False
    rigopiup.Enabled = False
    primarigar.Enabled = False
    rigopiur.Enabled = False
    
    End If
    
    rs.Close        'CHIUDO IL RECORDSET
    db.Close        'CHIUDO IL DATABASE
    
    
  End If
    
End Sub

la prima volta se scrivo ad esempio 30 funziona poi se scrivo 70 non funziona

[Rossella_75]

risolto

:adhone:

[LorenzoM]

Soluzione alternativa:
Dim dato as Integer
dato=val(Text1.text)
Select Case dato
Case <45:msgbox("bla bla")
Case >70:msgbox("bla")
Case Else:msgbox("Ciao")
End Select

[Rossella_75]

Grazie