Hoi Dizzl,
Heb het zo opgelost en dit werkt dan wel:
De select case broncode verwijderen en de broncode vervangen met onderstaande:
'Resultaat en het risico bepalen
If Format(MijnBMI, "00.00") < 18.5 Then txtResultaat = "Ondergewicht"
If Format(MijnBMI, "00.00") < 18.5 Then txtRisico = "Gestegen"
If Format(MijnBMI, "00.00") > 18.5 Then txtResultaat = "Normaal"
If Format(MijnBMI, "00.00") > 18.5 Then txtRisico = "Normaal"
If Format(MijnBMI, "00.00") > 24.99 Then txtResultaat = "Overgewicht"
If Format(MijnBMI, "00.00") > 24.99 Then txtRisico = "Gestegen"
If Format(MijnBMI, "00.00") > 29.99 Then txtResultaat = "Obesitas type 1"
If Format(MijnBMI, "00.00") > 29.99 Then txtRisico = "Hoog"
If Format(MijnBMI, "00.00") > 34.99 Then txtResultaat = "Obesitas type 2"
If Format(MijnBMI, "00.00") > 34.99 Then txtRisico = "Zeer Hoog"
If Format(MijnBMI, "00.00") > 39.99 Then txtResultaat = "Obesitas type 3"
If Format(MijnBMI, "00.00") > 39.99 Then txtRisico = "Extreem Hoog"
Voor Datum tekstbox:
txtDatum = Date +Time
Hoe zou dan de oplossing kunnen zijn binnen select case dan?
Vriendelijke groeten,
Diezel