Help!

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

Hulp bij posten

Recente topics

Auteur Topic: hij werkt niet  (gelezen 2896 keer)

0 leden en 1 gast bekijken dit topic.

Offline dino

  • Lid
  • *
  • Berichten: 70
  • Geslacht: Man
  • De Oplossing!
hij werkt niet
« Gepost op: 30 juli 2014, 20:57:06 »
Private Sub Cbovantot_Click()
Dim sFilter As String
Dim iDatum1 As Date, iDatum2 As Date

iDatum1 = CDbl(Me.TxtVan)
iDatum2 = CDbl(Me.TxtTot)

sFilter = "CDbl([datum]) BETWEEN " & Format(Me.TxtVan) & "  AND " & Format(Me.TxtVan)

With Forms!frmPlanning

     .Filter = sFilter
     .FilterOn = True
 
End With
End Sub

vraag wat is er mis mee zoeken in twee tekst vakjes en knop waar deze code onder draait
je zziet op veld datum het filter komen te staan maar filteren ho maar
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: hij werkt niet
« Reactie #1 Gepost op: 30 juli 2014, 21:07:48 »
je doet een CDouble
moet dat geen CDate() zijn?

Je gebruikt een format maar geeft geen formaat mee.


Bovendien lijk je een between te doen met 2 zelfde waarden?(txtVan en txtVan)
sFilter = "[datum] BETWEEN " &  cdate(Me.TxtVan) & "  AND " & cdate(Me.TxtTOT)
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: hij werkt niet
« Reactie #2 Gepost op: 30 juli 2014, 21:24:30 »
hebt dit aangepast veranderd niets je formulier leeg worden en filter icontje in veld datum staan
en heb ook even txtTot er neer gezet
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: hij werkt niet
« Reactie #3 Gepost op: 31 juli 2014, 19:42:47 »
ik had ook een format (naar lange datumnotatie nodig om het goed te krijgen) zie bijlage.
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: hij werkt niet
« Reactie #4 Gepost op: 13 augustus 2014, 08:15:57 »
en werkt dit nu?
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: hij werkt niet
« Reactie #5 Gepost op: 13 augustus 2014, 09:14:13 »
mag ik danken was vergeten op opgelost te zetten , maar kan altijd voorbeelden van filters gebruiken.
dus dank
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com