Help!

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

Hulp bij posten

Recente topics

Auteur Topic: userform met verschillende lstboxen  (gelezen 39374 keer)

0 leden en 1 gast bekijken dit topic.

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #45 Gepost op: 07 maart 2021, 18:24:48 »
Hallo Lili,

Pas terug van (deugddoend) weggeweest, dus heb ik nog niet verder kunnen zoeken wat opslaan bij mij tegenwerkt.
Ondertussen wel je laatste bijlage bekeken en daarin is je eerdere probleem toch al weggewerkt, dan neem ik aan dat je zelf nog iets hebt aangepast?

Nu er ook meer duidelijkheid is over wat je finaal met dit bestand wil doen is nogmaals gebleken dat deze absoluut nog moet aangepakt worden:
Citaat
We zouden niet willen dat Marietje de gegevens van Loewietje krijgt en omgekeerd
Ook dat zal niet gebeuren. Momenteel is het nog steeds zo dat je grafieken geen enkele rekening houden met een specifieke patiënt maar met alle patiënten samen.

Misschien ziet Albert zo'n aanpassing ook wel zitten? Al blijf ik natuurlijk hopen hier plots een wezenlijker bijdrage te kunnen leveren...

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline LiliC

  • Lid
  • *
  • Berichten: 35
Re: userform met verschillende lstboxen
« Reactie #46 Gepost op: 07 maart 2021, 18:49:45 »
Goedenavond heren, ( dames, jonk-heren en vrouwen)

fijn dat de wandeling langs bos, veld, water, weg,... jullie deugd mocht doen. ook wij zijn hier de natuur in getrokken en hebben er ook van genoten. verstand op nul en blik op oneindig :):)

@AD1957! ( Albert )
Ik heb getracht om even na opzoeken de cel van K1 tem T300 te beschermen maar dat brengt een conflict met zich mee op het overschrijven van de zichtbare rijen/kolommen van sheet database naar sheet Hulpblad.

Ik had deze er in gestopt om zo de OG en BG steeds ingevoerd te laten staan.

nu verdwijnen steeds de waarden die er zouden moeten verschijnen.

mag de volledige codes kopiëren naar het bestand met verwijderen patiënten of wacht ik daar nog even mee?

Alvast bedankt

grts
Lili
Met vriendelijke groet,

Lili

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: userform met verschillende lstboxen
« Reactie #47 Gepost op: 08 maart 2021, 11:03:16 »
Hallo Lili,

Het invoeren van de OG en BG waardes had ik helemaal over het hoofd gezien. :-[
Ik heb code onder de knop cmdSave aangepast, zou nu moeten werken.

@Pitufo, De code voor het printen van de Userform maar eens uitgezet, misschien is dit de oorzaak dat je het bestand niet kunt opslaan.
              Vervelend, we zouden heel wat sneller de fouten er uit kunnen filteren met jouw VBA-kennis. De mijne is nog steeds beperkt. ;D

update: bestand verwijderd wegens fouten :'(
Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: userform met verschillende lstboxen
« Reactie #48 Gepost op: 08 maart 2021, 12:39:27 »
Ik zie nu dat het bestand in post #47 niet goed is :(
Te lang naar het beeldscherm getuurd.
Eerst maar eens rustig alles controleren voordat ik een nieuw bestand plaats.
Dus even geduld.
Groet,

Albert

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: userform met verschillende lstboxen
« Reactie #49 Gepost op: 08 maart 2021, 14:00:15 »
Nieuwe poging ;D
@Pitufo: Is het mogelijk dat de sorteercode in FrmNieuwePatient het probleem van downloaden veroorzaakt.
              Meen me nml. te herinneren dat dit op Helpmij.nl ook eens een voorgekomen.
              Printcode staat nog uit, alsmede module11
Groet,

Albert

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #50 Gepost op: 09 maart 2021, 13:53:24 »
Had wat tijd extra.

Alles buiten PT zou nu up to date moeten zijn.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: userform met verschillende lstboxen
« Reactie #51 Gepost op: 09 maart 2021, 14:52:02 »
@ Warme Bakkertje,
Mooie oplossing met advancedfilter.
Zelf heb ik nog wat zitten klooien met de tabellen en grafieken zodat deze per patient steeds worden aangepast.
Meen dat alles naar behoren werkt ;)
Groet,

Albert

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #52 Gepost op: 09 maart 2021, 15:11:09 »
@ AD1957,

Citaat
Vervelend, we zouden heel wat sneller de fouten er uit kunnen filteren met jouw VBA-kennis. De mijne is nog steeds beperkt.
O, maar dat vind ik van de mijne ook nog altijd, hoor. Ik heb mijn status van Excel-expert hier niet gratis bij een doos waspoeder gekregen, maar moet ook nog heel regelmatig mijn documentatie raadplegen!

Het feit is dat ik wel degelijk in het bestand kan werken, maar van zodra ik probeer op te slaan crasht Excel.
Je suggesties ivm de printmethode had ik ook al uitgeschakeld maar zonder beterschap. Dat het aan sorteren zou liggen lijkt me nogal sterk, Office 2007 kent Add2 dan wel niet, maar Add is ook goed genoeg.
Trouwens, ik had al wat geëxperimenteerd met het bestand in stukken en brokken te kopiëren naar een nieuw bestand en was er zo achter gekomen dat het iets op werkblad 'Database' was dat roet in het eten gooide. Met daarop slechts één draaitabel te behouden wou Excel wel opslaan maar met de waarschuwing dat sommige functionaliteiten zouden verloren gaan. Nadat ik zelf een identieke draaitabel had toegevoegd en de bestaande verwijderd was alles plots o.k. Maar als ik nadien een tweede draaitabel toevoeg is het boeltje terug om zeep, dus ik vrees dat ik maar beter de handdoek in de ring kan gooien.
Na je meldingen rechtstreeks aan mij gericht wou ik je dat toch nog laten weten zodat je niet zou denken dat ik er zomaar de stekker uittrek (wat latere reactie dus enkel wegens tijdsgebrek).

We zouden ons overigens nog kunnen afvragen of alle draaitabellen en grafieken wel nog nodig zijn als alle gegevens al netjes in het formulier worden getoond. Misschien horen we daarover nog iets van Lili, en dan spring ik er mogelijk ook weer op.

Groeten,
pitufo

[Edit:] net nu nog 2 posts zien verschijnen, ik kijk zeker nog verder mee!
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #53 Gepost op: 09 maart 2021, 15:28:44 »
En om vervolgens bij wijze van extreem kleine bijdrage toch nog iets nuttigs te kunnen doen: de leeftijdsberekening voor een nieuwe patiënt zal in minstens 99,5% van de gevallen een juist resultaat geven.
Helemaal juist wordt het met:
leeftijd = DateDiff("yyyy", CDate(TextBox2), Date) & " jaar"
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline AD1957

  • Ervaren lid
  • ***
  • Berichten: 250
  • Oplossing.be
Re: userform met verschillende lstboxen
« Reactie #54 Gepost op: 09 maart 2021, 15:49:16 »
Dan maar even wachten.
Groet,

Albert

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #55 Gepost op: 09 maart 2021, 16:25:25 »
@ pitufo

Citaat
Helemaal juist wordt het met:

Daar heb ik toch mijn bedenkingen bij want met jouw formule krijg ik nu al de leeftijd die ik pas binnen 6 maanden zal bereiken

terwijl de formule van Albert netjes mijn huidige leeftijd weergeeft.

Op jongere leeftijd is dit misschien wel leuk maar als je mijn leeftijd bereikt hebt is elk jaartje extra er 1'tje teveel. :):)
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #56 Gepost op: 09 maart 2021, 17:10:12 »
@ AD1957
Citaat
Dan maar even wachten.
Momenteel zou ik dat natuurlijk niet meer durven suggereren, nu de grafieken precies doen wat mocht gehoopt worden  \o/

@ Warme bakkertje,
Lap, had ik het maar getest (overkomt me niet voor het eerst...)  :-[
Ik was er zomaar vanuit gegaan dat de (nogal verborgen maar correct werkende) Excel-functie 'datumverschil' en de vba-functie 'Datediff' hetzelfde deden. Ik blijf het rare gasten vinden bij MS: ook met Worksheetfunction lukt het niet  :(
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Online RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: userform met verschillende lstboxen
« Reactie #57 Gepost op: 09 maart 2021, 17:25:10 »
Inderdaad.... de Datediff van VBA werkt niet zo als die in de worksheet. Daar moet je een kleinigheidje aan toevoegen...
Sub Leeftijd()
Const GeboorteDat As Date = "28/09/1961"

    Debug.Print DateDiff("yyyy", GeboorteDat, Date, vbMonday, vbFirstFourDays) + (DateSerial(Year(Date), Month(GeboorteDat), Day(GeboorteDat)) > Date)
   
End Sub

Deze doet het wel goed

[EDIT] 1 kleine misser met grote gevolgen. Bij deze de code rechtgezet (dank Pitufo voor het wijzen op het < dat > moest zijn)
______________________________

Groet, Leo

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: userform met verschillende lstboxen
« Reactie #58 Gepost op: 09 maart 2021, 18:01:28 »
Hallo RedHead,

"Bedankt voor de medewerking"  ;)  , maar moet het dan achteraan niet > zijn ipv < ?
(omdat jij checkt op verjaardag < vandaag en True = -1)

En kunnen we dan niet beter meteen Datediff overboord gooien en met jaar(vandaag)-jaar(gebdatum) beginnen?
Hopelijk denk ik nu niet weer te simpel...
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Online RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: userform met verschillende lstboxen
« Reactie #59 Gepost op: 09 maart 2021, 18:21:51 »
Pitufo, ik wilde lekker dicht bij je aangedragen voorbeeld blijven...  ;D ;D
Overigens werkt de sub uitstekend zo. Ik doe een optelling tussen de 2 delen. En dan krijg je plus min 1 = -1 die van de te hoge leeftijd wordt afgetrokken.
______________________________

Groet, Leo

 


www.combell.com