hoeveel puntjes

[JEPEDEWE]

Hallo

Ik heb een text-veld in de vorm van: 10.2 of 10.2.1 of 10.2.2 enz

Ik zou graag willen "tellen" hoeveel punten er in een veld staan, dus bvb voor 10.2 is dat er 1
voor 10.2.1 zijn dat er 2....

Hoe doe ik dat?

Bedankt
JP

 

[OctaFish]

Met een functie:

Function Tellen(Veld As String) As Integer
Dim i As Integer
If InStr(1, Veld, ".") > 0 Then
    For i = 1 To Len(Veld)
        If Mid(Veld, i, 1) = "." Then Tellen = Tellen + 1
    Next i
Else
    Tellen = 0
End If
End Function

Omdat er geen foutcontrole in de functie zit, moet je die in de query doen:

Expr1: IIf(InStr(1;[Omschrijving];".")>0;tellen([Omschrijving]);0)

 

[JEPEDEWE]

eigenlijk is mijn vraag een combinatie van beide:

op het jpg bestandje zie je een keuzevakje, dan een code en dan een omschrijving
de bedoeling is dat je alleen het keuzevakje mag gebruiken als cd code geen of 1 puntje bevat....

ben niet zo een expert hoor dus, graag eenvoudig
(ben fysiotherapeut in een school voor gehandicapte kinderen in Belgie, en we zouden graag een programma maken om de begeleiding van de leerlingen te kunnen verbeteren)

graag een handje

JP

 

[perpon]

Na bijwerken van het vinkje kan de volgende puntenteller function worden aangeroepen
Public Function PuntenTeller(Text As String) As Long
On Error GoTo Fout

Dim i As Long, cnt As Long
Dim c As String
cnt = 0
If Len(Text) > 0 Then
For i = 1 To Len(Text)
c = Mid$(Text, i, 1)
If c = "." Then cnt = cnt + 1
If Asc(c) = 133 Then cnt = cnt + 3
Next i
End IfBekijk bijlage puntenteller.zip
PuntenTeller = cnt
Uit:
Exit Function
Fout:
PuntenTeller = 0
End Function

Zie ook de bijlage met een kant en klaar voorbeeld


janvP

 

[perpon]

Er ging iets mis met het uploaden van de bijlage.
JanvP
Bekijk bijlage 110444

 

[JEPEDEWE]

Ik kom er niet uit

Sorry dat ik lastig doe, maar ik kom er niet echt uit...
het idee is als volgt

Een leerkracht heeft voor een groep leerlingen een projectje in mekaar gestoken
Voor ieder project dient hij een aantal vaardigheden bij te brengen
In het bijgevoegd jpg-tje zie je die.
Hij zou dus de vaardigheden uit een lijst moeten aanvinken die voor dat project van toepassing zijn.
Echter
De items met 1 cijfer of die met 2 cijfers (2.1 of 2.2...) zijn eigenlijk titels.
Hier zou dus geen keuzevakje mogen voor staan
De kleur van het veld zou ook anders moeten zijn om de leesbaarheid te vereenvoudigen
Hoe krijg ik dat klaar?
Van harte
JP

 

[perpon]

Zie ook de bijlage vinken.zip
Wat uitleg bij de vinken.mdb

Hierin is qrtabel1 de recordbron van formulier vinken.
In qrtabel1 is een aanroep naar de functie puntenteller in de module, welke de punten telt in het veld hoofdstuk.
Het resultaat wordt opgeslagen in het veld pcnt.
Dit veld word weer in formulier vinken gebruikt bij de focus van de velden Hoofdstuk of tekst .
Dan kan worden bepaald of het vinkje zichtbaar moet zijn of niet.
Dit gebeurt met de volgende code:

Private Sub hoofdstuk_GotFocus()
If Me!PCnt > 1 Then
  Me.vinkje.Visible = True
Else
  Me.vinkje.Visible = False
End If
End Sub

Nu met bijlage:
Bekijk bijlage Vinken.zip

 

[JEPEDEWE]

ik wil niet onbeleefd zijn, en ik waardeer je inspanning erg, maar ik vind dit niet echt werkbaar en nogal verwarrend in gebruik
Bestaat er echt geen manier om dingen te tonen of te verbergen afhankelijk van wat in een record staat bij een "continuous form"?
JP

 

[perpon]

Ja het is inderdaad niet mooi wanneer er vinkjes verdwijnen, maar wel leuk dat het kan. Helaas geldt het in zo'n doorlopend formulier dan ook voor alle vinkjes.

Om e.e.a. toch onderscheiden kunnen vinkjes welke niet aangevinkt mogen worden in een rood kadertje worden geplaatst. Zie voorbeeld.jpg.
Dit kan nu worden gerealiseerd met voorwaardelijk formatteren. Zie voorwaardelijkformatteren.jpg
In de bijlage vinken2.zip is een werkend voorbeeld te zien.
Groet JanvP


Bekijk bijlage Vinken2.zip

 

[JEPEDEWE]

Hey, erg bedankt voor de moeite die je doet hoor...
Vraagje, zou je bvb de waarde van links niet kunnen veranderen zodat de code OVER het vinkje komt et staan en dus....WEG IS!!!!
JP

 

[perpon]

Het veld vinkje staat voor het veld dummy, plaats je het erachter dan is het niet meer zichtbaar. Probeer het zelf eens uit!

groet JanvP