How do I INSERT INTO a table a variable value

[JonHuff]

Here is my code. I am trying to INSERT INTO "Master_Tab le" field "Edited_By" the variable value of "Editor"

"Editor" is the User Name of the person logged onto that computer

Code

Option Compare Database
Option Explicit
 
      Declare Function WNetGetUser Lib "mpr.dll" _
      Alias "WNetGetUserA" (ByVal lpName As String, _
      ByVal Editor As String, lpnLength As Long) As Long
 
      Const NoError = 0 
 
Sub GetUserName()
 
     Const lpnLength As Integer = 255
 
      Dim status As Integer
      Dim lpName, Editor As String
 
       Editor = Space$(lpnLength + 1) 
       status = WNetGetUser(lpName, Editor, lpnLength)
 
      If status = NoError Then
         Editor = Left$(Editor, InStr(Editor, Chr(0)) -1)
 
         CurrentDb.Execute "INSERT INTO Master_Table " &_
              "(Edited_By) " & _
                 "VALUES ('" & Editor & "');"
 
      Else
 
         MsgBox "Unable to get the name."
         End
 
      End If
 
End Sub

[NeoPa]

And? You haven't left us with a question. Nor have you explained what happens and when with the code.

I'm sure we can help you, but we need somewhere to start.

[JonHuff]

The question was "How do I INSERT INTO a table a variable value". My code is not working.

the code provided showed I was trying to INSERT INTO table "Master_Tab le" field "Edited_By" the value of the variable "Editor". I dont know how else to say it.

[NeoPa]

Well, the obvious place to start would be with my prompting question.

What line does the code fail on?
What error message do you get if any?
If it fails on line #23 as I suspect then what is the actual SQL string passed to the execute command?

[pod]

What is this lonely "End" doing on line #30?

[JonHuff]

I figured it out. I was trying to execute the code while my form was open. The form is based off the table I was trying to write to (DUH !!!). I changed it to write to a new test table - it works fine now. Thanks for looking anyways.