Niquet.nl

Category Archives: VBA – Access

Lijst bijwerken op basis van knop

Met een knop een listbox (formulier control) vullen met waarden op basis van een SQL query gefilterd op een waarde in een tekstveld elders in het formulier. Datumveld genaamd “BetaalDatum” Lijst control genaamd “lstCred” Lijst moet gevuld worden met alle betaalde crediteuren op de datum ingevuld in veld ‘BetaalDatum’. Hiervoor heb ik een private sub […]

Tonen lijst met alle aanwezige drives (Filesystemobject)

Met de volgende code genereer je een berichtenvenster met alle drives: Sub drives() Dim fso As FileSystemObject Dim driveColl As drives Dim drive As drive txtDrives = “” Set fso = New FileSystemObject Set driveColl = fso.drives For Each drive In driveColl txtDrives = txtDrives & “Drive Letter: ” & drive.DriveLetter ‘& vbCrLf If drive.IsReady […]

Inlezen handtekening in (Outlook)mail

Als je een Outlook-mailitem aanmaakt op een account waar een default handtekening is ingesteld dan kan je door het inrichten van de mailitem deze handtekening opnemen door de olMailItem.HTMLbody te vullen door de evt gegenereerde bodytekst + olMailItem.HTMLbody. Maar je kunt de handtekening ook inlezen door gebruik te maken van het inlezen van de html – […]

Relink gelinkte tabellen in Access

Als je een Access database gebruikt op meerdere PC’s en deze wordt gesynchroniseerd met Onedrive, dan kan het zijn dat een gekoppelde bestand op een ander pad staat. Dan werkt onderstaande code om te relinken: Public Function reLinkTables() As Boolean On Error GoTo ErrorRoutine Dim sMyConnectString As String Dim tdf As TableDef Dim db_name As […]

Aanmaken Outlook e-mailbericht

Reserveren variabelen dim olApp as outlook.Application dim olMail as Outlook.Mailitem Initiëren Outlook set olApp = New Outlook.Application set olNs = olApp.GetNamespace(“MAPI”) set olMail = olApp.CreateItem(olMailItem) Of: set olMail = Application.CreateItem(olMailItem) set olNs = Application.GetNamespace(“MAPI”) E-mailbericht vullen With olmail .SendUsingAccount = olApp.Session.Accounts.Item(x) .Display .subject = “Onderwerp” .HTMLbody = html tekst & .HTMLbody End with