Good day all.

Here is some background.

I log on a table the Computer Names of all machines which launch my application.

I would also like to delete the name of the computer when they exit the application.

To that effect on my form Form_Close has the following code:

  Dim NBuffer As String
  Dim Buffsize As Long
  Dim Wok As Long
  Dim strComputerName As String
  'Dim wrkDefault As Workspace
  Dim dbs As Database
  Dim rst As Recordset
  'Set wrkDefault = DBEngine.Workspaces(0)
  Set dbs = CurrentDb
  'Set dbs = OpenDatabase("lcdb.mdb")
  Set rst = dbs.OpenRecordset("ActiveMachines")
'---------------------------------------------------------------------------------
'------------------------- Establishes Machine Name
  Buffsize = 256
  NBuffer = Space$(Buffsize)
  Wok = api_GetComputerName(NBuffer, Buffsize)
  strComputerName = Trim$(NBuffer)
'---------------------------------------------------------------------------------
'------------------------- Deletes the Machine Name

  dbs.Execute "DELETE * From " & "ActiveMachines where MachineName = " & "strComputerName;"
  dbs.Close

But it doesn't work. It keeps telling me : "Too few parameters. Expected 1.".


Help!

Thanks.




[LGuzman]

__________________
[LGuzman]

Be careful of double and single quotes:

dbs.Execute "DELETE * FROM ActiveMachines WHERE [MachineName] = '" & strComputerName & "';"

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Greg.

Thank you very much for answering me. It seems to have helped. I still get an error but in the error message I now see the Computer Name.

Now this is the error I get when I use the line you provided me with:

Syntax error in string in query expression'[MachineName] = 'MTLACCOUNTING'.

If I remove the [] of MachineName I get the same error but without the []...

Thanks again Greg. Hope you or anyone else can help me with this one.






[LGuzman]

Read my code again on the web so you can see proper spacing and quotes. If you read this in e-mail, it'll look odd with the codes showing. Copy and paste it into your code exactly as I have it written.



Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Thanks for the prompt response. Copy and paste is what I had done. Nevertheless I repeated the excercise and copied and pasted it again. The exact error message I'm getting is:

Run-Time error '3075':

Syntax error in string in query expression '[MachineName] =
'MTLACCOUNTING'.



[LGuzman]

More info...

I clicked on Debug, and it brought me to:

dbs.Execute "DELETE * FROM ActiveMachines WHERE [MachineName] = '" & strComputerName & "';"

While checking the syntax, I placed the cursor on strComputerName and noticed that its value was "MTLACCOUNTING".

So I got currious, and put the following line right before the above mentioned line: strComputerName="MTLACCOUNTING".

When I did this, it worked. So I think the problem is the  after MTLACCOUNTING.

So the question now would be does anyone know why I get that and more important how can I get rid of it!

Thanks.



[LGuzman]

How about if you did this? Add the TRIM function to the computer name... that is:

dbs.Execute "DELETE * FROM ActiveMachines WHERE [MachineName] = '" & Trim(strComputerName) & "';"


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Same thing. I still get the "MTLACCOUNTING".

[LGuzman]

Make sure there is no space between the " and the ' in the part of the expression that looks like this:

& "';"


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Checked. No space. Same issue.

[LGuzman]