Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: rapporten van db fietsen  (gelezen 16985 keer)

0 leden en 1 gast bekijken dit topic.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.275
  • I've Upped my standards,now,up yours!
Re: rapporten van db fietsen
« Reactie #15 Gepost op: 05 januari 2019, 18:59:06 »
Label50.Caption = "Deelnemers: " & Deelnemers.ItemsSelected.count& " op " & Deelnemers.ListCount
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: rapporten van db fietsen
« Reactie #16 Gepost op: 06 januari 2019, 10:19:35 »
dizzl, ik krijg nu in dat vak de ID's van die meereden.

zou graag de som van aantal deelnemers hebben.
ik weet hoeveel deelnemers er waren en met die som kan ik controleren of ik niemand te veel aanduid of afvink.
nu: na invullen van ritnummer zal in combobox Deelnemers alles aangevinkt worden: dus na invullen rit zou ook die teller op maximum moeten komen, waarna, bij afvinken personen die niet deelnamen telkens som - 1....
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: rapporten van db fietsen
« Reactie #17 Gepost op: 06 januari 2019, 10:25:31 »
die keuzelijst PlattenTuub is prima. zoiets kan ook voor KM en Jarig?
ga dat eens proberen.
kan je nog wat uitleg geven ivm je laatste db, zodat ik je stappen kan volgen?
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: rapporten van db fietsen
« Reactie #18 Gepost op: 06 januari 2019, 10:31:48 »
In excel had ik het volgende:

'Als Iemand Km heeft tussen bv 3000 en 2930
'Dan Msgbox met waarschuwing
'Gebeurt Bij Openen van statistieken EN bij knop "Statistieken exporteren op tabblad LIJST


 msg = "EEN JUBILEUMRIT KOMT ER AAN VOOR: .....": x = 0
    For Each cl In Sheets("Statistieken").Range("C4:C18")
       
        If cl.Value <> vbNullString And cl.Value < 1000 And cl.Value > 930 Then
         msg = msg & vbLf & cl.Offset(, -2).Value: x = x + 1
         End If
enz.......voor elke 1000Km meer

kan zoiets ook in access.
zie db voorbeeld in de andere topics ivm dbFietsen
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: rapporten van db fietsen
« Reactie #19 Gepost op: 07 januari 2019, 11:04:00 »
probeer dus zo'n keuzelijst Jarig te maken, maar dat lukt niet.
heb in de tabel data een veld Jarig toegevoegd.
maar als ik op frmDataIngeven een combobox Jarig zet, krijg ik de deelnemerslijst niet .
merk nu dat als ik in comboPlattenTuub iets ingeef, dat ik diezelfde keuze krijg in mijn comboJarig en dus niet de volledige deelnemerslijst.
hierbij nog eens mijn vb
« Laatst bewerkt op: 07 januari 2019, 12:52:41 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 lommer

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 130
  • Geslacht: Man
Re: rapporten van db fietsen
« Reactie #20 Gepost op: 09 januari 2019, 11:02:44 »
Het aantal deelnemers wordt vermeld, label naast deelnemers.

De jubileums worden vermeld bij openen van database, ook te bekijken met knop 'Jubileum'.

Alle bewerkingen vind je terug in de programmacode (alt-f11).

Ik weet niet wat je bedoelt met jarig (deelnemers?) en waarom een keuzelijst voor Km?

Ik hoor het wel wat er mis is.

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

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 352
  • Geslacht: Man
  • De Oplossing!
Re: rapporten van db fietsen
« Reactie #21 Gepost op: 09 januari 2019, 11:11:11 »
heb nu bij opstarten:
Me.Text64 = Me.Deelnemers.ListCount
geeft totaal aantal alle deelnemers.
na update combo deelnemers:
Me.Text64 = Me.Plat.ListCount
krijg dan het aantal van de geselecteerden.

zou echter graag hebben dat bij start 14 staat(max) en dat telkens ik iets afvink dan ook max-1....
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: rapporten van db fietsen
« Reactie #22 Gepost op: 09 januari 2019, 11:31:47 »
weerom bedankt lommer.
1.bedoeling van de jubileumrit is niet om een lijst te krijgen van alles, maar wel om na het ingeven van de rit te zien wie bijna aan 2000km zit (km >1930 en <2000) zodat alleen die persoon een msgbox krijgt:
er komt een jubilieumrit aan voor: "Jos"!!!

2.ivm die Jarig.
bedoeling is om een standaardisatie voor als er iemand jarig is (zelfde lettertype, kleur...).
dus zou ik, zoals in plat,  de juist ingegeven deelnemers in een combobox willen.
dan kan ik iemand aanduiden en wegschrijven naar een tabel(?): bv MB Jarig. 
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: 130
  • Geslacht: Man
Re: rapporten van db fietsen
« Reactie #23 Gepost op: 09 januari 2019, 13:41:09 »
En als je nu een veld DOB (date of birth) toevoegd (heb ik gedaan) aan tblDeelnemers en daar in de geboortedatum zet van alle deelnemers.
Het geboortejaar hoeft niet correct te zijn, mag allemaal in 2019.  Het gaat enkel om dag en maand in de berekening.

Ik heb een knop 'Jarig' toegevoegd en je krijgt in een msgbox te zien wie de volgende 7 dagen jarig is.
Ook een kleine aanpassing gedaan in jubileumrit, heb ik niet volledig getest.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 352
  • Geslacht: Man
  • De Oplossing!
Re: rapporten van db fietsen
« Reactie #24 Gepost op: 10 januari 2019, 08:44:57 »
die verjaardag knop is wel leuk en ik kan die misschien ook wel ergens gebruiken.

maar dit is niet echt mijn bedoeling.
de jarige heeft getrakteerd voor zijn verjaardag na rit10.
dat wil ik, net zoals plattentuub, waar mijn combo beperkt is tot de deelnemers van die dag, ingeven.

later zou ik dat in een report willen bundelen met wat er die dag voor speciaals geweest is:
rit 10, datum, allerlei,  SA platten tuub,  DM jarig.
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: 130
  • Geslacht: Man
Re: rapporten van db fietsen
« Reactie #25 Gepost op: 10 januari 2019, 13:19:03 »
Heb gebeurtenissen toegevoegd. Kun je weer testen ::)
« Laatst bewerkt op: 10 januari 2019, 16:04:58 door lommer »
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 352
  • Geslacht: Man
  • De Oplossing!
Re: rapporten van db fietsen
« Reactie #26 Gepost op: 11 januari 2019, 10:10:49 »
 \o/ :)
mooi lommer.
ga het nu weer even bekijken en eventueel nog wat aanpassen.
vragen zullen er nog wel komen.
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

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 352
  • Geslacht: Man
  • De Oplossing!
Re: rapporten van db fietsen
« Reactie #27 Gepost op: 11 januari 2019, 16:41:35 »
heb bij openen rpt Algemeen de code Jubileumrit toegevoegd, zodat bij openen de msgbox verschijnt.

om later een webpagina te laten zien of om de statistieken gewoon door te sturen, zou ik graag de text van die msgbox in bv een textbox in de header krijgen na indrukken OK van de msgbox (of mag ook al direct bij openen).
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: rapporten van db fietsen
« Reactie #28 Gepost op: 12 januari 2019, 19:02:05 »
zie weer eens mijn database fietsen.
om lege velden te verwijderen in mijn report Gebeurtenis, gebruik ik het volgende:

If IsNull(Me!txtbox1.Value + Me!txtbox2.Value + Me!txtbox3.Value + Me!txtbox4.Value + Me!txtbox5.Value) Then
    Me!txtbox1.Visible = False
    Me!txtbox2.Visible = False
    Me!txtbox3.Visible = False
    Me!txtbox4.Visible = False
    Me!txtbox5.Visible = False
End If

dit werkt prima als het betreffende veld leeg is.
evenwel blijven de leeggelaten velden ruimte innemen in het report.
kan je ook die ruimte die dat veld innam ook verwijderen bij dat betreffende record, zodat alles wat compacter oogt.
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: 130
  • Geslacht: Man
Re: rapporten van db fietsen
« Reactie #29 Gepost op: 13 januari 2019, 09:35:41 »
Bestand aangevuld met enkele zaken zoals o.a. Gemeentes met tussenstop, vermelding van jubileumrit in rapport Algemeen.
Uw laatste vraag kan ik niet beantwoorden aangezien deze velden niet aanwezig zijn in rapport Gebeurtenis.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

 


www.combell.com