[vb] GetValue

[Verwijderd]

Ik heb een probleem met de GetValue

Voor de getvalue heb ik:

Visual Basic:

Private Function GetValue(TabelVeld As Field) As String 
GetValue = Iif(IsNull(TabelVeld), Empty, TabelVeld) 
End Function 

Een tekstveld uit de database halen lukt:

Visual Basic:

txtVoorbeeld = GetValue(rsDossier("Voorbeeld")) 

Maar nu heb ik in Access een 'ja/nee' veld gemaakt (checkbox).
Daar heb ik de volgende staan:

Visual Basic:

chkProbleem = GetValue(rsDossier("Probleem")) 

Nu krijg ik een type mismatch(13) error

Hoe kan ik dit oplossen??

[ Voor 9% gewijzigd door curry684 op 15-09-2003 21:36 . Reden: [code]-tags zijn mooi he :) ]

[guanpedro]

chkProbleem moet een bool worden toch? probeer GetValue(rsDossier("Probleem")) naar een valide bool te casten

[gorgi_19]

Geeft hij niet gewoon een boolean terug?

[RayNbow]

Ik neem aan dat chkProbleem een Checkbox is... In dat geval is het niet verstandig om een boolean aan de default property van een Checkbox toe te kennen, aangezien...

vbUnchecked = 0
vbChecked = 1
vbGrayed = 2
True = -1
False = 0

Misschien werkt de volgende code wel?

Visual Basic 6:

chkProbleem.Value = IIf(GetValue(rsDossier("Probleem")), vbChecked, vbUnchecked)

[farlane]

Maak er een variant van zou ik zeggen.

[Verwijderd]

Zo te zien was het de oplossing die RayNbow zei..

RayNbow bedankt

[farlane]

Vind je het nu handig dat je een uitzondering moet maken voor checkboxes ? Is er geen algemene manier te bedenken waarbij je de GetValue aanroep hetzelfde kunt houden ?

[Verwijderd]

Euh, zelf weet ik dat niet...

[Verwijderd]

Nu heb ik een ander probleem, namelijk de SetValue...

Voor de SetValue heb ik:

Private Function (Veldwaarde As String) As Variant
Dim Zonderspaties As String
Zonderspaties = Trim$(Veldwaarde)
If Zonderspaties = Empty Then
SetValue = Null
Else
SetValue = Zonderspaties
End If
End Function

Om de tekst op te slaan heb ik:

Dim Bladwijzer As Variant
rsDossier![Voorbeeld] = SetValue(txtVoorbeeld)
Bladwijzer = rsDossier.Bookmark
rsDossier.Update
rsDossier.Requery
rsDossier.Bookmark = Bladwijzer

Maar nu moet ik die checkbox op slaan. Hoe doe ik dat?
Weet RayNBow dat??

[Verwijderd]

...of iemand anders natuurlijk

[RayNbow]

Tip: gebruik liever de Edit knop ipv meerdere keren op jezelf te replyen

Maar volgens mij moet de volgende code het doen:

Visual Basic 6:

rsDossier![Probleem] = IIf(chkProbleem.Value = vbChecked, 1, 0)

NB: chkProbleem.Value = vbChecked kan ook verkort worden tot chkProbleem.Value

[ Voor 22% gewijzigd door RayNbow op 16-09-2003 14:10 ]

[Verwijderd]

Thnx! Ik zal het ff testen als mijn programma wat verder gevorderd is....

[farlane]

RayNbow schreef op 16 september 2003 @ 14:08:

Visual Basic 6:

rsDossier![Probleem] = IIf(chkProbleem.Value = vbChecked, 1, 0)

NB: chkProbleem.Value = vbChecked kan ook verkort worden tot chkProbleem.Value

Volgens mij ga je nu zelf ook de fout in met die verschillende checkbox statussen.

[RayNbow]

farlane schreef op 17 September 2003 @ 17:11:
[...]


Volgens mij ga je nu zelf ook de fout in met die verschillende checkbox statussen.

Hoezo? Als chkProbleem.Value = vbChecked is... dan is-tie dus aangevinkt. Als dat zo is, dan retourneert IIf de waarde 1, zoniet de waarde 0. De waarde 1 en 0 worden volgens mij gebruikt in databases voor de Yes/No velden (tenminste, zo heb ik al m'n ASP/ADO pagina's gemaakt die met Yes/No velden werken).

[farlane]

RayNbow schreef op 17 september 2003 @ 17:32:
[...]


Hoezo? Als chkProbleem.Value = vbChecked is... dan is-tie dus aangevinkt. Als dat zo is, dan retourneert IIf de waarde 1, zoniet de waarde 0. De waarde 1 en 0 worden volgens mij gebruikt in databases voor de Yes/No velden (tenminste, zo heb ik al m'n ASP/ADO pagina's gemaakt die met Yes/No velden werken).

Da klopt, maar ik doelde dan ook op je opmerking daaronder.