I have a form and subform for an Invoice entry. The main form has customer information and the sub form has item details
In the subform I need to enter the Header ID of the order which is pending for this customer (ConsigneeCode) specified in the header of this form. I fetch this data from a query - see screenshot 1, The criteria is ConsigneeCode entered in the header form.
I am not getting this Header ConsigneeCode to requery the ID used in the sub form! Therefore the data I get is of the first record. The Afterupdate codes are as below
How do I requery this. See screenshot no 2 for additional information where it shows the mismatch in names of customers. The drop down data is of the first record of the header.
Private Sub ConsigneeCode_AfterUpdate()
[Form]![InvDtlsfrm]![SOHdrID].Requery
Me.ConsigName = Me.ConsigneeCode.Column(1)
Me.Currency = Me.ConsigneeCode.Column(3)
[Form]![InvDtlsfrm]![SOHdrID] = ""
[Form]![InvDtlsfrm]![SONo] = ""
[Form]![InvDtlsfrm]![ItemCode] = ""
[Form]![InvDtlsfrm]![ItemName] = ""
[Form]![InvDtlsfrm]![SORate] = ""
End Sub
Private Sub DebtorCode_AfterUpdate()
ConsigneeCode.Requery
Me.DebtorName = Me.DebtorCode.Column(1)
ConsigneeCode = ""
ConsigName = ""
End Sub
Private Sub MewarUnit_AfterUpdate()
DebtorCode.Requery
DebtorCode = ""
DebtorName = ""
ConsigneeCode = ""
ConsigName = ""
In the subform I need to enter the Header ID of the order which is pending for this customer (ConsigneeCode) specified in the header of this form. I fetch this data from a query - see screenshot 1, The criteria is ConsigneeCode entered in the header form.
I am not getting this Header ConsigneeCode to requery the ID used in the sub form! Therefore the data I get is of the first record. The Afterupdate codes are as below
How do I requery this. See screenshot no 2 for additional information where it shows the mismatch in names of customers. The drop down data is of the first record of the header.
Private Sub ConsigneeCode_AfterUpdate()
[Form]![InvDtlsfrm]![SOHdrID].Requery
Me.ConsigName = Me.ConsigneeCode.Column(1)
Me.Currency = Me.ConsigneeCode.Column(3)
[Form]![InvDtlsfrm]![SOHdrID] = ""
[Form]![InvDtlsfrm]![SONo] = ""
[Form]![InvDtlsfrm]![ItemCode] = ""
[Form]![InvDtlsfrm]![ItemName] = ""
[Form]![InvDtlsfrm]![SORate] = ""
End Sub
Private Sub DebtorCode_AfterUpdate()
ConsigneeCode.Requery
Me.DebtorName = Me.DebtorCode.Column(1)
ConsigneeCode = ""
ConsigName = ""
End Sub
Private Sub MewarUnit_AfterUpdate()
DebtorCode.Requery
DebtorCode = ""
DebtorName = ""
ConsigneeCode = ""
ConsigName = ""