aaaaaaaaaaagggggggggghhhhhhhhhh
ok so this is how the code looks now
Private Sub Command30_Click()
'declare variables for holding data
Dim RoomName, ItemDes, ItemReplacementCost As String
Dim Amount As Integer
Dim ItemRef As Integer
Dim strSQLApp As String
Dim strSQLDel As Integer
'load variables from data on form
ItemRef = Me.ItemReference
RoomName = Me.RoomName
ItemDes = Me.ItemDescription
ReplacementCost = Me.ItemReplacementCost
Amount = Me.Amount
strSQLApp = "INSERT INTO Store (ItemReference, RoomName, Amount, ItemDescription, ItemReplacementCost) VALUES ('" & ItemRef & "', '" & RoomName & "','" & Amount & "', '" & ItemDes & "', '" & ReplacementCost & "')"
strSQLDel = "DELETE * FROM Item WHERE ItemReference = '" & ItemRef & "'"
DoCmd.RunSQL strSQLApp
DoCmd.RunSQL strSQLDel
MsgBox "The Record has been moved"
End Sub
for this line i get a type mismatch error = strSQLDel = "DELETE * FROM Item WHERE ItemReference = '" & ItemRef & "'"
if i change itemRef to ItemReference - i still get the same error!!!