waarde toekennen lukt niet

[JEPEDEWE]

Hallo,

Ik heb volgende lijn in mijn code staan:

If TB!intensief = True Then f!Selectievakje_IB = True

aan TB!intensief wordt inderdaad een waarde toegekend, maar ik kan het selectievakje op de form op basis hiervan niet "True" maken

Er kan geen waarde aan dit selectievakje toegekend worden geeft de foutmelding. Hoe los ik dit op

Bedankt
JP

 

[edmoor]

En die foutmelding is niet belangrijk?

Die If lijkt me trouwens overbodig. Dit zou moeten volstaan:
f!Selectievakje_IB = TB!intensief

Maar dat zal niet je probleem oplossen.

 

[JEPEDEWE]

Foutmelding:

Fout 2448
U kunt geen waarde aan dit object toekennen

Bedankt

 

[edmoor]

Het lijkt er dan op dat het object f!Selectievakje_IB op dat moment niet beschikbaar is.

 

[JEPEDEWE]

Wat bedoelt U met "niet beschikbaar"...

Staat effectief op de form, onder die naam (copy paste)

Rest van code:

    Dim voorschrift As String, Kode As String
    Forms!patlijst.Visible = False
    DoCmd.OpenForm ("Invoer voorschrift - terugkeer")
    Set f = Forms![invoer voorschrift - terugkeer]
    f!NAAM = Forms!patlijst!NAAM
    SQL = "SELECT VOORSCHR.KODELANG, VOORSCHR.categorie, VOORSCHR.PLTS, VOORSCHR.DOKTER, VOORSCHR.REEKS, VOORSCHR.FREQ, VOORSCHR.CODE, VOORSCHR.DIAGN, VOORSCHR.BEHAND, VOORSCHR.PEUT, VOORSCHR.OPMERK, VOORSCHR.PATHO, VOORSCHR.POSTOP, VOORSCHR.OPERATIE, VOORSCHR.DATOP, VOORSCHR.RUSTOORD, VOORSCHR.SOORT, VOORSCHR.soort_pathologie, VOORSCHR.Teller, voorschr.intensief FROM VOORSCHR WHERE VOORSCHR.KODELANG ='" & [Forms]![patlijst]![KODELANG] & "';"
    Set TB = db.OpenRecordset(SQL)
    If IsNull(TB!dokter) = False Then f!verwijzend_arts = TB!dokter
    If IsNull(TB!DIAGN) = False Then f!diagnose = TB!DIAGN
    If IsNull(TB!REEKS) = False Then f!AANTAL = TB!REEKS
    If IsNull(TB!freq) = False Then f!per_week = TB!freq
    If IsNull(TB!CODE) = False Then f!code_behandeling = TB!CODE
    If IsNull(TB!BEHAND) = False Then f!behandeling = TB!BEHAND
    If IsNull(TB!peut) = False Then f!wiens_naam = TB!peut
    If IsNull(TB!OPMERK) = False Then f!Opmerking = TB!OPMERK
    If IsNull(TB!PATHO) = False Then f!PATHO = TB!PATHO
    If IsNull(TB!Postop) = False Then f!Postop = TB!Postop
    'f!Selectievakje_IB = TB!intensief

 

[edmoor]

Dan zal het een andere oorzaak hebben maar de foutmelding zegt dat 'ie niet bij dat object kan.

 

[wampier]

Is selectievakje niet hard gekoppeld aan een eigenschap? anders kun je de waarde inderdaad niet altijd veranderen. Ander ding is inderdaad dat je iets probeert te veranderen op een form wat niet actief is, bijvoorbeeld als je een modal form opent.

edit: zie net dat je hele code gepost hebt, valt het tweede waarschijnlijk af.

 

[JEPEDEWE]

selectievakje stond als vergrendeld en niet actief...
Veranderd en OPGELOST
Bedankt voor de hint edmoor

JP

 

[edmoor]

Dan zat wampier met z'n eerste opmerking het dichtst in de buurt.
Mooi dat het opgelost is

 

[OctaFish]

Nu nog wat strakker werken, en je komt er wel . Zo zou je, als je vanaf het formulier patlijst werkt, i.p.v.

	Forms!patlijst.Visible = False

ook

	Me.patlijst.Visible = False

kunnen gebruiken.

Sowieso maak je nergens gebruik van IntelliSense, en dat vind ik toch een gemiste kans .
Daarnaast gebruik je één tabel, dus is het nergens voor nodig om de SQL zo neer te pennen. Kan dus ook zo:

SQL = "SELECT KODELANG, categorie, PLTS, DOKTER, REEKS, FREQ, CODE, DIAGN, BEHAND, PEUT, OPMERK, PATHO, POSTOP, OPERATIE, DATOP, RUSTOORD, SOORT, soort_pathologie, Teller, intensief 
FROM VOORSCHR WHERE KODELANG ='" & Me.KODELANG & "'"

En dit

	If IsNull(TB!REEKS) = False Then f!AANTAL = TB!REEKS

kan ook korter:

	If Not IsNull(TB!REEKS) Then f!AANTAL = TB!REEKS