*

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: menu verval  (gelezen 10243 keer)

0 leden en 1 gast bekijken dit topic.

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
menu verval
« Gepost op: 03 februari 2016, 10:28:52 »
Menu vervalbericht ging bij het opstellen vorig jaar goed.
Vanaf 1 januari 2016 loop het echter fout.
Blijkbaar is er een probleem in het terugkeren naar het vorig jaar om verder te lopen.
Het eerste dat ik krijg is foutopsporing (foto A1), het 2de de fout in het menu (foto 1).
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #1 Gepost op: 03 februari 2016, 18:55:10 »
Dat komt omdat je Month(Now()) -11 soms negatief is. Gebruik daarom deze code:
Code: [Selecteer]
Private Sub Form_Load()
    Dim verschil As Byte
    If Month(Now()) - 11 > 0 Then
        verschil = Month(Now()) - 11
    Else
        verschil = Month(Now()) + 1
    End If
   
    txtStartDatum = "01/" & verschil & "/" & Year(Now())
    txtEindDatum = CStr(DateAdd("d", -1, DateAdd("m", 1, CVDate(txtStartDatum))))
End Sub

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

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #2 Gepost op: 03 februari 2016, 20:04:06 »
Als ik de datum die voorkomt verander in 2015 als jaartal dan krijg ik bijna de juiste gegevens.
Deze van januari en februari komen er ook bij.
Zou toch enkel deze van maart 2015 moeten krijgen of niet?
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #3 Gepost op: 04 februari 2016, 08:16:03 »
Het is txtStartDatum die het probleem vormt hé
Kijk eens bij je eigen eerste schermafdruk naar de waarde in txtStartdatum?
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #4 Gepost op: 04 februari 2016, 12:39:40 »
Bij btnVervalbericht - click staat er:
    If IsNull(txtEindDatum) Then
        MsgBox "Er is geen einddatum geselecteerd!", vbCritical
        Exit Sub
    End If
    'Kijken of einddatum niet voor begindatum valt
     If CDate(txtEindDatum) < CDate(txtStartDatum) Then
        MsgBox "Startdatum moet VOOR de Einddatum liggen", vbCritical
        Exit Sub
    End If
   
   
    'We tellen of er records zijn voor deze periode
    Dim aantal As Integer
    aantal = DCount("Volgnr", "LidVerval", "NieuweBet between #" & txtStartDatum & "# AND #" & txtEindDatum & "#")
    If aantal < 1 Then
        MsgBox "Er zijn geen leden waarvan het lidmaatschappij vervalt in de perdiode tussen " & txtStartDatum & " en " & txtEindDatum & ".", vbInformation
        Exit Sub
    End If
   
    'open het rapport
    DoCmd.OpenReport "Vervalbericht", acViewPreview, , "NieuweBet between #" & txtStartDatum & "# AND #" & txtEindDatum & "#"
End Sub

Of bedoel je die op de foto.
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #5 Gepost op: 04 februari 2016, 19:56:47 »
Ik begrijp niet wat je hier nu zet?

Ik wou enkel zeggen dat er bij txtStartdatum op de afbeelding van je (oorspronkelijke)vraag staat:
 01/-9/2016 en dat 'dat' een probleem vormt.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #6 Gepost op: 04 februari 2016, 22:58:25 »
Sorry had het verkeerd begrepen.
Dat van die datum had je blijkbaar al aangepast.
Maar ik krijg nu de datum zoals nieuwe foto aantoont.

Indien ik manueel 2016 verander in 2015; krijg ik alle gegevens vanaf 1 jan 2015 tot
31/03/2015. Hier moet ik enkel de gegevens krijgen van 01/03/2015 tot 31/03/2015

Als ik het niet aan pas  krijg ik gegevens van mensen die in 2017 vervallen.
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #7 Gepost op: 05 februari 2016, 06:26:05 »
Je bedoelt als je 2016 verandert in 2015 bij txtStartDatum neem ik aan?
Dan moet je bij txtStartDatum een gebeurtenis maken 'Na Bijwerken'

Code: [Selecteer]
Private Sub txtStartDatum_AfterUpdate()
    txtEindDatum = CStr(DateAdd("d", -1, DateAdd("m", 1, CVDate(txtStartDatum))))

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

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #8 Gepost op: 05 februari 2016, 09:32:33 »
Bij aanpassing van datum op jaar m.a.w. van 01/03/2016 naar 2015 past de einddatum zich nu inderdaad juist aan.

Wat niet klopt is dat ik nog steeds de gegevens erbij krijg van 01/01/2015 tot 28/02/2015.

Krijg dus teveel gegevens.
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #9 Gepost op: 05 februari 2016, 16:42:04 »
Op je rapport staat bij Filter (in het eigenschapenvenster>>Tabblad gegevens)
Filter = NieuweBet between #01/12/2015# AND #1/01/2016#

Dit moet je leegmaken.

In de query LidVerval is er nergens bij 'NieuweBet' geen waarde ingevuld.

In bijlage heb ik 2 leden laten betalen in maart en één in april 2015
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #10 Gepost op: 05 februari 2016, 17:23:22 »
Inderdaad, heb het verwijderd, maar krijg nog steeds hetzelfde resultaat.
Dan maar de query, formulier en rapport verwijderd.
Deze dan opnieuw ingezet van de download, gecontroleerd op de filter. nog steeds zelfde resultaat.

Wordt dus een probleem.
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #11 Gepost op: 05 februari 2016, 18:46:09 »
Heb je mijn versie bekeken(zie bijlage mijn vorige post)? Is daar ook een fout?
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #12 Gepost op: 05 februari 2016, 23:54:53 »
Inderdaad, want die heb ik overgezet.
Resultaat is hetzelfde probleem.
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: menu verval
« Reactie #13 Gepost op: 06 februari 2016, 07:43:02 »
Kan je me dan aub uitleggen (getdetailleerd) wat er fout aan is?
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline vop

  • Lid
  • *
  • Berichten: 77
  • Geslacht: Man
  • Oplossing.be
Re: menu verval
« Reactie #14 Gepost op: 06 februari 2016, 10:07:50 »
Foto 1 vervaldatum  op scherm.
Foto 2 vervaldatum jaar aangepast.
Foto 3 De berichten die opengaan beginnen in januari 2016
Foto 4 tot de juiste berichten die verwacht worden.

Ik krijg dus ook de gegevens van voor 01/03/2015.
Gelogd
Pagina's: [1] 2   Omhoog
 


www.combell.com