Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Veldnaam opslaan op basis van andere veldnaam  (gelezen 10715 keer)

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Veldnaam opslaan op basis van andere veldnaam
« Gepost op: 25 mei 2016, 10:30:09 »
hallo,
in bijlage een voorbeeld van een tabel en formulier.
wil graag een afbeelding of scan toevoegen in een veld.
vermits ik overal lees dat je best geen afbeeldingen in de db zelf  opslaat (te log), zou ik daar graag de verwijzing naar bv Mijn Documenten/Afbeeldingen/Naam.jpg in krijgen.
die naam zou ik willen baseren op de naam van andere velden: vb Naam&Transactie&Datum&jpg

daarvoor de cmdKnop Save Scan Name in veld scan.

het zou compleet zijn als het volgende mogelijk is:
de andere cmdKnop Scan Picture eerst de scanner opstarten, scannen, scan saven in mijn documenten en invullen in veld scan.

graag hulp aub
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #1 Gepost op: 25 mei 2016, 10:53:10 »
Hier vind je er een videotutorial over :
https://www.youtube.com/watch?v=AO2-jgVu8V0

Mocht je daar niet uit raken, dan zoek ik een scanner op het ook zelf eens uit te  proberen.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #2 Gepost op: 25 mei 2016, 11:26:38 »
bedankt voor de snelle reactie dizzl.
deze video ivm de scanner had ik ook al eens bekeken.
ga het eens uitproberen. best onder een knop? moet ik de naam en de plaats van mijn scanner hier nergens ingeven?...
 
is er een mogelijkheid voor de vraag over de veldnaam?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #3 Gepost op: 25 mei 2016, 11:57:00 »
heb ondertussen de scanner geprobeerd: werkt prima.
bedankt.
nu nog de kwestie ivm de naam.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #4 Gepost op: 26 mei 2016, 06:46:26 »
In de video is er sprake van
DiaFile.initialFilename die zou ik op Naam & Transactie & Year(Date) & Month(Date) & Day(Date) & ".bmp" zetten.
jpg kan maar dat is niet standaard.

Om de scanner te selecteren vond ik deze code (ik heb helaas zelf geen scanner). Probeer je dit eens uit op een knop_klik?
    Dim wiaImg As New WIA.ImageFile
    Dim wiaDialog As New WIA.CommonDialog
    Dim wiaScanner As WIA.Device
   
    Set wiaScanner = wiaDialog.ShowSelectDevice

Hier vond ik nog een vb
https://www.utteraccess.com/forum/Ms-Document-Scanning-S-t1972218.html
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #5 Gepost op: 26 mei 2016, 09:58:04 »
dizzl,
in nieuwe bijlage test met de scanner.
als je de op de knop klikt geeft dat een kader die even oplicht en zegt: Verbinding maken met Epson....
daarna verdwijnt de kader .

maar zoals ik al aangaf de eerste verbinding met de scanner werkt prima.

de vraag over de naam van de file:
ik zou graag, na invullen veld transactie, in veld scan de combinatie krijgen van 3 andere velden van dat betreffende onderwerp: vb bon datum aankoop.jpg of bmp

dacht dan om die naam op te kunnen slaan in de map waar ook de scanner file komt  (c:/documenten/afbeelding/transacties/......)   , zodat ik daar, na de scan, de file kan opslaan als die exacte filenaam.

nu is dat veld scan in de tabel ook een text veld.
moet ik dat veranderen in ole object of... (ivm met rapport maken bv)


Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #6 Gepost op: 26 mei 2016, 12:45:08 »
dag Adri,

Ik heb van het veld scan een berekend veld gemaakt waardoor de juiste bestandsnaam meteen wordt gegenereerd bij het invullen van je formulier.

De knop scan zet nu dit bestand in de map die jij opgaf. (Natuurlijk moet deze map bestaan)
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #7 Gepost op: 26 mei 2016, 20:52:18 »
dizzl,
dit is inderdaad wat ik bedoelde, maar heb een probleem met mijn locatie.
wat ik ook probeer, ik krijg een bug bij de 'image.SaveFile FileLocation'.
op de gele lijn geeft hij de locatie en de juiste scan naam.
maar die locatie lijkt me het probleem?

krijg steeds run-time error 91
Object variable or with block variable not set

C:\Users\Staf\Documents\Scans Beleggingen is mijn map waar die scans moeten belanden.
als ik die locatie copieer in de code zou dat toch moeten kloppen.
of is het iets van taal (engels of nederlands)
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #8 Gepost op: 27 mei 2016, 21:29:27 »
Sorry Adri,
Ik had op t werk (daar heb ik een scanner) tussendoor een oplossing maar te druk en dus niet bewaard.
Ik probeer maandag door te sturen.

t had hier wat mee te maken;
https://stackoverflow.com/questions/7751464/language-independent-way-to-get-my-documents-folder-in-vba-excel-2003
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #9 Gepost op: 30 mei 2016, 13:24:52 »
zie bijlage
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #10 Gepost op: 30 mei 2016, 14:30:21 »
dit is mooi dizzl, bedankt.
is er ook een mogelijkheid om de scan te laten zien? (show)
bv voor je hem definitief gaat saven?
en als de naam al bestaat krijg ik hiervoor nu een error.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #11 Gepost op: 30 mei 2016, 16:17:56 »
Ik krijg als de scan-dialog opent een knop scan en een knop vb?

Ik heb het nu zo ingesteld dat als het bestand al bestaat, het automatisch gewist wordt.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #12 Gepost op: 30 mei 2016, 18:07:59 »
ok dizzl,

hartelijk bedankt.
in bijlage nog eens mijn laatste probeersel.
daar staat een knop 'Kijk of file al bestaat'.
kan ik die knop en de knop scan picture niet aan mekaar linken: als file al bestaat, do nothing; als file nog niet bestaat, voer de procedure bij "scan picture' uit.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #13 Gepost op: 30 mei 2016, 19:25:49 »
Public Sub cmdScan_Click()
    Dim FileLocation As String
    'Vind de locatie van Mijn Documenten
    'Deze functie vind je in Module1
    FileLocation = MijnDocumenten & "\Scans Beleggingen\" & Scan
   
   
    Dim scanDiag As Object
    Dim image As Object
   
    Set scanDiag = CreateObject("WIA.CommonDialog")
    Set image = CreateObject("WIA.ImageFile")
   
    'Kijken of het bestand bestaat
    If Dir(FileLocation) <> "" Then
        Dim antwoord As VbMsgBoxResult
        antwoord = MsgBox("Het bestand bestaat al. Wil je dit bestand overschrijven?", vbYesNo)
        If antwoord = vbYes Then
            Kill FileLocation
        Else
            Exit Sub
        End If
    End If
   
    Set image = scanDiag.ShowAcquireImage
    image.SaveFile FileLocation

    MsgBox "Je vindt deze scan in " & FileLocation & "."
End Sub
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #14 Gepost op: 31 mei 2016, 09:27:19 »
prima dizzl,
mooi gedaan.
weet niet of ik ivm met een volgende vraag een nieuw topic moet starten: een mooi rapport maken per belegging.

elke belegging kan meerdere transacties hebben, met bijhorende scan (scan naam).
is het mogelijk om per belegging alle transacties te zoeken en een mooi overzicht (rapport) te maken met bijhorende (kleine) afbeelding van de respectievelijke scans.

alvast bedankt
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

 


www.combell.com