VB code not working

[cwwaicw311]

Hi,



There is a problem, I cant seem to find out wat is causing it. I hope you could help me locate the problem.

Each Item type have their own part number. In this database there are 3 type of item as you would notice in the database.

In order to notice the problem:
1. For example, u choose Lead Frame TPMS and another form open. Then u try to choose the Part Number, there would be 2 part number, if u try to choose the second part number you could notice an error as i would oni display the first part number oni.
2. When u save the 1. transaction. Then go to the transaction table then u would see that the part number in the transaction table would be different from wat u choose in the form.

I just do not understand wat is happening as the relationship is correct and the requery part is correct as they still show the correct part number for each of the item.

Attached is the latest database after editing it with your coding for the saving.

[maximus]

The problem was that the PartNumber is Column No 2 in the query of the RowSource of PartNumber Combo while the combobox is bound to Column1. Thus the problem was occuring. More over the PartNumber Field Type has to be set to Number in all the tables.



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 = PartNumber.Column(2)
rs!ItemID = Me.ItemType
rs!OperatorID = Me.OperatorID
rs.Update
rs.Close
Set rs = Nothing

MsgBox "Transaction Saved", vbInformation
DoCmd.Close
End Sub

attaching mdb for reference. If this solves your problem let me know.

[cwwaicw311]

Hi,

The problem is solved. Thank