• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

controleren of de zichtbare textboxen en comboboxen zijn ingevuld

Status
Niet open voor verdere reacties.
vraagje .

end sub betekend dat de sub controle zal eindigen ,maar gaat hij dan niet door met de private sub commandbutton10 ?????
 
ik zie nergens in de code dat je die aanroept, en na 'end sub' gebeurt er niets meer.
 
Code:
Private Sub CommandButton10_Click()
[COLOR="#FF0000"]Controle[/COLOR]
'data opslaan bij aanvraag formulier
    Sheets("aanvraag formulier").Select
    beveiliginguit
Range("C10").Value = UserForm1.TextBox1.Value
Range("C12").Value = UserForm1.TextBox2.Value
Range("C16").Value = UserForm1.TextBox10.Value
Range("C18").Value = UserForm1.TextBox3.Value
Range("C20").Value = UserForm1.TextBox5.Value
Range("C22").Value = UserForm1.TextBox4.Value
Range("C24").Value = UserForm1.TextBox6.Value
Range("C26").Value = UserForm1.TextBox7.Value
Range("C28").Value = UserForm1.TextBox11.Value

de eerste regel bij private sub commandbutton10 , daar roep ik de sub controle () aan
 
Zet een onderbrekingspunt met F9 in de code, en loop de code af met F8.
Je ziet vanzelf wat er gebeurt na 'Exit sub'.
 
getest en hij sluit de sub controle() netjes af en gaat dan vrolijk door dus met de rest van de code die in private sub commandbutton10 staat
terwijl wij graag dan ook private sub commandbutton10 afsluiten
 
Dan zet je boven 'exit sub' een Boolean.

Onder 'Controle' kijk je met een 'If' statement of die 'True of False' is.

Code:
msgbox "bla bla"
boole = true
exit sub

Code:
Controle
if boole = false then
rest van de code
end if
end sub
 
Het kan ook met VBA:

Code:
for j=10 to 28 step 2
  Sheets("aanvraag formulier").cells(j,3)=Me("Textbox" & choose((j-8)\2,1,2,10,3,5,4,6,7,11)).Text
next

Hou je verre van iedere vorm beveiliging totdat het hele VBA-projekt klaar is.
Als je de tekstvakken slimmere namen geeft kan de code ook veel eenvoudiger
 
SNB
dat is slim gevonden, ga ik eens verder uitvogelen.

HSV
de code met boole er in gezet maar als de sub controle klaar is gaat hij nog steeds verder met de code die onder private sub commandbutton10 staat

wil jij of jullie nog eens kijken aub
 
Ik ben niet zo intelligent als die VVD politicus die je iCloud kan kraken om naar je bestand te kijken.
 
beetje jammer deze reaktie HSV, op zich heb ik je hoog zitten en veel van je geleerd in het verleden, maar dat terzijde

reeds eerder heb ik geschreven dat een bestandje bijvoegen nog al wat extra werk bevat ( ivm met vertrouwelijke gegevens ) daar naast heb ik het toch goed beschreven wat we wilden?
 
Als een bestand toevoegen voor gratis hulp teveel gevraagd is, ben je hier aan het verkeerde adres.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan