bisa sich di sedot alias import, sayang nya aku tak ada scanner lagi.
trus, kalau kena block, properties dari file nya di unblock.
aku kopikan aja dech,
dan harus sudah install scanner nya, sehingga ada TWAIN nya dan
activeX nya. tinggal di centang reference nya di visual basic appsnya.
cheers,
budilaks
Option Compare Database
Option Explicit
Private Function scan(intScan As Integer, intStr As String)
On Error GoTo Err_Scan
ctlScan.ScanTo = intScan
ctlScan.Image = intStr
If ctlScan.ScannerAvailable Then
ctlScan.StartScan
Else
MsgBox "Twain source not available", vbOKOnly + vbInformation,
"Error"
End If
GoTo Exit_Scan
Exit_Scan:
On Error Resume Next
Exit Function
Err_Scan:
MsgBox Err & ":" & Error$, vbCritical, "Form_Scan" & ": " & "Scan"
Resume Exit_Scan
End Function
Private Sub Form_Current()
On Error Resume Next
Dim strPath As String
Dim stlinkcriteria As String
strPath = "\\satu\userdisk\scanaccess\"
stlinkcriteria = strPath & Me.FilePath & "\" & Me.NamaID & ".tif"
Me.Gambar.Picture = stlinkcriteria
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub NamaForm_AfterUpdate()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Dim aku As String
Set rst = dbs.OpenRecordset("SELECT tblNamaForm.NamaFormID,
tblNamaForm.KodeForm FROM tblNamaForm where tblNamaForm.NamaFormID = "
& Me.NamaForm & ";")
aku = rst!KodeForm
Me.FilePath = rst!KodeForm
End Sub
Private Sub scandoang_Click()
Dim stlinkcriteria As String
Dim RetVal
Dim Count As Integer
Dim strPath As String
On Error GoTo Err_cmdFile_Click
strPath = "\\satu\userdisk\scanaccess\"
stlinkcriteria = strPath & Me.FilePath & "\" & Me.NamaID & ".tif"
RetVal = scan(2, stlinkcriteria)
Me.Gambar.Picture = stlinkcriteria
DoCmd.GoToControl "command26"
Exit_cmdFile_Click:
On Error Resume Next
Exit Sub
Err_cmdFile_Click:
MsgBox Err & ":" & Error$, vbCritical, "Form_Scan" & ": " &
"cmdFile_Click"
Resume Exit_cmdFile_Click
End Sub
--- In [email protected], "David" <[EMAIL PROTECTED]> wrote:
>
> Bang Saya pakai MS Office XP,
> Saya coba BUka files FlatBedScan97 Namun Tidak bisa bagaimana
> solusinya bang
> Dan kalau membikin perintah untuk transfer data ke excel agar files
> excelnya mempunyai nama yang selalu berbeda umpama kita filter tgl
> 7-7-08 maka file excelnya mempunyai nama "Laporan Tgl 7-7-08.xls"
> sebelumnya saya membikin perintah begini
> DoCmd.OutputTo acQuery, "Lap Per Tgl", "MicrosoftExcelBiff8 (*.xls)",
> "Laporan Tgl.xls", True, "", 0
> Nama files transferan selalu sama yakni Laporan Tgl.xls akhirnya
> selalu akan mereplace files sebelumnya yang sudah di transfer
>
>
> --- In [email protected], "budi laksamana" <budilaks@>
> wrote:
> >
> > coba lihat di files di milist ini.
> > aku buat mdb scanner dan simpan filenya dengan nama file tertentu
> > menggunakan access97 dan flatbedscanner.
> >
> > jadi, activeX nya dipanggil.
> >
> > cobalah selanjutnya,
> > and
> > have fun,
> >
> > cheers,
> > budilaks
> >
> > --- In [email protected], "David" <hp3342@> wrote:
> > >
> > > Para Suhu saya ada tiga masalah
> > > Bagaimana Caranya
> > > 1. Jika kita mau menghubungkan program dengan Kamera yang mana kita
> > > man faatkan satu command button & satu image. jika Kamer dalam
> posisi
> > > on maka gambar yang tertangkap pada kamera terlihat pada imagge
yang
> > > ada di foto jika kita tekan comman bautton maka gambar itu akan di
> > > foto dan disimpan pada folder tertentu.
> > > 2. Jika scanner memanfaatkan scanner ada 2 command butoon 1 untuk
> > > untuk melihat atau menyecan yang kedua untuk menyimpan pada folder
> > > tertentu dengan nama yang berbeda
> > > 3. Saya membikin perintah ini untuk transfer data ke excel namun
> > > filesnya selalu sama bagai mana caranya agar files excelnya
mempunyai
> > > nama seperti data yang filter misal kita filter tgl 7-7-08 maka
file
> > > excelnya mempunyai nama "Laporan Tgl 7-7-08.xls"
> > > DoCmd.OutputTo acQuery, "Lap Per Tgl", "MicrosoftExcelBiff8
> > > (*.xls)", "Laporan Tgl.xls", True, "", 0
> > >
> >
>
