Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 8 su 8

Errore Overflow

  1. #1
    mailman_1969 non è in linea Scolaretto
    In una maschera ho un controllo "Link_offerta" in cui inserisco un link ad un file pdf che si trova sul server aziendale: un esempio potrebbe essere questo: "\\costampsrv\PREVENTIVI\BIPRES_CMM\2019\505 ricond stampo tranciante protezione inferiore 70 induzione.pdf".
    Poi ho un pulsante (Comando87) a cui ho associato all'evento click, la seguente routine:
    Private Sub Comando87_Click()
    On Error GoTo Err_Comando87_Click
        Dim varItems As Variant
        Dim VarItem As Variant
    
        varItems = Split(Link_offerta.Value, ";")
        For Each VarItem In varItems
            Call ExecuteFile(CStr(VarItem), vbMaximizedFocus)
        Next
    
    Exit_Comando87_Click:
        Exit Sub
    
    Err_Comando87_Click:
        MsgBox Err.Description
        Resume Exit_Comando87_Click
        
    End Sub
    
    Specifico che nel campo "Link_offerta" posso inserire anche piu' di un link divisi dal carattere ";".
    Da un po' di tempo quando clicco il pulsante, mi viene fuori il messaggio "overflow", ma comunque il o i files pdf vengono correttamente aperti. A cosa potrebbe essere dovuto? La variabile Variant ha un limite di caratteri che puo' contenere?

  2. #2
    L'avatar di muttley005
    muttley005 non è in linea Topo di biblioteca
    esponi ExecuteFile

  3. #3
    Per l'errore specifico attendo tue come da richiesta di Muttley005.
    Intervengo però per questo aspetto
    Quote Originariamente inviato da mailman_1969 Visualizza il messaggio
    In una maschera ho un controllo "Link_offerta" in cui inserisco un link ad un file pdf ...
    Specifico che nel campo "Link_offerta" posso inserire anche piu' di un link divisi dal carattere ";"
    Perché in un unico campo una pluralità di valori? Normalizza con una relazione uno a molti.

  4. #4
    L'avatar di muttley005
    muttley005 non è in linea Topo di biblioteca
    Quote Originariamente inviato da Phil_cattivocarattere Visualizza il messaggio
    ...
    Perché in un unico campo una pluralità di valori? Normalizza con una relazione uno a molti.
    ... cosa buona e giusta

    però mi sorge un dubbio ... non avrai utilizzato uno di quegli obbrobri di campi a valore multiplo vero?!

  5. #5
    mailman_1969 non è in linea Scolaretto
    Quote Originariamente inviato da muttley005 Visualizza il messaggio
    esponi ExecuteFile
    Si', scusa di seguito la call:
    Public Function ExecuteFile(FilePath As String, Stile As VBA.VbAppWinStyle)
        'Esegue file
        On Error GoTo error
        Dim ret As Integer
        ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (FilePath), Stile)
        Exit Function
    error:
        MsgBox Err.Description, vbExclamation, "Error"
    End Function
    
    Per Phil: i records con piu' di un link sono molto pochi per cui ho preferito gestire un solo campo nella tabella principale invece di avere due tabelle separate e gestire l'uno-a-molti.

  6. #6
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Secondo me non fa in tempo a finire... metti intanto un DoEvents nel LOOP... ma anche uno Sleep di 200-500ms per evitare problmi di svrapposizione.

    P.S. la gestione MultiFile Allegato è più funzionale come ti hanno suggerito con una Relazione 1-M... tuttavia anche così funziona.
    ℹ️ Leggi di più su @Alex ...

  7. #7
    mailman_1969 non è in linea Scolaretto
    Quote Originariamente inviato da muttley005 Visualizza il messaggio
    ... cosa buona e giusta

    però mi sorge un dubbio ... non avrai utilizzato uno di quegli obbrobri di campi a valore multiplo vero?!
    No, e' un semplice campo MEMO

  8. #8
    mailman_1969 non è in linea Scolaretto
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Secondo me non fa in tempo a finire... metti intanto un DoEvents nel LOOP... ma anche uno Sleep di 200-500ms per evitare problmi di svrapposizione.

    P.S. la gestione MultiFile Allegato è più funzionale come ti hanno suggerito con una Relazione 1-M... tuttavia anche così funziona.
    Come sempre @Alex ha trovato la quadra. Grazie. Ho risolto il problema con DoEvents.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. TQRPDFFilter errore di Stack Overflow
    Da Monti nel forum Delphi
    Risposte: 1
    Ultimo Post: 12-03-2019, 10:30
  2. Errore di overflow
    Da Jocman nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 08-09-2017, 08:31
  3. Errore overflow 0/0
    Da cicchiniello nel forum Microsoft Excel
    Risposte: 4
    Ultimo Post: 18-03-2014, 09:24
  4. [VB2010] Errore 6: overflow aritmetico
    Da il Fenomeno nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 23-10-2012, 15:37
  5. Errore overflow
    Da Saint nel forum Microsoft Word
    Risposte: 3
    Ultimo Post: 18-07-2009, 11:48