Help!

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

Hulp bij posten

Recente topics

Auteur Topic: tabel van jpg's maken  (gelezen 29009 keer)

0 leden en 2 gasten bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: tabel van jpg's maken
« Reactie #15 Gepost op: 24 december 2018, 11:39:13 »
dit is wat ik tot nu heb.
bedoeling is dus om de meteoafbeelding en de ritafbeelding op frmDataIngeven te krijgen
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: tabel van jpg's maken
« Reactie #16 Gepost op: 24 december 2018, 18:18:25 »
Maak een map in de zelfde map als waar je database staat en noem deze map AfbeeldingenMeteo
(zet daar een paar afbeeldingen in en noem ze respectievelijk Meteo1, Meteo2,... )

Open je frmDataIngeven in ontwerpweergave
Kies op het tabblad Ontwerp uit de besturingselementen een 'Afbeelding' icoon Berg+zon+TV en klip op het formulier
Trek een kader waar de afbeelding moet komen
=>een wizard zal starten om een afbeelding te selecteren. Klik daar op annuleren
Met de kader voor de afbeelding geselecteerd, open het eigenschappenvenster (F4)  op het tabblad ALLE
Wijzig de naam in 'Kader'

Nu hebben we een gebeurtenis nodig waarop de afbeelding moet getoond worden.
Kies bovenaan de keuzelijst-met invoervak van eigenschappen 'Formulier' (daar stond daarnet nog Kader)
Klik op het tabblad gebeurtenissen het eerste element (Bij Aanwijzen) ...klikop de 3 puntjes achteraan ...kies  'Opbouwfunctie voor programmacode'

Zet tussen de Sub Form_Current en de End Sub (die er nu staan) deze code:
Private Sub Form_Current()
    Kader.Picture = CurrentProject.Path & "\AfbeeldingenMeteo\" & MeteoJpg & ".jpg"
End Sub

Als de afbeelding bestaat zal die worden weergegeven, zoniet zal je een error klrijgen dat deze niet bestaat.

Doet dat het voor jou?



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: tabel van jpg's maken
« Reactie #17 Gepost op: 25 december 2018, 10:31:23 »
nog maar eens bedankt dizzl.
krijg zo de afbeelding getoond.
evenwel steeds runtime error als ik naar de volgende records scroll en de naam niet bestaat.
dat zal dus ook gebeuren als ik een nieuw record moet invullen.
zou het kunnen om na invullen van veld rit het veld meteojpg in te vullen met de desbetreffende meteo001..... (refererend naar de nummer van de rit)
en daarna pas de afbeelding te laten zien?
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: tabel van jpg's maken
« Reactie #18 Gepost op: 25 december 2018, 11:26:40 »
Je zou een functie kunnen maken die kijkt of het bestand al bestaat voor je die gaat tonen?
Lijkt je dat een goed idee?

hier een vb => aanpassing van vorige methode

Private Sub Form_Current()
  'Maak een boolean aan om te kijken of het bestand bestaat
  Dim BestaatAfbeelding As Boolean
  'Kijk of de bestandsnaam langer is dan 0
  BestaatAfbeelding = (Len(Dir(CurrentProject.Path & "\Meteovista\" & MeteoJpg & ".jpg")) > 0)
 
  'Toon de afbeelding als ze bestaat
  If BestaatAfbeelding Then
    KaderMeteo.Picture = CurrentProject.Path & "\Meteovista\" & MeteoJpg & ".jpg"
  Else
    'Hier komt je code voor geen afbeelding
  End If
End Sub

Nu zie je zelfde afbeelding als je volgende record geen afbeelding heeft. Daarom zou ik de code aanpassen en een afbeelding gebruiken die aantoont dat er nog geen afbeelding is. Noem deze GeenAfbeelding.jpg en zorg dat deze in de ELSE van de if getoond 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: tabel van jpg's maken
« Reactie #19 Gepost op: 25 december 2018, 12:00:25 »
lukt me niet om die geen afbeelding te krijgen:steeds error: GeenAfbeelding is Empty.
zie bijlage
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: tabel van jpg's maken
« Reactie #20 Gepost op: 25 december 2018, 12:16:36 »
zonder de afbeeldingen kan je niets controleren?
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: tabel van jpg's maken
« Reactie #21 Gepost op: 25 december 2018, 12:50:17 »
ok.
ik zou een refresh willen als ik naar een volgend record ga, want nu blijft de afbeelding staan.
heb al op verschillende plaatsen geprobeerd (after update, on load...)
zou het kunnen om na invullen van veld rit het veld meteojpg in te vullen met de desbetreffende meteo001..... (refererend naar de nummer van de rit)
en daarna pas de afbeelding te laten zien?
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: tabel van jpg's maken
« Reactie #22 Gepost op: 25 december 2018, 17:41:20 »
Dat zou ik oplossen als in mijn vorig vb
Ik maakte dus een afbeelding waarop te zien is dat er geen afbeelding van deze rit is. In noemde deze afbeelding 'Geen afbeelding.jpg'
Van zodra je de juiste afbeelding in de map stop, zal deze getoond worden.
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: tabel van jpg's maken
« Reactie #23 Gepost op: 26 december 2018, 09:26:11 »
dat werkt weeral.
heb ook een requery toegevoegd after update veld meteoJpg zodat de betreffende afbeelding daarna verschijnt.

nu:
zou het kunnen om na invullen van veld rit het veld meteojpg in te vullen met de desbetreffende meteo001..... (refererend naar de nummer van de rit)
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: tabel van jpg's maken
« Reactie #24 Gepost op: 26 december 2018, 18:54:58 »
sorry ik snap dit niet.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: tabel van jpg's maken
« Reactie #25 Gepost op: 27 december 2018, 08:55:57 »
Ik heb je database ook eens bekeken en een paar aanpassingen gedaan.
Er staat een formulier met uitleg in, daar kun je zien wat ik veranderd heb.
Voor het aanpassen van de map waar afbeeldingen, kan je dit doen onder Rit_AfterUpdate.
Dit zou ongeveer moeten zijn wat je gevraagd hebt.

lommer
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: tabel van jpg's maken
« Reactie #26 Gepost op: 27 december 2018, 14:36:12 »
ok lommer.
dit is wat ik bedoel.
misschien nog een klein detail: mijn meteo en ritten zijn genummerd als 001,002... (vroeger ivm rangorde).
als ik bij rit 001 invul komt de betreffende jpg als meteo1.jpg, niet als meteo001.jpg (format text box???)
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: tabel van jpg's maken
« Reactie #27 Gepost op: 27 december 2018, 14:41:28 »
een volgende vraag gaat over de tussenstops.
daar zou ik naast de tussenstop ook de betreffende gemeente willen invullen: bv Watermolen (Lommel) / Tussenstop (Neerpelt)
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 lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 132
  • Geslacht: Man
Re: tabel van jpg's maken
« Reactie #28 Gepost op: 27 december 2018, 14:58:49 »
Als je de rit als 1, enz. invult, wordt de afbeelding genummerd als 001, enz.

In je tabel Tussenstops staat 'De Watermolen', wil je 'De Watermolen (Lommel)' dan verander je dat in die tabel.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: tabel van jpg's maken
« Reactie #29 Gepost op: 27 december 2018, 15:22:12 »
prima lommel, simpel als ge het weet.

ivm tussenstops.
die tabel tussenstops is gebonden aan tblGemeente en bij ingeven zal die wel zijn unieke nummer hebben, maar ik zou die gemeente ook graag op mijn formulier zien (en ingevuld in mijn tabel?)
bv Welkom kan in Gemeente X, maar ook in Gemeente Y.
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