Algemene informatie over VBAVisual Basic routinesMicrosoft Visual Basic for Applications, kortweg VBA, vindt u tegenwoordig vrijwel in alle courante programmatuur. Denk aan de onderdelen van Microsoft Office (Word, Excel, Outlook, PowerPoint), maar ook aan CAD-programma's als AutoCAD, GstarCAD, Microstation, Visio (opvallend niet: SketchUp). Al sinds 1995 ontwikkelt IDEOMA kleine hulppprogramma's in VBA en hieronder vindt u een overzicht van de meest verkoopbare routines. U hoeft het wiel dus niet opnieuw uit te vinden!Visual Basic routines ontwikkeld door IDEOMAAlgemeenBeginhoofdlettersZet een tekst met meerdere woorden correct om in woorden met beginhoofdletters, gericht op namen, bijv. "jan de groot" of "JAN DE GROOT" , wordt netjes "Jan de Groot" . Deze functie werkt bijv. ook heel goed voor straatnamen. Tussenvoegsels worden daarbij herkend en komen, zoals het hoort, in kleine letters. Beginhoofdletters(Regel) As String Beheren Zet de vakken en knoppen van een formulier op slot, voor zover bij de eigenschappen extra info "Beheerders" is ingevuld. Te gebruiken bij de gebeurtenis Laden als "=Beheren( Beheren(Frm As String, JaNee As Boolean) BestandBladeren Opent een mappen en bestandenlijst in een Access-formulier om zo naar een bestand te bladeren en vult het gekozen bestand in in een op te geven tekstvak. Als dit tekstvak al een bestandsnaam bevat, dan wordt dat als default meegenomen. Dit is een variant van de onderstaande functie, waar soms problemen mee zijn vanwege ontbrekende of niet geregistreerde dll's. BestandBladeren(Veldnaam As String, Optional Joker As String, Optional NoStripFilNam As Boolean, Optional GeefMap As Boolean) BestandBladerenCommonDia Gebruikt het ActiveX-element CommonDialog1 om naar een bestand te bladeren en vult deze in in een op te geven tekstvak. Als dit tekstvak al een bestandsnaam bevat, dan wordt dat als default meegenomen. BestandBladerenCommonDia(Veldnaam As String) Bool Geeft Onwaar als het argument onwaar is, maar ook als het geen waarde (Null) heeft. Handig in if-regels om te testen of iets een waarde heeft of niet. Bool(X) As Boolean CheckBestand Verplaatst een bestand (evt. zonder pad) naar een op te geven map, verandert evt. de bestandsnaam en controleert of deze bestanden bestaan. Waarschuwt als het bronbestand ontbreekt of het doelbestand wordt overschreven. Als het bronbestand geen pad heeft, dan wordt deze gezocht in resp. "c:\mijn documenten\", "c:\mijn documenten\Mijn afbeeldingen\", HomePad & "\mijn documenten\" en HomePad & "\mijn documenten\Mijn afbeeldingen\". Als het bronbestand bestaat dan wordt deze verplaatst naar het doelbestand en als het doelbestand al bestaat, dan wordt het bronbestand na bevestiging over het doelbestand heengezet . Als bron- en doelbestand beiden niet bestaan en er is een derde bestand opgegeven en dit bestaat wel, dan wordt het derde bestand gewijzigd in het doelbestand. Handig om bestanden op te halen uit een invoermap. CheckBestand(BronBst As String, DoelBst As String, Optional Bst3) As Boolean CheckConnect Controleert of een tabel gekoppeld kan worden of niet. Dit kan een Access-tabel zijn, maar ook een ODBC-koppeling naar bijv. een Oracle-tabel. CheckConnect(ConnectString As String) As Boolean CheckDir Geeft aan of een pad een bestaand pad is. Dat kan een bestand of een map zijn. Bij een map kan optioneel worden getest of er bestanden in zitten. CheckDir(Pad As String, Optional LegeDirectory As Boolean) As Boolean ... ... |
Nieuws rond VBA Deze pagina is momenteel in bewerking. We bischikken over meer dan honderd verkoopbare VBA-routines, dus het documenteren daarvan is een hele klus. Druk dus af en toe op F5 (verversen). Het laatste nieuws vindt u via het hoofdmenu |
|
Open uw PDF!
Open uw DWG!
