Ik heb een formulier (laten we het Startform noemen) met een drukknop
startform blijft open staan
Als ik hier op klik wordt volgende code gelopen:
Me.Voorschrift_aanmaken = "Neen"
DoCmd.OpenForm "Lijst_voorschriften", , , , , acDialog
er opent zich een lijst... uit deze lijst klik ik de lijn die ik wens via de code :
Private Sub Cbballe_voorschriften_Click()
DoCmd.OpenForm "Weergave voorschrift", , , , , acDialog
End Sub
Het formulier met de lijst blijft open staan
bij het openen van het formulier "weergave voorschrift" schrijf ik:
If Forms.[weergave patiënt].[Voorschrift_aanmaken] = "Neen" Then
Me.RecordSource = "SELECT VOORSCHR.* FROM VOORSCHR WHERE VOORSCHR.identif = " & [Forms]![lijst_voorschriften]![Cbballe_voorschriften].Column(0)
Me.NAAM = Forms.lijst_patienten.naamlijst.Column(1)
Set f = Forms![weergave voorschrift]
End if
op de lijn: If Forms.[Startform].[Voorschrift_aanmaken] = "Neen" Then
krijg ik een foutmelding:
Fout 438 tijdens uitvoering
Deze eigenschap of methode wordt niet ondersteund door dit object.
Ik weet zeker dat ik op andere plaatsen in het project gelijkaardige dingen doe (gegevens uit andere formulieren halen) en waarbij het wel werkt.
Waarom hier niet?
PS
Als ik nu via Ctrl-G bvb vraag:
Forms.[Startform].[kodelang]
(wat een veld is op het formulier)
krijg ik dezelfde foutmelding
het formulier staat op dit moment nog open
Bedankt
JP
startform blijft open staan
Als ik hier op klik wordt volgende code gelopen:
Me.Voorschrift_aanmaken = "Neen"
DoCmd.OpenForm "Lijst_voorschriften", , , , , acDialog
er opent zich een lijst... uit deze lijst klik ik de lijn die ik wens via de code :
Private Sub Cbballe_voorschriften_Click()
DoCmd.OpenForm "Weergave voorschrift", , , , , acDialog
End Sub
Het formulier met de lijst blijft open staan
bij het openen van het formulier "weergave voorschrift" schrijf ik:
If Forms.[weergave patiënt].[Voorschrift_aanmaken] = "Neen" Then
Me.RecordSource = "SELECT VOORSCHR.* FROM VOORSCHR WHERE VOORSCHR.identif = " & [Forms]![lijst_voorschriften]![Cbballe_voorschriften].Column(0)
Me.NAAM = Forms.lijst_patienten.naamlijst.Column(1)
Set f = Forms![weergave voorschrift]
End if
op de lijn: If Forms.[Startform].[Voorschrift_aanmaken] = "Neen" Then
krijg ik een foutmelding:
Fout 438 tijdens uitvoering
Deze eigenschap of methode wordt niet ondersteund door dit object.
Ik weet zeker dat ik op andere plaatsen in het project gelijkaardige dingen doe (gegevens uit andere formulieren halen) en waarbij het wel werkt.
Waarom hier niet?
PS
Als ik nu via Ctrl-G bvb vraag:
Forms.[Startform].[kodelang]
(wat een veld is op het formulier)
krijg ik dezelfde foutmelding
het formulier staat op dit moment nog open
Bedankt
JP