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

AD1957 · « **Reactie #75 Gepost op:** 10 maart 2021, 21:02:59 »

@Warme bakkertje,
De code voor de dubbels: kunnen die niet beter in textbox_afterupdate of textbox_exit.
Anders vul je eerst de userform in en dan kom je er pas achter dat je fout zit.
Lijkt me beter: als dubbele Patient direct textbox leegmaken en focus op textbox houden.

Nog een punt voor aandacht: In tblDatabase worden nu twee metingen per dag ingevuld.
Die twee metingen per datum/patient zijn belangrijk anders gaan de grafieken wel heel vreemd uitzien.
Hier zou dan ook nog een control op moeten.
Voor jou misschien een makkie, voor mijn even zoeken.

SoftAid · « **Reactie #76 Gepost op:** 10 maart 2021, 21:19:30 »

Beste helpers,

De samenwerking vervuld me met blijdschap. Zoals steeds is de samenwerking enorm, en helpt elk een ander.

Misschien een kleine maar toch niet onbelangrijke suggestie: plaats wat meer comments achter de code als je iets aanpast/verbetert zodat de andere helpers gemakkelijke zien waar/wat veranderd is.
Maar nogmaals, de inbreng, hulpvaardigheid en de sfeer is meer dan uitmuntend.
Ik ben fier op al deze mensen en hun wil tot helpen.

Keep on the good work

SoftAid

LiliC · « **Reactie #77 Gepost op:** 10 maart 2021, 21:20:20 »

@ warme bakkertje,

ik moet mij excuseren voor mijn opmerking wat de medicijnen betreft.
Dalfagan en daflagan zijn blijkbaar niet dezelfde medicijnen.

bij zelfde naam invoer krijg je wel de msgbox.

groetjes
Lili

LiliC · « **Reactie #78 Gepost op:** 10 maart 2021, 21:25:18 »

@SoftAid

Citaat

De samenwerking vervuld me met blijdschap. Zoals steeds is de samenwerking enorm, en helpt elk een ander.

is gewoonweg "PRACHTIG"

Citaat

Ik ben fier op al deze mensen en hun wil tot helpen.

Dat mag je zeker zijn.

en dan vergeet je nog de term " begrip " bij te vemelden! $_/-\o_$

maar als zelfs ik als leek kan volgen, per slot zetten onze diamantairs

;)steeds een quote bij wat ze hebben aangepast, denk ik dat de andere diamantairs die hier aan helpen daar zeker geen probleem met zullen hebben.

groetjes
Lili

LiliC · « **Reactie #79 Gepost op:** 11 maart 2021, 00:02:46 »

Goedenavond heren,

Mag ik met enige fierheid mijn voorstel tot afdrukken van de grafieken voorstellen?
Staat nog niet echt op punt, maar het is al een goed begin denk ik zo!

moet maar eens zien.
Klik op de printer op het startscherm en dan keuze in listbox maken " grafieken"
klik op de printer en zie het resultaat.

woeeehooeeeee
als leek ..... $\o/$ $\o/$ $\o/$ $\o/$
hahahahahahaha

groetjes
Lili

JeanPierre · « **Reactie #80 Gepost op:** 11 maart 2021, 08:10:50 »

Best Excellers,

Mag ik eens vragen wat dit inhoud, als ik de file open krijg ik een melding over PtrSafe omdat ik met een 64 bit versie werk, zie bijvoegsel.

Grts,
Jean-Pierre.

pitufo · « **Reactie #81 Gepost op:** 11 maart 2021, 09:57:23 »

Dag Lili,

Knap van jou dat je dat zelf voor mekaar hebt gekregen, dus zeer terecht de $\o/$ die je jezelf gaf

Alleen vermoed ik dat je wat opzoekwerk hebt verricht met een omweg als gevolg. Uit alles blijkt dat je werkblad 'Grafieken' wil printen, dan hoef je niet eerst nog eens de keuze te gaan maken uit alle werkbladen...
Mijn voorstel: verwijder de hyperlink van het printertje op 'Home', koppel aan die afbeelding macro Print_sh, en die macro zelf kan je dan reduceren tot:

Code: [Selecteer]

Sub Print_sh()
Sheets("Grafieken").PrintPreview
End Sub

Uiteraard heb je dan ook werkblad 'ActiveX' niet meer nodig.

Succes!
pitufo

Warme bakkertje · « **Reactie #82 Gepost op:** 11 maart 2021, 11:13:49 »

@ Albert

Aangepast in het bestand.

Wat betreft de dagelijkse invoer, als ik kijk naar de mogelijkheden VM of NM of VN - NM enz....

heb ik daar mijn twijfels bij. Misschien kan Lili daar wat klaarheid in brengen.

@ JP

Met de invoer van 64Bit bestaat er nu zoiets als Conditional Compiling om dit op te vangen.

Probeer het eens op deze manier

Code: [Selecteer]

#If VBA7 Then
    Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
        ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
#Else
    Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
        ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If

Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1

@ Lili

Om te vermijden dat je medicijnnamen verkeerd ingeeft kan je een tabel aanmaken met alle medicatie die je toedient.

Dan gebruiken we ipv een TextBox een Keuzelijst (Combobox) waaruit je dan het medicijn selecteerd.

Lijkt je dat wat ?

SoftAid · « **Reactie #83 Gepost op:** 11 maart 2021, 11:14:09 »

Citaat van: JeanPierre op 11 maart 2021, 08:10:50

Mag ik eens vragen wat dit inhoud, als ik de file open krijg ik een melding over PtrSafe omdat ik met een 64 bit versie werk, zie bijvoegsel.

Jean-Pierre,

Citaat

When running in 64-bit versions of Office, Declare statements must include the PtrSafe keyword. The PtrSafe keyword asserts that a Declare statement is safe to run in 64-bit development environments.

Aldus zou de code

Code: [Selecteer]

Declare PtrSafe Sub keybd_event Lib "user32" ..... enzovoort moeten zijn als ik het goed begrepen heb op deze site

SoftAid

AD1957 · « **Reactie #84 Gepost op:** 11 maart 2021, 14:14:15 »

@ Warme bakkertje,
reactie #82
Ik zie dat je de code in frmNieuwePatient textbox1_afterupdate heb aangepast.
Maar hoe hou/zet ik de focus terug op textbox1. Mij lukt het niet

pitufo · « **Reactie #85 Gepost op:** 11 maart 2021, 15:12:01 »

@ Albert,

Inderdaad een vervelende kwestie.
Een workaround misschien (omdat ik het namelijk anders ook niet weet...)?
Je zal vba wat meer werk geven (maar het tijdsverschil niet merken) als je er een change-event van maakt.
Ben wel nieuwsgierig of iemand met een betere oplossing komt!

Groeten,
pitufo

LiliC · « **Reactie #86 Gepost op:** 11 maart 2021, 15:16:51 »

Dag warme bakkertje,

Als dat geen onoverkomelijk gedoe is in de code dan mag dat gerust van mij hoor.
Wat misschien een optie zou zijn is dat er een button bijkomt met de taak " toevoegen" . Maw, nu bij opslaan is alles weg en moet men weer de patiënt geen selecteren om nog medicatie toe te voegen.
Handig ware mocht er een button bij zijn die gewoon toevoegt en bij dezelfde patiënt blijft tot klikken op "opslaan"

heb het form al wat aangepast maar krijg wel nog fouten.
de lijst die eventueel te gebruiken medicatie staat op sheet " lijsten"

Groetjes
Lili

AD1957 · « **Reactie #87 Gepost op:** 11 maart 2021, 15:55:21 »

cmbMediactie?? goed kijken

update: Als je option_explicit gebruikt moet je wel alle variabelen declareren.
Als je namen van textboxen,comboboxen etc. wijzigt heeft dat gevolgen voor de codes.

AD1957 · « **Reactie #88 Gepost op:** 11 maart 2021, 16:35:44 »

@Pitufo

focus op textbox houden ipv Textbox1_AfterUpdate

Code: [Selecteer]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("Database").ListObjects("tblPatient")
        If Not IsError(Application.Match(TextBox1.Text, .DataBodyRange.Columns(1), 0)) Then
            MsgBox "Dubbele Invoer patiëntnaam.", vbExclamation + vbOKOnly, "WAARSCHUWING"
            TextBox1.Text = ""
            Cancel = True
        Else
            CommandButton1.Enabled = True
        End If
    End With
End Sub

AD1957 · « **Reactie #89 Gepost op:** 11 maart 2021, 16:43:42 »

@LiliC,

Lees reactie #7 van SoftAid nog eens aandachtig.
Met name het laatste.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics