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?
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