Select orders.RequiredDate, orders.ShippedDate, orders.Freight, orders.ShipName, orders.ShipAddress, orders.OrderDate FROM orders Where orders.OrderDate Between [Forms]![DateFilter]![DateFrom] And [Forms]![DateFilter]![DateTo]));
Select Customers.CustomerID, Customers.CustomerName SUM (Case When orders.Orderdate BETWEEN '01-Jan-1990' AND '31-Dec-1996' Then [UnitPrice]*[Quantity] Else 0 End) as 1997) FROM Customers INNER JOIN orders ON CustomerID=Orders.CustomerID
隱藏對象 所有的隱藏對象在數(shù)據(jù)庫升級過程中都被忽略。對此,你最好的處理方法是使用程序?qū)ο蟮腉etHiddenAttribute屬性檢查對象。例如,以下代碼使用這一方法決定對象是否被隱藏。 Dim IsHidden As Boolean If Application.GetHiddenAttribute(objtype, objname) Then IsHidden = True End If