Site Search:
Sign in | Join | Help

This Blog

Syndication

Tags

No tags have been created or used yet.

Microsoft Access

Tricks and Tips for Microsoft Access

August 2007 - Posts

  • Insert statement in Access

    Set DB = DBEngine.OpenDatabase("C:\MyDir\MyDB.MDB")
    DB.Execute "INSERT INTO MyTable (MyField1, MyField2) VALUES ('abc',
    123)"
    DB.Close
    Set DB=Nothing
    End Sub

    Posted Aug 25 2007, 01:59 PM by Steve Gray with no comments

  • Get the current User

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

     Function user()

        Dim s As String
        Dim cnt As Long
        Dim dl As Long
        Dim CurUser As String
        cnt = 199
        s = String(200, 0)
        dl = GetUserName(s, cnt)
        If dl <> 0 Then
            CurUser = Left$(s, cnt - 1)
        Else
            CurUser = ""
        End If
        user = CurUser
    End Function

     

    Posted Aug 25 2007, 01:43 PM by Steve Gray with 1 comment(s)