Hi all,
I need same advice and help. I have form where in header of form is 4 combo box (cmbWhatYear,cmbVesselNameID, cmbOrderID ,cmbInvoiceNo).So What I need to do is this.
First I select Year Form cmbYear, then Vessel from cmbVesselName, in cmbOrderID will be only order number’s related to Vessel selected from cmbVesselName. For cmbInvoiceNo is same story like with cmbOrderID.
Here is code behind each comboBox. And row source:
cmbWhatYear :- Row Source : SELECT OrderYear.Year_Reg FROM OrderYear;
-------------------event ------------
Private Sub cmbWhatYear_AfterUpdate()
If Not IsNull(Me.cmbWhatYear) Then
Me.Requery
Me.FilterOn = False
End If
Me.cmbVesselID.Requery
Me.cmbInvoiceNo.Requery
Me.cmbOrderID.Requery
Me.cmbVesselID = Null
End Sub
------------------------event end ----------------
2.cmbVesselID : Row Source : SELECT DISTINCTROW [Vessel].[VesselID], [Vessel].[VesselName] FROM Vessel ORDER BY [Vessel].[VesselName];
--------event----------
Private Sub cmbVesselID_AfterUpdate()
If Not IsNull(Me.cmbVesselID) Then
Me.Requery
Me.FilterOn = False
End If
Me.cmbInvoiceNo.Requery
Me.cmbOrderID.Requery
Me.cmbInvoiceNo = Null
End Sub
------------------------even end ----------------
3. cmbOrderID : Row Source : SELECT DISTINCTROW Order.OrderID, Order.OrderNo, Val([order].[Order]) AS Expr1, Order.CategoryID FROM [Order] WHERE (((Order.VesselID)=[Forms]![Order].[cmbVesselID]) AND ((Order.YearOfReg)=[Forms]![Order].[cmbWhatYear])) ORDER BY Order.CategoryID, Val([order].[Order]);
----------------- event -------------------
Private Sub cmbOrderID_AfterUpdate()
If Not IsNull(Me.cmbOrderID) Then
Me.RecordsetClone.FindFirst "OrderID=" & Me.cmbOrderID.Column(0)
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
Me.cmbOrderID = Null
End Sub
-------------- event end -------------
Here is Record Source of Form.
SELECT Order.* FROM [Order] WHERE (((Order.YearOfReg)=[FORMS]![ORDER]![cmbWhatYear]) AND ((Order.VesselID)=[FORMS]![ORDER]![cmbVesselID])) ORDER BY Order.CategoryID, Val([Order]);
Now I need Advice. I’m using this form for everything (Search, Add or Edit records) It will be better to create separate form for search records, edit and add records?
or how to create form for add and Edit Records?
Problems :
Sometime when I select Vessel and I circle try records with Button “next” or “previous” and I go back to cmbWhatYear and select again year . combobox is empty??? Same thing happened with cmbVesselID I select vessel from list but combobox stay empty so I need to select vessel again.
Any help,
Thanks
Fule
I need same advice and help. I have form where in header of form is 4 combo box (cmbWhatYear,cmbVesselNameID, cmbOrderID ,cmbInvoiceNo).So What I need to do is this.
First I select Year Form cmbYear, then Vessel from cmbVesselName, in cmbOrderID will be only order number’s related to Vessel selected from cmbVesselName. For cmbInvoiceNo is same story like with cmbOrderID.
Here is code behind each comboBox. And row source:
cmbWhatYear :- Row Source : SELECT OrderYear.Year_Reg FROM OrderYear;
-------------------event ------------
Private Sub cmbWhatYear_AfterUpdate()
If Not IsNull(Me.cmbWhatYear) Then
Me.Requery
Me.FilterOn = False
End If
Me.cmbVesselID.Requery
Me.cmbInvoiceNo.Requery
Me.cmbOrderID.Requery
Me.cmbVesselID = Null
End Sub
------------------------event end ----------------
2.cmbVesselID : Row Source : SELECT DISTINCTROW [Vessel].[VesselID], [Vessel].[VesselName] FROM Vessel ORDER BY [Vessel].[VesselName];
--------event----------
Private Sub cmbVesselID_AfterUpdate()
If Not IsNull(Me.cmbVesselID) Then
Me.Requery
Me.FilterOn = False
End If
Me.cmbInvoiceNo.Requery
Me.cmbOrderID.Requery
Me.cmbInvoiceNo = Null
End Sub
------------------------even end ----------------
3. cmbOrderID : Row Source : SELECT DISTINCTROW Order.OrderID, Order.OrderNo, Val([order].[Order]) AS Expr1, Order.CategoryID FROM [Order] WHERE (((Order.VesselID)=[Forms]![Order].[cmbVesselID]) AND ((Order.YearOfReg)=[Forms]![Order].[cmbWhatYear])) ORDER BY Order.CategoryID, Val([order].[Order]);
----------------- event -------------------
Private Sub cmbOrderID_AfterUpdate()
If Not IsNull(Me.cmbOrderID) Then
Me.RecordsetClone.FindFirst "OrderID=" & Me.cmbOrderID.Column(0)
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
Me.cmbOrderID = Null
End Sub
-------------- event end -------------
Here is Record Source of Form.
SELECT Order.* FROM [Order] WHERE (((Order.YearOfReg)=[FORMS]![ORDER]![cmbWhatYear]) AND ((Order.VesselID)=[FORMS]![ORDER]![cmbVesselID])) ORDER BY Order.CategoryID, Val([Order]);
Now I need Advice. I’m using this form for everything (Search, Add or Edit records) It will be better to create separate form for search records, edit and add records?
or how to create form for add and Edit Records?
Problems :
Sometime when I select Vessel and I circle try records with Button “next” or “previous” and I go back to cmbWhatYear and select again year . combobox is empty??? Same thing happened with cmbVesselID I select vessel from list but combobox stay empty so I need to select vessel again.
Any help,
Thanks
Fule