[VB6] controllo se numero e intervallo

[beppenet]

Ciao raga....allora....non riesco a scrivere correttamente questo insieme di controlli... :rollo:

ho una serie di IF per verificare il contenuto dei campi del Form....uno di questi IF dovrebbe fare al suo interno un controllo principale per verificare che sia un numero e poi vedere se il numero è corretto!

If txtCodCom.Text è un numero allora
   If (Len(Trim(txtCodCom.Text)) <= 100) Or (Len(Trim(txtCodCom.Text)) > 1000) Then
   MsgBox "Inserire un codice valido "
   txtCodCom.SetFocus
        If Len(Trim(txtCodCom.Text)) = 0 Then
          MsgBox "Inserire un codicevalido "
          txtCodCom.SetFocus
    
    ElseIf Len(Trim(txtDesCom.Text)) = 0 Then
        MsgBox "Inserire la descrizione della commessa"
        txtDesCom.SetFocus
    ElseIf Len(Trim(cmbTipCom.Text)) = 0 Then
        MsgBox "Scegliere la tipologia della commessa"
        cmbTipCom.SetFocus

[beppenet]

up up up your mind !

[beppenet]

ok....l'ho ricritta così....sintatticamente va bene, ma non mi accetta mai il valore dandomi sempre il 2° MsgBox ... lo vede sempre minore di 100?? dove sbaglio raga???!

    If Not IsNumeric(txtCodCom.Text) Then
    MsgBox "Inserire un Codice Commessa valido"
    txtCodCom.SetFocus
    ElseIf (Len(Trim(txtCodCom.Text)) < 100) Or (Len(Trim(txtCodCom.Text)) > 1000) Then
    MsgBox "Inserire un Codice Commessa valido (compreso tra 100 e 1000)"
    txtCodCom.SetFocus

[beppenet]

ok raga....questo monologo....forse era troppo fessa la cosa....è finito....e poichè onon mi piace vedere post lasciati privi di conclusione vi metto il codice....magari qualche sckeggia come me può avere la stessa difficolta !

If Not IsNumeric(txtCodCom.Text) Then
    MsgBox "Inserire un Codice Commessa valido"
    txtCodCom.SetFocus
    ElseIf ((txtCodCom.Text) < 100) Then
    MsgBox "Inserire un Codice Commessa valido (compreso tra 100 e 1000)"
    txtCodCom.SetFocus
    ElseIf ((txtCodCom.Text) > 1000) Then
    MsgBox "Inserire un Codice Commessa valido (!compreso tra 100 e 1000)"
    txtCodCom.SetFocus