Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: scannen in access  (gelezen 2669 keer)

0 leden en 1 gast bekijken dit topic.

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
scannen in access
« Gepost op: 02 augustus 2014, 14:16:50 »
Public Sub getimage()
Dim FileLocaction As String
Dim DiagFile As FileDialog

Set diaglogfile = Application.FileDialog(msoFileDialogSaveAs)

   DiagFile.Title = "save as ..."
 DiagFile.InitialFileName = "*.jpg"
   
   
If DiagFile.Show Then
    fileloctaion = DiagFile.SelectedItems(1)
   
    Dim scandiag As New WIA.commonDialog
    Dim image As Object
   
    Set scandiag = CreateObject("wia.Commondialog")
    Set image = CreateObject("wia.imageFile")
    Set image = scandiag.ShowAcquireImage()
    image.saveFile filelocation
   
    End If
     
   
   
End Sub




 

op dit blijft hij steken (DiagFile.Title = "save as ...") wat is er verkeerd ?
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: scannen in access
« Reactie #1 Gepost op: 02 augustus 2014, 20:33:35 »
Set diaglogfile = Application.FileDialog(msoFileDialogSaveAs)

stelt een FileDialog object in. Om het zichtbaar te maken heb je een Show methode nodig.
Daarom zal je heel vaak zien

'Maak de Filedialog zichtbaar
Dim Keuze as integer
Keuze= Application.FileDialog(msoFileDialogSaveAs).Show
' Als Keuze niet 0 is, heeft de gebruiker een locatie en naam geselecteerd

if Keuze <> 0 then
    'Verwerk dan wat je wilt doen
    'Je kan denk ik maar in keer een Set Image doen
end if
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: scannen in access
« Reactie #2 Gepost op: 03 augustus 2014, 07:39:20 »
die staat er al met een aanroep
if diagfile.show then
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: scannen in access
« Reactie #3 Gepost op: 03 augustus 2014, 16:27:47 »
Veronderstel er bestaat een functie dino.loop()

Wat jij nu doet is
if FileDialog.Show then
   'Doe iets'
end if

Er gaat NOOIT iets gebeuren tenzij FileDialog.Show een ja teruggeeft.
Ik denk niet dat dit het geval is => values 0 (FALSE) or -1 (TRUE)


Zet eens een MsgBox in je else?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com