help with code test

[whojstall11]

Private Sub cmdUpdate_Click()
	DoCmd.RunSQL "UPDATE [Hardware Asset]" & _
	" SET [Hardware Asset].[OS] = """ & Me.[OS] & _
	""" WHERE [Hardware Asset].[AssetNumber] = """ & Forms![Hardware Asset Update Form]![AssetNumber] & """"

End Sub

 

[spikepl]

Sudoku is more fun than guessing what you want

What I mean is that we are good, but we are not mind readers.

 

[boblarson]

Spike is correct. Post an actual question along with your code. What do you need help with?

Now, that being said, I see a couple of things how I would write it differently.

My version:

Private Sub cmdUpdate_Click() 
    Dim db As DAO.Database
    Dim strSQL As String

   Set Db = CurrentDb

   strSQL = "UPDATE [Hardware Asset]" & _ 
    " SET [Hardware Asset].[OS] = " & Chr(34) & Me.[OS] & Chr(34) & _ 
    " WHERE [Hardware Asset].[AssetNumber] = " & Chr(34) & Forms["Hardware Asset Update Form").AssetNumber & Chr(34) 
    db.Execute strSQL, dbFailOnError
End Sub

And if your AssetNumber is a Number and not text, then:

Private Sub cmdUpdate_Click() 
    Dim db As DAO.Database
    Dim strSQL As String

   Set Db = CurrentDb

   strSQL = "UPDATE [Hardware Asset]" & _ 
    " SET [Hardware Asset].[OS] = " & Chr(34) & Me.[OS] & Chr(34) & _ 
    " WHERE [Hardware Asset].[AssetNumber] = " & Forms("Hardware Asset Update Form").AssetNumber  
    db.Execute strSQL, dbFailOnError
End Sub

 

[whojstall11]

IM so sorry about that I was trying see where my co workers code was lined up at. We were trying to figure out how to set more records to update. All the quotations were confusing me.