[Access] Tekstbox afhankelijk van selectievakje

[Fire_Bird]

Ik ben al een tijd aan het spitten hier op GoT maar kom er niet uit
De bedoeling is om een tekstvak pas actief te laten worden zodra er het vink-vakje voor word aangezet.
Als iemand afwezig is moet dus zegmaar een vakje worden aangevinkt, en hierdoor moet een opmerkingenvak actief worden, dit heb ik nu;

PHP:

Private Sub Form_Load()
    Opmerkingen.Enabled = False
End Sub

Private Sub Afwezig_Click()
    Opmerkingen.Enabled = True
End Sub

edit:

heb niet veel verstand van acces, maar wil dit wel graag voor elkaar krijgen, en jah heb al search gebruikt en google etc. maar kom er niet uit..ben een totale n00b op het gebied van VB.

[ Voor 19% gewijzigd door Fire_Bird op 13-10-2003 11:05 ]

[OZ-Gump]

Het lijkt me VBA in plaats van PHP denk ik he?

Stel de waarden voor alle zaken in zoals je die in beginsel wil hebben. Vervolgens zorg je ervoor dat bij de OnClick van de checkbox de textbox.Visible de waarde krijgt van selectievak. Dus als iemand het selectievakje 'aan' zet, wordt de textbox visible, als iemand het selectievakje 'uit' zet, verdwijnt het textboxje weer.

Als je er niet uit komt: verduidelijk je post een beetje, want heel veel duidelijkheid verschaft hij momenteel niet.

[Fire_Bird]

OZ-Gump schreef op 13 October 2003 @ 11:06:
Het lijkt me VBA in plaats van PHP denk ik he?

Stel de waarden voor alle zaken in zoals je die in beginsel wil hebben. Vervolgens zorg je ervoor dat bij de OnClick van de checkbox de textbox.Visible de waarde krijgt van selectievak. Dus als iemand het selectievakje 'aan' zet, wordt de textbox visible, als iemand het selectievakje 'uit' zet, verdwijnt het textboxje weer.

Als je er niet uit komt: verduidelijk je post een beetje, want heel veel duidelijkheid verschaft hij momenteel niet.

tsjah verduidelijken? zie openingspost, heb geen idee hoe ik het aan moet pakken, maar wat jij zegt is precies de bedoeling iig..maar HOE is de vraag

1 selectievakje, zodra deze word AANGEVINKT moet een tekstvak ACTIEF worden, beide velden komen voor in een tabel omdat hier weer een query op berust...

[ Voor 15% gewijzigd door Fire_Bird op 13-10-2003 11:08 ]

[OZ-Gump]

Zoals ik al aangaf:
bij de onclick van je selectievak zet je

code:

textboxNaam.visible = selectievakNaam

[WhizzCat]

Ik zou het met een if constructie in je afwezig_click doen

edit: onzin, sorry

[ Voor 67% gewijzigd door WhizzCat op 13-10-2003 11:11 ]

[Fire_Bird]

WhizzCat schreef op 13 October 2003 @ 11:10:
Ik zou het met een if constructie in je afwezig_click doen

edit: onzin, sorry

en hoe bouw je zo iets op? wat ik intyp geeft ie fouten bij, zal zo ff de code posten

[jwpmzijl]

Het probleem is dat je niet aangeeft welke control bedoeld is. OK, de naam van de control is Opmerkingen maar Access weet dan nog niet waar hij de control moet zoeken. Wat je moet doen is

me.opmerkingen.enabled = true

Door het codewoord me. weet Access dat hij op het actieve formulier moet gaan zoeken naar de control.

[MissingDog]

code:

Private Sub chkOptie_Click ()
Select Case chkOptie.Value
    Case 0
        txtTextbox.visible = false
    Case 1
       txtTextbox.visible = true
End Select
End Sub

Zoiets?

[ Voor 10% gewijzigd door MissingDog op 13-10-2003 11:18 ]

[Fire_Bird]

jwpmzijl schreef op 13 oktober 2003 @ 11:14:
Het probleem is dat je niet aangeeft welke control bedoeld is. OK, de naam van de control is Opmerkingen maar Access weet dan nog niet waar hij de control moet zoeken. Wat je moet doen is

me.opmerkingen.enabled = true

Door het codewoord me. weet Access dat hij op het actieve formulier moet gaan zoeken naar de control.

dat is hetzelfde als dit;

Private Sub Afwezig_Click()
Opmerkingen.Enabled = True
End Sub

daar doet hij het ook wel mee hoor
maar die moet pas TRUE worden als AFWEZIG dus de waarde JA heeft

[OZ-Gump]

OZ-Gump in [Access] Tekstbox afhankelijk van selectievakje !!!

[ Voor 6% gewijzigd door OZ-Gump op 13-10-2003 11:21 ]

[Force]

is dit niet gewoon de oplossing :

edit: doet hetzelfde als de post van MissingDog

code:

Private Sub Afwezig_Click() 
 if me![afwezig] = true then 
  me![Opmerkingen].Enabled = True 
 else
  me![Opmerkingen].Enabled = false
 endif
End Sub

en natuurlijk ook bij form_open controleren wat de waarde van afwezig is.

Dit werkt overigens alleen bij een enkelvoudig formulier (dus 1 record zichtbaar). Als je een lijst met records op je formulier hebt staan werkt dit niet, opmerkingen word dan voor alle records enabled of disabled. (is dat je probleem ?)

[ Voor 5% gewijzigd door Force op 13-10-2003 11:25 ]

[MissingDog]

OZ-Gump schreef op 13 oktober 2003 @ 11:20:
OZ-Gump in [Access] Tekstbox afhankelijk van selectievakje !!!

Ik ziet um, de reden van mijn uitwerking is dat VB(A) niet altijd even goed omgaat met de conversie tussen 0/1 Booleans naar True/False.

[Fire_Bird]

Force schreef op 13 October 2003 @ 11:22:
is dit niet gewoon de oplossing :

edit: doet hetzelfde als de post van MissingDog

code:

Private Sub Afwezig_Click() 
 if me![afwezig] = true then 
  me![Opmerkingen].Enabled = True 
 else
  me![Opmerkingen].Enabled = false
 endif
End Sub

en natuurlijk ook bij form_open controleren wat de waarde van afwezig is.

Dit werkt overigens alleen bij een enkelvoudig formulier (dus 1 record zichtbaar). Als je een lijst met records op je formulier hebt staan werkt dit niet, opmerkingen word dan voor alle records enabled of disabled. (is dat je probleem ?)

hmz, werkt opzich goed, maar idd als je dit hebt werkt het voor alles, en niet specifiek voor het record waar de waarde JA is voor Afwezig, dus gelijk voor alles...valt dit nog anders te doen of niet?
Weet niet of het mogelijk is, maar eigenlijk als je dus de status afwezig weer UIT vinkt dan zou het mooi zijn als de opmerkingen leeg werd gemaakt
zal eventueel even een screenshot plaatsen van het gebeuren..

* Fire_Bird heeft inmiddels een VBA boek besteld

[ Voor 11% gewijzigd door Fire_Bird op 13-10-2003 11:31 ]

[Force]

leeg maken bij uitvinken is niet zo moeilijk:

code:

Private Sub Afwezig_Click() 
 if me![afwezig] = true then 
  me![Opmerkingen].Enabled = True 
 else
  me![Opmerkingen].Enabled = false
  me![opmerkingen] = ""      ' of null
 endif
End Sub

edit: leegmaken geld dus wel aleen voor het huidige record.

[ Voor 14% gewijzigd door Force op 13-10-2003 11:41 ]

[Force]

Fire_Bird schreef op 13 oktober 2003 @ 11:29:
[...]

hmz, werkt opzich goed, maar idd als je dit hebt werkt het voor alles, en niet specifiek voor het record waar de waarde JA is voor Afwezig, dus gelijk voor alles...valt dit nog anders te doen of niet?

In principe is wat je wil niet mogelijk, maar wat je zou kunnen doen(het is niet mooi, maar werkt wel) is het volgende:

Zet bij het het opmerkingen veld bij "bij focus" de volgende code:

code:

If me![afwezig] = false          'dus niet aangevinkt
 msgbox "Je mag niets invullen, want persoon is aanwezig"
 me![afwezig].setfocus
endif

Als iemand dus op het opmerkingen veld klikt en afwezig is niet aangevinkt krijgt hij een melding en word de focus weer op afwezig gezet. Let wel op dat je opmerkingen dan niet meeneemt in je tab volgorde, anders word het wel erg vervelend.
Zoals ik al zei het voorkomt invoeren als afwezig = false, maar kan wel irritante bijverschijnselen vertonen. Die overigens ook wel weer voor een deel af te vangen zijn, maar dat moet je maar even uitzoeken. Denk dat je al een aardig stukje kan komen met de voorbeelden hier in combinatie met de help files.

[Boss]

Zet bij het 'bij aanwijzen' event van je formulier een verwijzing naar de event die je laat uitvoeren bij het wijzigen van het selectievakje.

Dan krijg je dus:

code:

Private Sub Form_Current()
  Afwezig_Click
End Sub

[thomrob]

Private Sub Afwezig_Click()

me![Opmerkingen].Enabled = me.afwezig

End Sub

[Bu588]

Wat dacht je van

code:

Private Sub Afwezig_Click()

Me!opmerkingen.Enabled = Me!Afwezig

End Sub

Dan wordt het vak opmerkingen ook weer Disabled als je een vinkje weghaalt. En natuurlijk heb je ook de procedure nodig bij Bij aanwijzen (On Current in het Engels), anders kan het van opmerkingen Enabled blijven bij een volgend record.

Oeps, Thomrob was sneller, maar ik heb meer uitleg

[ Voor 8% gewijzigd door Bu588 op 14-10-2003 09:10 . Reden: osting van Thomrob niet goed gelezen :( ]