+ Rispondi al Thread
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11

Discussione: errori di run-time

  1. #1
    L'avatar di papy2
    papy2 non è in linea Scolaretto
    Luogo
    Alberobello
    Post
    483

    errori di run-time

    Buongiorno a tutti,

    ho inserito nella load di un form un controllo che mi deve fare sul db access collegato al sw... in pratica di 6 tabelle mi deve calcolare la somma di alcuni campi precisi... ho notato che quando non trova niente mi dà il valore nullo, quindi ho inserito un gestore errori che avvisa quando il campo è nullo, ma dopo il gestore errori, le somme successive non vengono calcolate, praticamente se trova un valore nullo alla prima tabella, le altre 5 tabelle non le considera proprio... come posso fare affinchè tutte mi vengano visualizzate!!!


    Grazie a tutti
    giuseppe cisternino

  2. #2
    vb6_ non è in linea Scolaretto
    Post
    469
    Senza vedere il codice è difficile tentare di aiutarti..non è che la gestione errore ha qualcosa che non funziona?
    Ciao

  3. #3
    L'avatar di papy2
    papy2 non è in linea Scolaretto
    Luogo
    Alberobello
    Post
    483
    magari, posto il codice...

    On Error GoTo GestoreErrori

    Call apri_db
    Set rec_mandorleinguscio = New ADODB.Recordset
    rec_mandorleinguscio.Open "SELECT SUM(PESO) AS PP FROM TAB_MANDORLEINGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text1.Text = rec_mandorleinguscio.Fields("PP").Value

    Set rec_mandorleinguscio = New ADODB.Recordset
    rec_mandorleinguscio.Open "SELECT SUM(COSTOALKG) AS PU FROM TAB_MANDORLEINGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text2.Text = rec_mandorleinguscio.Fields("PU").Value

    Set rec_mandorlesgusciate = New ADODB.Recordset
    rec_mandorlesgusciate.Open "SELECT SUM(PESO) AS PP FROM TAB_MANDORLESGUSCIATE", dbase, adOpenForwardOnly, adLockReadOnly
    Text3.Text = rec_mandorlesgusciate.Fields("PP").Value

    Set rec_mandorlesgusciate = New ADODB.Recordset
    rec_mandorlesgusciate.Open "SELECT SUM(COSTOALKG) AS PU FROM TAB_MANDORLESGUSCIATE", dbase, adOpenForwardOnly, adLockReadOnly
    Text4.Text = rec_mandorlesgusciate.Fields("PU").Value

    Set rec_mandorleguscio = New ADODB.Recordset
    rec_mandorleguscio.Open "SELECT SUM(PESO) AS PP FROM TAB_MANDORLEGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text5.Text = rec_mandorleguscio.Fields("PP").Value

    Set rec_mandorleguscio = New ADODB.Recordset
    rec_mandorleguscio.Open "SELECT SUM(COSTOALKG) AS PU FROM TAB_MANDORLEGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text6.Text = rec_mandorleguscio.Fields("PU").Value


    Set rec_scaricomandorleinguscio = New ADODB.Recordset
    rec_scaricomandorleinguscio.Open "SELECT SUM(COSTOALKG) AS PP FROM TAB_SCARICOMANDORLEINGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text7.Text = rec_scaricomandorleinguscio.Fields("PP").Value

    Set rec_scaricomandorleinguscio = New ADODB.Recordset
    rec_scaricomandorleinguscio.Open "SELECT SUM(PESO) AS PU FROM TAB_SCARICOMANDORLEINGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text8.Text = rec_scaricomandorleinguscio.Fields("PU").Value

    Set rec_scaricomandorlesgusciate = New ADODB.Recordset
    rec_scaricomandorlesgusciate.Open "SELECT SUM(COSTOALKG) AS PP FROM TAB_SCARICOMANDORLESGUSCIATE", dbase, adOpenForwardOnly, adLockReadOnly
    Text9.Text = rec_scaricomandorlesgusciate.Fields("PP").Value

    Set rec_scaricomandorlesgusciate = New ADODB.Recordset
    rec_scaricomandorlesgusciate.Open "SELECT SUM(PESO) AS PU FROM TAB_SCARICOMANDORLESGUSCIATE", dbase, adOpenForwardOnly, adLockReadOnly
    Text10.Text = rec_scaricomandorlesgusciate.Fields("PU").Value

    Set rec_scaricomandorleguscio = New ADODB.Recordset
    rec_scaricomandorleguscio.Open "SELECT SUM(COSTOALKG) AS PP FROM TAB_SCARICOMANDORLEGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text11.Text = rec_scaricomandorleguscio.Fields("PP").Value

    Set rec_scaricomandorleguscio = New ADODB.Recordset
    rec_scaricomandorleguscio.Open "SELECT SUM(COSTOALKG) AS PU FROM TAB_SCARICOMANDORLEGUSCIO", dbase, adOpenForwardOnly, adLockReadOnly
    Text12.Text = rec_scaricomandorleguscio.Fields("PU").Value
    Call chiudi_db
    Exit Sub
    GestoreErrori:
    If Err.Number = 94 Then
    MsgBox ("Ci sono prodotti su cui non sono state effettuate operazioni di magazzino!")
    'è valore nullo
    End If

    Grazie
    giuseppe cisternino

  4. #4
    vb6_ non è in linea Scolaretto
    Post
    469
    On error goto GestoreErrori...e dopo cosa fa esce dlla routine?
    Ciao

  5. #5
    L'avatar di papy2
    papy2 non è in linea Scolaretto
    Luogo
    Alberobello
    Post
    483
    si, esce dalla routine
    giuseppe cisternino

  6. #6
    vb6_ non è in linea Scolaretto
    Post
    469
    quindi non prosegue con il codice ...:

    se gestisce l'errore per il calcolo dalla tabella MANDORLEINGUSCIO non prosegue con il calcoso sulla tabella MANDORLE SGUSCIATE...devi cambiare approcio per la gestione degli errori..io farei:

    On Error Resume Next
    Ciao

  7. #7
    L'avatar di papy2
    papy2 non è in linea Scolaretto
    Luogo
    Alberobello
    Post
    483
    ok, provo così e ti faccio sapere!
    giuseppe cisternino

  8. #8
    L'avatar di papy2
    papy2 non è in linea Scolaretto
    Luogo
    Alberobello
    Post
    483
    grazie mille, funziona alla perfezione, praticamente detto in italiano sarebbe: se vedo l'errore vado avanti, vero?!
    giuseppe cisternino

  9. #9
    vb6_ non è in linea Scolaretto
    Post
    469
    Esatto..

    Buone mandorle.
    Ciao

  10. #10
    L'avatar di papy2
    papy2 non è in linea Scolaretto
    Luogo
    Alberobello
    Post
    483

    Cool

    grazie amicone!!!!
    giuseppe cisternino

+ Rispondi al Thread
Pagina 1 di 2 12 ultimoultimo

Discussioni simili

  1. Articolo: [VBA] Gestione degli errori
    Da dragone bianco nel forum Microsoft Office, Access, VBA
    Risposte: 1
    Ultimo Post: 18-09-2008, 16:38
  2. operazioni con [ TIME ]
    Da francof nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 15-05-2006, 16:41
  3. Creare un gestore di errori
    Da BrandonHeat nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 29-03-2006, 12:35

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi