Pilotare uno scanner da access

di
Olivotto
il
7 risposte
O
Olivotto
Pochi posts
Iscritto da
lug, 2012
Messaggi:
19

Pilotare uno scanner da access

Buon giorno a tutti, mi rivolgo a voi per un vostro grande aiuto. Sono nuovo della programmazione in vba, ma ho la necessità di integrare il mio database con un pulsante che mi permetta di scansionare un documento ed allegarlo al record direttamente da una maschera di access; Vorrei che dalla scheda contatti io possa scansionare la carta d'identità del soggetto e allegarla alla scheda del contatto.
Purtroppo non so come fare. Io uso office 2013. Grazie a tutti anticipatamente.

7 Risposte

  • M
    migliorabile
    Super Famoso
    Iscritto da
    apr, 2013
    Messaggi:
    6012

    Re: Pilotare uno scanner da access

    Gli scanner sono accessibili attraverso il driver Twain. Quello che bisogna fare e' trovare il wrapper twain - ocx/activex, installarlo ed a questo punto puoi comandare lo scanner dal basic di access
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8705

    Re: Pilotare uno scanner da access

    Come ti hanno detto, provo a darti un Link:
  • O
    Olivotto
    Pochi posts
    Iscritto da
    lug, 2012
    Messaggi:
    19

    Re: Pilotare uno scanner da access

    Grazie per le informazioni, vi tedierò ancora con qualche post chiedendovi la cortesia di assistermi finché riesco a terminare il lavoro. Intanto mi scarico il file del link allegato al post e provo a vedere quello che riesco a fare. Grazie mille ancore.
  • O
    Olivotto
    Pochi posts
    Iscritto da
    lug, 2012
    Messaggi:
    19

    Re: Pilotare uno scanner da access

    Scusatemi, ma ho provato ad utilizzare il programma che mi avete passato! E' grandioso, solamente che copiando il codice che mi restituisce alla fine in un evento click mi restituisce l'errore che la funzione non è definita. Cioè? Vi posto il codice. Grazie. 
    Private Sub Comando0_Click()
       Dim hdib As Long
    Call TWAIN_SetHideUI(1)
    Call TWAIN_SetFileAppendFlag(0)
    Call TWAIN_SetJpegQuality(75)
    If TWAIN_OpenSource("Samsung SCX-4x21 Series") <> 0 Then
        Call TWAIN_SetXferCount(1)
        Call TWAIN_SetAutoScan(0)
        ' If you can't get a Window handle, use 0:
        hdib = TWAIN_Acquire(Me.Hwnd)
        If hdib <> 0 Then
            ' -Do your image processing here-
            Call TWAIN_WriteToFilename(hdib, "c:\image.pdf")
            Call DIB_Free(hdib)
        End If
    End If
    If TWAIN_LastErrorCode() <> 0 Then
        Call TWAIN_ReportLastError("Unable to scan.")
    End If


End Sub
  • O
    Olivotto
    Pochi posts
    Iscritto da
    lug, 2012
    Messaggi:
    19

    Re: Pilotare uno scanner da access

    @Alex ha scritto:

    Come ti hanno detto, provo a darti un Link:
    Scusami, ma ho provato ad utilizzare il programma che mi hai linkato! E' grandioso, solamente che copiando il codice che mi restituisce alla fine in un evento click mi restituisce l'errore che la funzione non è definita. Cioè? Vi posto il codice. Grazie. 
    Private Sub Comando0_Click()
       Dim hdib As Long
    Call TWAIN_SetHideUI(1)
    Call TWAIN_SetFileAppendFlag(0)
    Call TWAIN_SetJpegQuality(75)
    If TWAIN_OpenSource("Samsung SCX-4x21 Series") <> 0 Then
        Call TWAIN_SetXferCount(1)
        Call TWAIN_SetAutoScan(0)
        ' If you can't get a Window handle, use 0:
        hdib = TWAIN_Acquire(Me.Hwnd)
        If hdib <> 0 Then
            ' -Do your image processing here-
            Call TWAIN_WriteToFilename(hdib, "c:\image.pdf")
            Call DIB_Free(hdib)
        End If
    End If
    If TWAIN_LastErrorCode() <> 0 Then
        Call TWAIN_ReportLastError("Unable to scan.")
    End If 
end sub
  • O
    Olivotto
    Pochi posts
    Iscritto da
    lug, 2012
    Messaggi:
    19

    Re: Pilotare uno scanner da access

    migliorabile ha scritto:

    Gli scanner sono accessibili attraverso il driver Twain. Quello che bisogna fare e' trovare il wrapper twain - ocx/activex, installarlo ed a questo punto puoi comandare lo scanner dal basic di access
    Grazie mille per le info.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8705

    Re: Pilotare uno scanner da access

    Non ho mai usato quell'attrezzo, ma di certo deve avere un componebnte COM da referenziare in EarlyBinding o delle API... quelle funzioni di certo non le riconosce se non hai la Libreria di appartenenza.
Devi accedere o registrarti per scrivere nel forum
7 risposte