probleem met vba code in access

[megarainman]

Wie wil eens naar deze code kijken of er iets niet klopt... ik begrijp er mij niet aan
Het eerste doet hij, maar na de eerste else doet hij niets meer...
____________________________________________
'Als de vinkjes ingedrukt zijn
If cboHuurprijs.Enabled = True Then
txtTotaalInstrumenten = txtWaarborg + txtHuurprijs
else

If cboHuurprijs.Enabled <> True Then
txtTotaalInstrumenten = txtWaarborg
else
If cboWaarborg.Enabled = True Then
txtTotaalInstrumenten = txtHuurprijs
Else
If cboWaarborg.Enabled = False Then
txtTotaalInstrumenten = txtWaarborg + txtHuurprijs
Else
If cboHuurpijs.Enabled = True And cboWaarborg.Enabled = True Then
txtTotaalInstrumenten = "0"
Else
If cboHuurprijs.Enabled = False And cboWaarborg.Enabled = False Then
txtTotaalInstrumenten = txtWaarborg + txtHuurprijs
End If
End If
End If
End If
End If
End If

'Het bedrag overbrengen naar het formulier inschrijvingen
txtInstrumentenverhuurInschrijving = txtTotaalInstrumenten

'Het formulier sluiten

End Sub

_____________________________________________

klik

 

[Guus2005]

Er zie vlgs mij een end if teveel in en ik stel voor dat je niet meer test op true of false maar gewoon deze waarde gebruikt in je if statement. Dus zoiets als hieronder.
Je test in regel 04 op Waarborg enabled. Vervolgens in de else tak op regel07 test je het op de else voorwaarde waar je toch al in was gekomen. Die mag er dus uit.
Ik kan me voorstellen dat je er niets van snapt. Probeer je if statements niet te diep te nesten.
Op regel 10 test je op not huurprijs enabled. Daar kom je nooit omdat je die konditie al op de eerste regel uitgesloten hebt en je zit nu in de else tak waarbij de huurprijs wel enabled is. Deze voorwaarde is dus altijd false. omdat hierachte een AND staat kom je hier dus ook al niet verder.
Sluit je if statements af voordat je aan een nieuwe begint. Succes!

Weest gegroet,
Guus

01    If not cboHuurprijs.Enabled then
02        txtTotaalInstrumenten = txtWaarborg
03    else
04        If cboWaarborg.Enabled then
05            txtTotaalInstrumenten = txtHuurprijs
06        Else
07            If not cboWaarborg.Enabled then
08                txtTotaalInstrumenten = txtWaarborg + txtHuurprijs
09            Else
10                If cboHuurpijs.Enabled And cboWaarborg.Enabled then
11                    txtTotaalInstrumenten = "0"
12                Else
13                    If not cboHuurprijs.Enabled And not cboWaarborg.Enabled
14                        txtTotaalInstrumenten = txtWaarborg + txtHuurprijs
15                    End If
16                End If
17            End If
18        End If
19    End If
20    End If

Weest gegroet,
guus

 

[megarainman]

Hallo Guus 2005

bedankt om mee te denken!
De code werkt ondertussen!! Waarvoor van harte bedankt!!!:thumb:

Ik zet hetm op opgelost!

Groeten
Megarainman