Auto Insert a field into the current record ACCESS 2007 VBA
Posted on 2013-01-10
I'm using this function which tells you the machine name/number of user.
Function fOSMachineName() As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompName, lngLen)
fOSMachineName = ""
The function works fine, it's for ref.
Here is the issue:
I have a notes system where users can add notes to accounts.
Table Name : Sup_Notes
Field Names :
I would like to know how I could add an event which will insert the machine_number for the current record being entered?
So the user loads the form, writes a note, the date already populates from =now() in default value setting, and also the user =fosmachinename is inserted to this record only.
Any help appreciated?