@ Albert

Ik had een ander trucje.

@ Lili

Als je de Unload Me uitschakelt bij het opslaan wordt de data opgeslagen maar blijft het UForm open en blijft alles staan.

Heb ook de medicijnlijst toegevoegd bij Userform Medicatie.

Hallo,

3 oplossingen voor de prijs van 1 om de Focus te Setten 

@ Warme bakkertje,
Jouw methode zal enkel werken als de gebruiker na invoer van de naam naar Textbox2 gaat (wat overigens mag verwacht worden, dus zeker ook bruikbaar).

Sorry aan allen dat ik nog steeds geen bijlage kan posten wegens niet kunnen opslaan (in één van de bijlagen uit ergens een vorige post kon dat wel, maar helaas terug naar af), dus nog eens op deze manier: waarschijnlijk doordat velen hier samen aan werken blijft er soms iets onnodig hangen. Ik zie daar (in hetzelfde formulier) bv. Commandbutton.Enabled standaard op False staan, hij wordt het dan nogmaals in de code, om nog later True te worden. Dat mag volgens mij allemaal weg (en dan natuurlijk True in ontwerp) aangezien er binnen zijn Click-event op invoer van alle textboxen wordt gecheckt.

Ik weet het, 't is maar een kleinigheid, maar misschien helpen alle beetjes

Op gevaar af dat ik nu van muggenzifterij ga beticht worden: ik lees in een comment dat de leeftijdsberekening nu correct gebeurt, maar dat is niet waterdicht door te delen door 365,25 (zie #57 en volgende)

Groeten,
pitufo

@ALbert,

Gevonden .... textbox1 > ComboBox3
en in de controle hetzelfde
TextBox1 > ComboBox3.Value

Het werkt nu toch in ieder geval
of zijn er nog addertjes onder de zoden 

groetjes
Lili

Sorry aan allen dat ik nog steeds geen bijlage kan posten wegens niet kunnen opslaan (in één van de bijlagen uit ergens een vorige post kon dat wel, maar helaas terug naar af

De Afdrukken macro is ondertussen weer geactiveerd, en die zorgde er bij mij voor dat mijn oude office crashte......

mogelijk.....

SoftAid              

heb net nog even de laatste berichtjes overlopen...

@Albert #75
Er kunnen max 4 metingen zijn per dag per persoon. En dit is dan meestal 2 voormiddag en 2 namiddag.

@ warme bakkertje
de functie vm en nm is om bij te houden van de metingen.
hoeveel in de vm en hoeveel in de nm ( en zoals hierboven gezegd kan dit tot 4x p/dag zijn)

wat de grafieken betreft stel ik vast dat deze nu in 4 worden opgesplitst ( 2x vm en 2x nm) wat voorheen niet zo was.
Of heb ik dit verkeerd voor?

Alvast bedankt

groetjes
Lili

Hallo Iedereen,

Hopelijk wat kunnen genieten van de rust en geen gezaag aan jullie hoofd van mij! 

Nu i'm back!

Laat ik beginnen met dat het einde toch nabij is hoor.

Eerst de vraag (1tje per keer / opmerking)
In bijlage de screenshots van de melding die ik krijg als ik alle patiënten verwijder.
Ligt de fout hier bij mij of is het een kleinigheid in het bestand?


op de rest hoeven jullie nog niet te letten... komt later aan bod

alvast bedankt

groetjes
Lili

@Ad1957! (Albert)

Bizar de code is nochtans dezelfde als bij mij. Nu ja nogmaals dit is nu niet zo erg. onderbreken en nieuwe patiënt toevoegen en probleem van de baan.
 
volgende vraagje dan...
Jullie zullen zien dat ik een button op de homepage heb bij aangemaakt voor het toevoegen van medicijnen aan de tblMedicatie.

alleen schrijft hij deze niet weg in de tblMed maar in tblDatabase.
Iemand een idee waar of wat er fout loopt?

Alvast bedankt.

mvg,

Lili

Wel getest.

Sub Toevoegen()
    Dim iRow As Long
    With Sheets("Database").ListObjects("tblMedicatie").DataBodyRange
        iRow = .Rows.Count + 1
        .Cells(iRow, 1) = TxtNaamMedicijn.Text
        .Cells(iRow, 2) = TxtFabrikantMedicijn.Text
        .Cells(iRow, 3) = txtMaximaal.Text
    End With
End Sub