MENU
 
Home
Nieuwsbrief
GC in de media
SiteMap
 
 
Tips en Tricks
Excel
Word
Photoshop
PowerPoint
Surf Tips
Gmail
Android
iPad
Excel ClipTips
 
cursus Office 2016
Access
Excel
Outlook
PowerPoint
Word
 
cursus Office 2013
Excel
PowerPoint
Word
Nieuw in Excel 2013
Nieuw in Word 2013
Nieuw in PowerPoint 2013
 
cursus Office 2010
Access
Nieuw in Excel 2010
Excel automatiseren
Excel
OneNote
Outlook
PowerPoint
Word
 
cursus Office 2007
Access
Excel
Outlook
PowerPoint
Publisher
Visio
Word
 
cursus Office
2000-2002-2003-XP
Access
Excel
PowerPoint
Outlook
Word
 
cursus Photoshop
Animatie
CS6
CS5
CS4
CS2 - CS3
Lightroom 3
Elements 6
Mask Pro
Nik Collection
 
cursus Dreamweaver
CS3
 
cursus Illustrator
CS4
 
cursus Flash
CS4
 
cursus Fireworks
CS4
 
cursus Paint Shop Pro
X en X2
 
cursus Premiere
Elements 7-8
 
cursus Joomla
Joomla 1.5
 
Sociale Netwerk sites
Facebook
LinkedIn
Twitter
 
iPad
Apps
 
Diversen
Celtx
CSS
DropBox
Firefox 3.6
GIMP
Internet Explorer 9
LIME
Linux
OpenSUZE
PREZI
ProShow Producer
YouTube
 
cursus Google
Agenda
Analytics
Gmail
Zoeken
Picasa 3
SketchUp
Chrome
Street View
 
cursus Windows
Live Movie Maker
Windows 10 nieuw
Windows 8
Windows 7
XP
Vista
 
cursus Office '97
Word
Excel
 
 

 

Cursus Excel automatiseren go to : Index - vorige - volgende
       
Les 11 Besturingselementen (5)  
 
Formulier (4) - VB-code analyseren
Eerste lijn (A) "Private Sub cmdToevoegen_Click ()
Private betekent dat de code toehoort aan dat object, welk object? Het object cmdToevoegen. Wat we onze knop hebben genoemd. Weet je nog.
Sub betekent dat hij een subroutine moet uitvoeren. Hoe veel keer moet hij de subroutine uitvoeren?
Zoveel keer tot hij aan de laatste lijn van de code komt "End sub" (B).
Tweede lijn.
Dim iRow declareert de variable iRow als Long
Derde lijn
Dim ws declareert de variable ws als Worksheet
Vierde lijn
Set ws = Worksheet ("klanten"), geeft aan dat hij de gegevens moet wegschrijven naar het werkblad "klanten".

Vijfde lijn is in het groen, dus dit is commentaar, geen code.

In de zesde en zevende lijn (C) gaat hij naar de laatst ingevulde rij, en gaat vervolgens na de volgende rij, welke een lege cel moet zijn.
.End(xldown) : vind de laatst gebruikte cel voor een lege cel.
Offset(1, 0) : en gaat een cel naar beneden. Mocht je hebben getypt Offset(0, 1), dan verplaatst hij zich een el naar rechts.

In de volgende blokken code (D) controleert hij of er iets is ingevuld in het vak, eerst voor het vak txtNaam, dan voor het vak txtAdres, enzoverder.
Vindt hij een vak dat leeg is na het klikken van de knop cmdToevoegen, dan geeft hij een venster weer waarin wordt vermeld dat je het vak moet invullen.

De code Me. is een VBA sleutelwoord dat een formulier gebruikt om naar zichzelf te refereren.
De code Trim verwijderd spaties voor en achter een tekst

De volgende vijf lijnen code (E) plaatst de gegevens in de database, of beter gezegd in de tabel in het werkblad "klanten".

De laatste vijf lijnen (F) verwijderd de inhoud ven de cellen wanneer we de knop "Toevoegen" hebben geklikt.

En als laatste voegen we nog de code (G) om het formulier te sluiten toe aan de knop cmdSluiten.

Wanneer je iets verkeerd hebt getypt in de code, bijvoorbeeld de naam van het werkblad waar je de gegevens wil wegschrijven, dan zal VBA je hiervan op de hoogte brengen door een waarschuwingsvenster (A) te tonen, wanneer je de code uitvoert.
Sneltoets hiervoor is de F5 toets op je toetsenbord, weet je nog?
Klik je in dit venster op de knop "Foutopsporing", dan zal VBA je tonen waar deze fout staat in de code (B).
 
Voor alle misverstanden uit de weg te helpen!
VBA is niet juist hetzelfde dan VB. Ze zijn vrij gelijkend, maar VB is een code waarmee je een applicatie schrijft, terwijl VBA code is die je in samenwerking met een applicatie gebruikt. Bijvoorbeeld Excel, Word of Access.
 
Knop toevoegen om het formulier te openen
En tenslotte, ik was het bijna vergeten, moeten we nog een knop toevoegen die het formulier opent.
Selecteer hiervoor het werkblad "factuur", kies het tabblad "Ontwikkelaars", klik de knop "Invoegen" en kies een knop. Of je dit doet met een formulierbesturingselement of een ActiveX-besturingselement dat maakt niet uit, het is de VBA code die we hiervoor moeten aanpassen.
Als voorbeeld kies ik een formulierbesturingselement en teken de knop in het werkblad.
In het macro-venster dat verschijnt geef ik de macro een naam, en klik de knop "Opnemen".
In het volgende venster hoef ik geen sneltoets in te geven, want ik heb de knop.
Dus klik ik OK.

Stop onmiddellijk daarna de opname van de macro, door de knop "Opname stoppen" te klikken.
Open het Visual Basic venster, en dubbelklik de module "Module2".
Verwijder de code die de macro heeft geschreven, en typ onderstaande code in het code-venster:
Sub KlantToevoegen()
frmKlantGegevens.Show
End Sub

Ik denk dat deze nu wel duidelijk is.

Sluit het Visual Basic venster

En test de knop
 
 
 
Index - vorige - volgende

All courses now available in English:
www.swotster.com

copyright © 2012 - Swotster Ltd - Hong Kong - China