Inloggen Geen profiel? Registreer hier.

Wordmacro koppelen aan database

Auteur Bericht
Valentijn Verbeke V-ICT-OR Lid
Posts
136
Organisaties
Gemeentebestuur Wevelgem en OCMW Wevelgem
#1 — 21/09/2007 11:49
Hoe precies kan je vanuit een Wordbestand via macro's een accessdatabase aansturen? De bedoeling is dat men een briefsjabloon krijgt waarin een aantal velden ingevuld kunnen worden. Wanneer men bvb. op een knop klikt worden de gegevens die in die velden ingevuld zijn geregistreerd in de accessdatabase. Extra moeilijkheid is dat ook de gebruikersnaam van de persoon die op de knop klikt geregistreerd zou moeten worden.
 
Posts
6
#2 — 11/12/2007 20:00
Googlen levert je dikwijls een antwoord op!

Om username op te vragen:


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function UsernameWindows() As String

Dim lngLen As Long
Dim strBuffer As String

Const dhcMaxUserName = 255

strBuffer = Space(dhcMaxUserName)
lngLen = dhcMaxUserName
If CBool(GetUserName(strBuffer, lngLen)) Then
UsernameWindows = Left$(strBuffer, lngLen - 1)
Else
UsernameWindows = ""
End If
End Function

Sub displayUsername()
Dim un As String
un = UsernameWindows()
MsgBox (un)
End Sub



Wat het ophalen van gegevens uit een db betreft vind je ook veel voorbeelden met volgende zoekwoorden:

vba word database

Mvg,
 
Rudi Schils V-ICT-OR Lid
Posts
8
Organisaties
Stadsbestuur Bilzen
#3 — 02/01/2008 13:06
Als je aan je word-document een MACRO met de naam AutoOpen toevoegd, dan voert hij dit uit bij het openen van het (word)document.
Je steekt in de MACRO wat je zelf graag wil.

mvg

Rudi


Hoe precies kan je vanuit een Wordbestand via macro's een accessdatabase aansturen? De bedoeling is dat men een briefsjabloon krijgt waarin een aantal velden ingevuld kunnen worden. Wanneer men bvb. op een knop klikt worden de gegevens die in die velden ingevuld zijn geregistreerd in de accessdatabase. Extra moeilijkheid is dat ook de gebruikersnaam van de persoon die op de knop klikt geregistreerd zou moeten worden.