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 7597 keer)

0 leden en 1 gast bekijken dit topic.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #15 Gepost op: 31 mei 2016, 12:42:27 »
mss wel beter een nieuwe topic?
't Word wat lang?
Je zou tabel tblBeleggingen moeten hebben. De tabel tblScans kan je misschien omdopen tot tblTransacties maar je zou het sleutelveld van tblBelegging moeten toevoegen.
Daarna kan je een relatie tussen beide tabellen maken.

Mss moet je de Beleggingsnummer ook toevoegen aan de naam van de scan?
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: 352
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #16 Gepost op: 01 juni 2016, 08:04:59 »
ok dizzl, zal ik doen.
dit kadert wel in mijn vroeger project beleggingen waar je me al veel mee hebt geholpen.
dus die tabellen en relaties bestaan daar al.
probeer daarom zo veel mogelijk zelf dingen te integreren aan de hand van voorbeelden.
dus op naar het volgende topic: afbeelding in formulier.
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: 352
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #17 Gepost op: 01 juni 2016, 16:51:45 »
misschien nog een laatste vraag ivm error handling:
als de scanner niet aanstaat en als de scan naam niet bestaat .

nu krijg ik een error en krijg ik  de errorcode in vba.

en ook: kan ik bij calculated veld van scan naam ook bij de maand het formaat bv 05 krijgen ipv 5.
« Laatst bewerkt op: 01 juni 2016, 19:07:27 door adri »
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.282
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #18 Gepost op: 01 juni 2016, 20:17:10 »
Public Sub cmdScan_Click()
    'Combinatie van knop 'Scan Picture' en knop 'Kijk of file al bestaat'
    On Error GoTo GeenScannerGevonden
 
  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 & "."
    Exit Sub
   
GeenScannerGevonden:
MsgBox "Geen scanner gevonden.", vbCritical


   
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: 352
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #19 Gepost op: 02 juni 2016, 09:03:32 »
ok dizzl,
weer simpel voor jou denk ik, maar niet zo voor mij.
ook nog een oplossing ivm calculated field met maand als 05 ipv 5?
kan je dat daar ergens met een 'patroon' ingeven?
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.282
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #20 Gepost op: 02 juni 2016, 10:33:02 »
Zet het volgende bij de Expressie van het berekend veld:

[Naam] & "_" & [Transactie] & "_" & Year([Datum]) & IIf(Len(Month([Datum])=1);"0" & Month([Datum]);Month([Datum])) & Day([Datum]) & ".bmp"
Dat is wat er voor stond maar Month([Datum]) wordt nu  IIf(Len(Month([Datum])=1);"0" & Month([Datum]);Month([Datum]))

Als de lengte van de maand=1 wordt het "0" & Maand, zo niet de maand .
Dat kan je ook met de dag doen op de zelfde manier maar ik laat het je zelf eens proberen.

Tip gebruik SHIFT+F2 om een beter beeld te hebben in dit vakje.
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: 352
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #21 Gepost op: 02 juni 2016, 11:16:43 »
bedankt voor de tip.
probeer het ook met de dag, maar daar krijg ik altijd een extra nul.
heb nagekeken en nagekeken.
wat is er fout?
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.282
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #22 Gepost op: 02 juni 2016, 12:55:03 »
Er stond een haakje verkeerd (maar ik denk ook bij de maand)

[Naam] & "_" & [Transactie] & "_" & Year([Datum]) & IIf(Len(Month([Datum]))=1;"0" & Month([Datum]);Month([Datum])) & IIf(Len(Day([Datum]))=1;"0" & Day([Datum]);Day([Datum])) & ".bmp"
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: 352
  • Geslacht: Man
  • De Oplossing!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #23 Gepost op: 02 juni 2016, 16:19:06 »
inderdaad dizzl,
maar bij veld datum stond al de maand juist, zodat de 'scan naam' ook direct juist was.
misschien kan je dat daar ook wel aanpassen.
maar met jouw oplossing heb ik weeral wat bijgeleerd.
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.282
  • I've Upped my standards,now,up yours!
Re: Veldnaam opslaan op basis van andere veldnaam
« Reactie #24 Gepost op: 02 juni 2016, 18:50:52 »
Ik leer bij veel vragen ook wat bij, adri. Bedankt dus om de vraag te stellen.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com