keuzelijst "zet zich niet correct"

Status
Niet open voor verdere reacties.
J

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.682
Hallo,
Ik heb een form met een keuzeveld.
Het keuzeveld is gebaseerd op een tabel met waarden...
als ik de form open dan wil ik dat de keuzelijst al staat bij de tekst die uit een ander formulier gehaald wordt...
Blijkbaar krijg ik de keuzelijst niet "verzet"
de code:

Code: 
Private Sub Form_Load()
     Me.cbb_SoortDocument = [Forms]![formulier_nieuw]!Txt_soortdocument
     Me.KZ_Omschrijving = [Forms]![formulier_nieuw]!Txt_soortdocument
end sub

als ik op de form een veld zet wat de waarde van [Forms]![formulier_nieuw]!Txt_soortdocument overneemt dan werkt dit perfect

Hoe pak ik dat aan

JP
 
En toch is het vele malen makkelijker dan wat je nu doet... Probeer het desnoods met TempVars, als je die techniek wel snapt. Je kiest de minst makkelijke manier, die ook nog eens niet werkt :).
 
Ik schrijf:
Code: 
Private Sub CScan_Click()
    'Dim waarde As String
    Me.Txt_soortdocument = "C - Correspondentie"
    TempVars.Add "waarde", Me.Txt_soortdocument.Value
    DoCmd.OpenForm ("Documenten_soorten")
End Sub
(weet niet zeker of die lijn "Dim waarde as string" nodig is of niet)
Als ik een stop zet op de DoCmd lijn en vraag de waarde van de variable "waarde" dan is die leeg..
Is zeker niet OK op deze manier

Wat moet ik veranderen

Bedankt
JP
 
Je moet de waarde als TempVar declareren, niet als String. Het is wezenlijk iets anders als een gewone variabele.
 
met de aangepaste code:
Code: 
    Dim waarde As TempVar
    Me.Txt_soortdocument = "C - Correspondentie"
    TempVars.Add "waarde", Me.Txt_soortdocument.Value
    DoCmd.OpenForm ("Documenten_soorten")
Krijg ik volgende foutmelding:

Fout 91 tijdens uitvoering:
Objectvariabele of blokvariabele With is niet ingesteld

Ik kan "waarde" definieren als TempVar of als TempVars... wat is het verschil?

bedankt voor de hulp
JP
 
TempVars is een collectie, dus die bevat meerdere TempVar variabelen. Dat gebruik je dan bijvoorbeeld om door de collectie heen te lopen op zoek naar een specifieke tempVar. Aan een collectie kun je geen waarden toevoegen.
Op welke regel krijg je de melding?
 
Probeer anders dit eens:
Code: 
Function test()
Dim waarde As TempVar
Dim Txt_soortdocument As String
    Txt_soortdocument = "C - Correspondentie"
    TempVars.Add "waarde", Txt_soortdocument
    MsgBox TempVars("waarde").Value
End Function
Dit moet werken namelijk.
 
Michel,

Ik zet een stop aan de DoCmd... - lijn
als ik via CTRL-G naar de inhoud van "waarde" vraag dmv ? waarde
DAN krijg ik de foutmelding
 
Ik heb jouw code in een eigen database gezet, en hij werkt perfect. Ik verwacht eerlijk gezegd ook niks anders, want aan de code mankeert niks. Ik zou zeggen: tijd voor een nieuwe kopie? :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan