VB code not working

[cwwaicw311]

inTable = "INSERT INTO TransactionTable (Date, Quantity, Remark, ItemID, PartID) VALUES("
inTable = inTable & "#" & Me.Date & "# , " & Me.Quantity & " , " & Me.Problem & " , " & Me.ItemType & " , " & Me.PartNumber & " );"
DoCmd.SetWarnings False
DoCmd.RunSQL inTable
DoCmd.SetWarnings True

When i execute this code it say error in INSERT INTO statement... Can anyone help me solve it...?? Thank...

[maximus]

I have assumed that
Quantity=Number
ItemID=Number
PartID=Number

inTable="INSERT INTO TransactionTable (Date, Quantity, Remark, ItemID, PartID) Values("
inTable=inTable & "#" & Me.date & "#," & Me.Quantity & ",'" & Me.Problem & "'," & Me.Itemtype & "," & Me.PartNumber & ");"

The problems in the code are highlighted in red.

nTable = "INSERT INTO TransactionTable (Date, Quantity, Remark, ItemID, PartID) VALUES("
inTable = inTable & "#" & Me.Date & "# , " & Me.Quantity & " , " & Me.Problem & " , " & Me.ItemType & " , " & Me.PartNumber & " );"



Remember if you take values from controls like textboxes and comboboxes and the values are strings then they have to be enclosed in ''

e.g. "'" & Me.Text1 & "'"

Dates "#" & Me.Text1 & "#"

Mark the the thread if this solves your problem.

[maximus]

is your problem solved if yes please mark this thread solved.

[cwwaicw311]

Hi,

Currently doing a system almost as the same as the last one but without all those calculation. However, there are 2 problem i cant solve in this new system which is running smoothly on the old system. I follow the code but it still not working.

1. Is the requery part of the machine but this time is part number. Whereby different Item have different part number.
2. The save button. I tried to enclose with the specific symbol but still cant do it. N I cant save any transaction.

I have attached the database on this thread. Thank...

[maximus]

can you specify the problem is in which form.

[cwwaicw311]

TPMSnSEDONA

[maximus]

I am attaching the mdb just check if the problem is resolved.

[cwwaicw311]

Hi,

The problem is solved only if the item is choose by the user at the Item Type column. I wanted it to be like my last system. Whereby, when the item is choose from the main menu, the form is open then the item type would automatically prompt out the item which the user choose from the main menu.
I manage to do that, but the requery is not working as the partNumber column do not show anything.

[cwwaicw311]

Hi,

I have solved the problem regarding the requery. Could you help me solve the problem on the INSERT INTO statement. I tried but i cant manage to do it because I do not want my column to have control source coz all item will be automatically enter into the table without even need to save. Hence, that would cause error. So it is best that i have a button with the INSERT INTO statement with it. So that when click on the button the transaction would oni be insert into the table

[cwwaicw311]

Hi,

I try myself on the INSERT INTO statement. But still got some issue on it.

Private Sub Done_Click()
Dim inTable As String
inTable = "INSERT INTO TransactionTable (Date,Quantity,Remark,PartID,ItemID) VALUES ("
inTable = inTable & " #" & Me.Date & "#, " & Me.Quantity & "," & " '" & Me.Remark & "', " & Me.PartNumber & ", " & Me.ItemType & ");"
DoCmd.SetWarnings False
DoCmd.RunSQL inTable
DoCmd.SetWarnings True
End Sub

I not sure wat is the problem. I also add in the symbol for date and combo box data.

[maximus]

inTable = "INSERT INTO TransactionTable (Date,Quantity,Remark,PartID,ItemID) VALUES ("
inTable = inTable & "#" & Me.Date & "#," & Me.Quantity & "," & "'" & Me.Remark & "'," & Me.PartNumber & "," & Me.ItemType & ");"

try this

[cwwaicw311]

hi,

the same problem still exist with your example. I have attached my database if u need to see what is the problem.

Thank...

[maximus]

Changed the code used recordset to insert data into the table. attaching the database for your reference.


Private Sub Done_Click()
Set rs = CurrentDb.OpenRecordset("TransactionTable")
rs.AddNew
rs!Date = Me.Date
rs!Quantity = Me.Quantity
rs!Remark = Me.Problem
rs!PartID = Me.PartNumber
rs!ItemID = Me.ItemType
rs.Update
rs.Close
Set rs = Nothing
End Sub

[maximus]

is it working now?????

[cwwaicw311]

yup... it is working now... Thank...