*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1] 2   Omlaag

Auteur Topic: vraagje over periodes  (gelezen 8044 keer)

0 leden en 1 gast bekijken dit topic.

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
vraagje over periodes
« Gepost op: 05 februari 2014, 20:39:42 »
wij werken met 13 periodes nu wil ik op een formulier een cbo maken die kijkt naar periodes 1-13
als je dan bv 2 drukt moet hij alle data s tussen de datums op halen .

als bijlage stuur ik dus mee hoe de periodes zijn ingedeeld
?
wie kan mij even uit de brand helpen?
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Stegisoft

  • Ambassadeur
  • *****
  • Berichten: 2.342
  • Geslacht: Man
Re: vraagje over periodes
« Reactie #1 Gepost op: 06 februari 2014, 01:03:39 »
Beste Dino,

Ik doe het simpel:
Maak een query en dan bij periode vul je in criteria dit: [welke periode] of like[met ster] want ik kan * niet code zetten.

Groetjes

Stegisoft
Gelogd
Linux Mint 19.3 64 bits sinds 4/2019
Intel Core i7 5820K @ 3.30GHz
16,0GB Dual-Kanaal Onbekend @ 1197MHz
EVGA INTERNATIONAL CO.LTD 131-HE-E095
NVIDIA GeForce GTX 960
238GB NVMe Samsung SSD 950 (M2 SSD)
ASUS BC-12D2HT (Blu-ray - DVD-RW)
ASUS Essence STX II Audio Device
Waterkoeling Corsair Hydro Series H100i V2

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #2 Gepost op: 06 februari 2014, 09:58:20 »
Wat zou je denken met een case functie
dat is de richting die ik zoek

Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Stegisoft

  • Ambassadeur
  • *****
  • Berichten: 2.342
  • Geslacht: Man
Re: vraagje over periodes
« Reactie #3 Gepost op: 06 februari 2014, 12:58:25 »
Hey dino,

Case functie kan je ook gebruiken maar het principe is het zelfde.
Het verschil zit in het feit dat je bij case meer mogelijkheid hebt zoals annuleren enz.

Groetjes

Stegisoft
Gelogd
Linux Mint 19.3 64 bits sinds 4/2019
Intel Core i7 5820K @ 3.30GHz
16,0GB Dual-Kanaal Onbekend @ 1197MHz
EVGA INTERNATIONAL CO.LTD 131-HE-E095
NVIDIA GeForce GTX 960
238GB NVMe Samsung SSD 950 (M2 SSD)
ASUS BC-12D2HT (Blu-ray - DVD-RW)
ASUS Essence STX II Audio Device
Waterkoeling Corsair Hydro Series H100i V2

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: vraagje over periodes
« Reactie #4 Gepost op: 07 februari 2014, 12:33:40 »
Als je de tabel van de afbeelding (ik noem ze even tblPeriodes) als bron van de keuzelijst  (cboKeuzelijst)instelt (gebeurtenis= na bijwerken), kan je filteren met

Code: [Selecteer]
Me.Filter ="Where Datum between #" & cboPeriodes.column(1) & "# AND #" & cboPeriodes.column(2) & "#"
Me.Filteron = true
Geen case of if nodig.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #5 Gepost op: 11 februari 2014, 12:03:40 »
ik heb deze gemaakt, maar geeft een fout aan
wat is er verkeerd en moeten de column er in?
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: vraagje over periodes
« Reactie #6 Gepost op: 12 februari 2014, 08:59:28 »
Dag Dino in een where conditie moet je getallen, tekst en datums op een andere manier begrenzen.

Cijfers worden door niets begrensd
Code: [Selecteer]
"Veld1=" & VeldOpJeFormulier
Tekst wordt begrensd door een enkele aanhalingsteken
Code: [Selecteer]
"Veld1='" & VeldOpJeFormulier & "'"
Datums tenslotte moeten tussen hekjes staan
Code: [Selecteer]
"Veld1=#" & VeldOpJeFormulier & "#"
Om te kijken of dit klopt gebruik ik wel vaker eens een msgbox om te kijken of dit wel ok is.
Hopelijk helpt dit.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #7 Gepost op: 12 februari 2014, 16:35:51 »
 >:(kan jij de formule zo neer zetten dat ik het kan testen
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: vraagje over periodes
« Reactie #8 Gepost op: 12 februari 2014, 19:11:22 »
Als jij alles wat tussen
Private Sub Periode_Click
      tot en met
End Sub

hier eens wilt zetten?
Copy & Paste of beter nog de database zelf.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #9 Gepost op: 24 februari 2014, 10:51:26 »
zie hier voorbeeld en code
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: vraagje over periodes
« Reactie #10 Gepost op: 24 februari 2014, 12:55:17 »
Dag dino, ik had liever gewoon tekst gehad dan een afbeelding maar goed, ik doe een poging.
iDatum NIET converteren naar een double!

Code: [Selecteer]
iDatum1 = cDate(me.Periode.Column(1)
iDatum2 = cDate(me.Periode.Column(1)

sFilter = "Startdatum between #" & datum1 & "# and #" & datum2 & "#"
With Forms!Projecten.Form
     Filter=sFilter
     FilterOn= true

end with
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #11 Gepost op: 24 februari 2014, 16:24:36 »
Private Sub Periode_Click()
Dim sFilter As String
Dim iDatum1 As Double, iDatum2 As Double
   
iDatum1 = cDate(me.Periode.Column(1)
iDatum2 = cDate(me.Periode.Column(1)

sFilter = "Startdatum between #" & datum1 & "# and #" & datum2 & "#"
With Forms!Projecten.Form
     Filter = sFilter
     FilterOn = True

End With
    End With

End Sub
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: vraagje over periodes
« Reactie #12 Gepost op: 24 februari 2014, 18:13:17 »
Bij
iDatum2 = cDate(me.Periode.Column(1)
ontbreekt nog een sluithaakje maar werkt dit nu?
iDatum1 en iDatum2 zouden ook van het type Date moeten zijn ipv double
Code: [Selecteer]
Private Sub Periode_Click()
Dim sFilter As String
Dim iDatum1 As Date, iDatum2 As Date
   
iDatum1 = cDate(me.Periode.Column(1))
iDatum2 = cDate(me.Periode.Column(1))

sFilter = "Startdatum between #" & iDatum1 & "# and #" & iDatum2 & "#"
With Forms!Projecten.Form
     Filter = sFilter
     FilterOn = True

End With

End Sub
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #13 Gepost op: 25 februari 2014, 10:33:33 »
hij doet wel maar niet wat ik wil hij maakt als deze filter gebruik het formulier leeg in plaats dat de gefilterde datum blijft staan
heb nog even een screenshot bijgevoegd .
maar tot nu toe bedankt alvast.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
Re: vraagje over periodes
« Reactie #14 Gepost op: 25 februari 2014, 10:36:03 »
heb hem al column 1 en 2 moet het zijn en niet 1 en 1
dus opgelost dank is zeer groot

Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1] 2   Omhoog
 


www.combell.com