Help!

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

Hulp bij posten

Recente topics

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

0 leden en 1 gast bekijken dit topic.

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
rapporten van db fietsen
« Gepost op: 29 december 2018, 10:40:52 »
dit is een vervolg op mijn vorige post tabel met afbeeldingen.

een vraag over rptDeelnemersRitKm.
de layout daarvan is niet zo ok vind ikzelf.
hier wil ik dus een lijst krijgen (per persoon) wie welke rit heeft gereden en hoeveel kilometers.
liefst gesorteerd op het totaal kilometers: wie meeste km gereden heeft boven.
il zou ze graag veel compacter willen als dat kan want na enkele jaren fietsen is de lijst al wat uitgebreid.

in frmDeelnemersReportl wil ik aan de hand van een listbox de ritten en km van een deelnemer apart tonen. ook hier zo compact mogelijk.

hierbij dus mijn huidige vb en een vb van wat ik heb in excel.

ik heb hier al eens een vb meegegeven van wat ik in excel heb en zal dat nog eens doen samen met mijn laatste update.
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: rapporten van db fietsen
« Reactie #1 Gepost op: 29 december 2018, 11:13:57 »
de ritten per deelnemer probeer ik met onderstaande, maar krijg steeds error dat VarItem is empty.

Dim stDocCriteria As String
    Dim VarItem As Variant
 
    For Each VarItem In frmDeelnemersReport!frmDeelnemersReport!ListDeelnemers.ItemsSelected
        stDocCriteria = stDocCriteria & "Voornaam = " & Chr$(34) & frmDeelnemersReport!frmDeelnemersReport!ListDeelnemers.ItemData(VarItem) & Chr$(34) & " Or """
    Next VarItem
    If stDocCriteria <> "" Then
        stDocCriteria = Left(stDocCriteria, Len(stDocCriteria) - 4)
    Else
        stDocCriteria = "True"
    End If
 
    DoCmd.OpenReport "rptDeelnemersRittenKm", acViewPreview, , stDocCriteria
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: rapporten van db fietsen
« Reactie #2 Gepost op: 29 december 2018, 12:23:09 »
En wat denk je van deze?
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: rapporten van db fietsen
« Reactie #3 Gepost op: 29 december 2018, 13:40:35 »
waw lommer, je bent helemaal mee.
dit is mooi.
kan je misschien wat uitleg geven over de nieuwe tbl en querys die je uitvoert zodat ik mee ben?

individueel rapport toont voorlopig maar 1e deelnemer, of loop ik vooruit op de feiten...
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: rapporten van db fietsen
« Reactie #4 Gepost op: 29 december 2018, 14:20:39 »
qrytblVerzamelstaat (Toevoegquery): verzamelt de deelnemers van iedere rit met het nr van de rit en het aantal km.

Deze gegevens worden in tblVerzamelstaat geplaatst.

qryVerzamelDataRitten: haalt gegevens op uit tblVerzamelstaat, som van Km, aantal van Rit en via een functie fConcat de nrs van Rit.

rptDeelnmersRitKm: gegevens komen uit qryVerzamelDataRitten.

rptDeelnmersRitKmIndividueel: gegevens komen uit tblVerzamelstaat.

Iedere keer als je een rapport aanklikt, wordt tblVerzamelstaat verwijderd en opnieuw gemaakt.

Wat betreft

Citaat
individueel rapport toont voorlopig maar 1e deelnemer, of loop ik vooruit op de feiten...

Bladeren helpt  :P

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: rapporten van db fietsen
« Reactie #5 Gepost op: 29 december 2018, 15:18:58 »
Bladeren helpt  :P
oei. had ik niet gezien.
bedankt lommer, mooi gedaan.
er zullen nog wel vragen 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: 421
  • Geslacht: Man
  • De Oplossing!
Re: rapporten van db fietsen
« Reactie #6 Gepost op: 30 december 2018, 11:52:12 »
in mijn rapport zou ik ook zoals in mijn excel vb een item platten tuub willen:

lookup in field allerlei bv MR PlattenTuub en plaats dat naast de de betreffende deelnemer (MR is Michel...)
in dit dan voor iedere deelnemer.

hierbij mijn laatste db met nog enkele aanpassingen aan rapport
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: rapporten van db fietsen
« Reactie #7 Gepost op: 31 december 2018, 16:34:48 »
hallo, nog een vraag ivm db fietsen.
omdat ik een grote hoeveelheid data manueel moet ingeven, zou ik graag weten hoeveel items per record veld ingegeven worden.
een soort counter die aangeeft hoeveel items ik selecteer in een listbox.
in excel :
Private Sub ListBox6_Change()

    Dim intIndex As Integer
    Dim intCount As Integer
     
    With ListBox6
        For intIndex = 0 To .ListCount - 1
            If .Selected(intIndex) Then intCount = intCount + 1
        Next
    End With
    Label1.Caption = "Deelnemers: " & intCount & " op " & ListBox6.ListCount

End Sub
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: rapporten van db fietsen
« Reactie #8 Gepost op: 03 januari 2019, 18:58:22 »
Label1.Caption = "Deelnemers: " & ListBox6.ItemsSelected.count& " op " & ListBox6.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: 421
  • Geslacht: Man
  • De Oplossing!
Re: rapporten van db fietsen
« Reactie #9 Gepost op: 04 januari 2019, 11:24:02 »
waar moet ik die code best bijzetten?
heb al op een paar plaatsen geprobeerd, bv on dirty veld algemeen, on click comboboxDeelnemers

heb nu label50 en combobox Deelnemers:
Label50.Caption = "Deelnemers: " & intCount & " op " & Deelnemers.ListCount
geen resultaat
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: rapporten van db fietsen
« Reactie #10 Gepost op: 05 januari 2019, 11:41:01 »
Ik heb nog enkele aanpassingen gedaan.  Er is een keuzelijst PlattenTuub toegevoegd. Hier kun je aangeven wie lek reed, automatisch wordt het aantal op 1 gezet. Bij meerdere lekke tubes bij dezelfde deelnemer kun je dit aanpassen met de knop PlattenTuub.
Bij het algemeen rapport worden het totaal bijgeschreven.  Bij het individueel rapport wordt het per rit aangegeven.
Jij kunt met je beschikbare gegevens beter testen of er nog bugs in het programma zitten.
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: rapporten van db fietsen
« Reactie #11 Gepost op: 05 januari 2019, 15:37:59 »
bedankt lommer, maar kan de keuzelijst PlattenTuub nergens vinden. ook niet de code.
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: rapporten van db fietsen
« Reactie #12 Gepost op: 05 januari 2019, 15:59:52 »
Inderdaad dat was de vorige nog. Hierbij de nieuwe.
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: rapporten van db fietsen
« Reactie #13 Gepost op: 05 januari 2019, 16:37:47 »
dit is weer mooi gedaan lommer.

was intussen ook al bezig om connecties te leggen naar excel, zodat ik daar de layout van het al eens bijgevoegde voorbeeld kon behouden.
is dat een goed idee?

om niet telkens de hele rimram te moeten doorsturen naar mijn vrienden, sloeg ik in excel de pagina statistieken op als webpagina.
kan dat ook in access?
 
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: rapporten van db fietsen
« Reactie #14 Gepost op: 05 januari 2019, 17:02:13 »
Probeer na het openen van het rapport een html te maken als volgt:
- rechts klikken op rapport
- kies Exporteren HTML-document
- 2x OK

Voor het individueel rapport krijg je dan 15 pagina's.
Standaard emailprogramma: Outlook Express
Standaard Operating System: Windows XP SP2
Standaard Browser:Internet Explorer 6

 


www.combell.com