Issue met dim en vervolg met afhankelijkheid met if

Status
Niet open voor verdere reacties.
JKlerks

JKlerks

Gebruiker
Lid geworden
15 aug 2017
Berichten
54
Goedemiddag allemaal,

ik heb een uitdaging waar ik even vastloop. Waarschijnlijk door een verkeerde combinatie, maar anyways.

Bijgaand de code:

Code: 
Dim PName As Variant
Dim PSD As Variant
Dim PTO As Variant
Dim PFHONE As Integer
Dim PFHTWO As Integer
Dim PFHTHREE As Integer
Dim PERCONE As Variant
Dim PERCTWO As Variant
Dim PERCTHREE As Variant

Z_AA_ALL_VISIBLE

PNumber = InputBox("Please insert Project Number")
PName = InputBox("Please insert Project Name")
PSD = InputBox("Please insert Start date in format DD-MM-YY")
PTO = InputBox("Please insert EXPECTED turnover SALES for project (in full EUR)")
PFHONE = InputBox("Please insert first Scale amount (if only one or flat fee insert 999999)")
PERCONE = InputBox("Please insert first Scale %")

[COLOR=#ff0000]    If Not PFHONE Is "999999" Then[/COLOR]
    PFHTWO = InputBox("Please insert second Scale amount (if last insert 999999)")
    PERCTWO = InputBox("Please insert second Scale %")
    End If
[COLOR=#ff0000]    If Not PFHTWO.Value Is 999999 Then[/COLOR]
    PFHTHREE = "999999"
    PERCTHREE = InputBox("Please insert last Scale %")
    End If

en nog wat aanvullende code

Doel is om afhankelijkheid te creëren in de ingave structuur en gebruikers niet alle velden te tonen als die er niet zijn.
Een project kan op basis van een flat fee worden berekend of een staffel. De waarden worden ingegeven door een gebruiker.

Het werkte prima zonder de afhankelijkheden, maar ik zoek dus de juiste vastlegging van de rode regels. NB ik heb ook geprobeerd met deze waarden dim as variant.

Alvast dank!!

Gr Joshua
 
HTML: 
Dim PName As Variant
Dim PSD As Variant
Dim PTO As Variant
Dim PFHONE As Integer
Dim PFHTWO As Integer
Dim PFHTHREE As Integer
Dim PERCONE As Variant
Dim PERCTWO As Variant
Dim PERCTHREE As Variant

Z_AA_ALL_VISIBLE

PNumber = InputBox("Please insert Project Number")
PName = InputBox("Please insert Project Name")
PSD = InputBox("Please insert Start date in format DD-MM-YY")
PTO = InputBox("Please insert EXPECTED turnover SALES for project (in full EUR)")
PFHONE = InputBox("Please insert first Scale amount (if only one or flat fee insert 999999)")
PERCONE = InputBox("Please insert first Scale %")

    If PFHONE <> "999999" Then
    PFHTWO = InputBox("Please insert second Scale amount (if last insert 999999)")
    PERCTWO = InputBox("Please insert second Scale %")
    End If
    If PFHTWO.Value <> 999999 Then
    PFHTHREE = "999999"
    PERCTHREE = InputBox("Please insert last Scale %")
    End If

en nog wat aanvullende code

Test deze eens
 
Waaarom gebruik je geen userform?

Kijk eens wat er gebeurt als je al die dim's weghaalt (en option explicit dan natuurlijk ook).
 
Dank @jeanpaul28 en @snb!

De optie van jeanpaul werkt, mits alles dim as variant is ingegeven.

Ik ben onbekend met userforms en als ik die tegenkom in werk van anderen, ben ik er niet vaak kapot van. Mogelijk ligt dat aan hun ervaring, maar anyways.

Ik kan verder en ben jullie bijzonder erkentelijk!
 
Alles dimensioneren als variant is equivalent aan niet declareren.

Zie de bijlage voor een UF-suggestie van jouw opzet.

Het is handig op de goede plaats te kijken: https://www.snb-vba.eu/
 

Bijlagen

  • __UFvragen.xlsb
    15,3 KB · Weergaven: 20
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan