Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    [VB6] controllo se numero e intervallo

    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!

    codice:
    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

  2. #2

    help !

    up up up your mind !

  3. #3

    però ora

    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???!

    codice:
        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

  4. #4

    ok ora si....ke skeggia che sono !

    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 !

    codice:
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.