几个关于Access的Form问题

Question

问题1和2的代码应该分别写在哪个事件(Event)里？

Answer 1

1:在combo的change事件里写代码，类似以下：
if combo1.value="value1" then
   Me.t_type_子窗体.Form.OrderBy = "date desc"
   Me.t_type_子窗体.Form.OrderByOn = True
else
   Me.t_type_子窗体.Form.OrderBy = "name asc"
   Me.t_type_子窗体.Form.OrderByOn = True
end if2：与上面一样，代码用me.textbox1.Enabled=false3:在窗体设计器里，将窗体的属性“浏览按钮”改为FALSE。

Answer 2

Me.t_type_子窗体.Form.OrderBy = "date desc"Me指的是什么？我的子窗体叫sub_deliveries子窗体前一定要加t_type_吗？

Answer 3

问题1, 2已解决，icevi(按钮工厂)得100分剩下的只要回答3, 4谢谢

Answer 4

在窗体属性-格式-第六行（ACCESS 2000）

Answer 5

4：
SELECT S.SupplierName 
FROM tblSupplier AS S 
inner join tblOrder t2 on t2.supplierid=s.supplierid
inner join (SELECT OI.OrderID
FROM tblOrderItem AS OI 
GROUP BY OI.OrderID,oi.received
HAVING SUM (OI.Requested) = OI.Received)) t1 ont t2.orderid=t1.orderidUNION SELECT tblSupplier.SupplierName 
FROM tblSupplier left outer join tblorder on tblSupplier.SupplierID =tblOrder.SupplierID 
WHERE  tblOrder.SupplierID is null

Answer 6

SELECT S.SupplierName 
FROM tblSupplier AS S 
inner join tblOrder on tblOrder.SupplierID=S.SupplierID(
inner join (SELECT OI.OrderID
FROM tblOrderItem AS OI 
GROUP BY OI.OrderID,OI.Received
HAVING SUM(OI.Requested) = OI.Received))  t1 on tblOrder.orderid=t1.orderidUNION SELECT tblSupplier.SupplierName 
FROM tblSupplier left outer join tblorder on tblSupplier.SupplierID =tblOrder.SupplierID 
WHERE  tblOrder.SupplierID is null;========================
有报错，他说Syntx error . in query expression ".

Answer 7

我把数据库文件上传了，可以在里面试一下www11.brinkster.com/karlcheng/a1.zip再次感谢！

Answer 8

呵呵，你把问题发给icevi(按钮工厂) ，应该能搞定！

Answer 9

看过了，这样写吧：
SELECT tblSupplier.SupplierName
FROM (tblSupplier INNER JOIN tblOrder ON tblSupplier.SupplierID = tblOrder.SupplierID) 
INNER JOIN 
(
SELECT OI.OrderID
FROM tblOrderItem AS OI
GROUP BY OI.OrderID, OI.Received
HAVING (((Sum(OI.Requested))=[OI].[Received]))
) aaa ON tblOrder.OrderID = aaa.OrderID
unionSELECT tblSupplier.SupplierName 
FROM tblSupplier left outer join tblorder on tblSupplier.SupplierID =tblOrder.SupplierID 
WHERE  tblOrder.SupplierID is null

Answer 10

icevi(按钮工厂)你能不能告诉我你的email地址，我把一些要求发给你行不行，请帮帮忙，是关于Form VBA的

Answer 11

你的MDB文件我看过了，还有什么问题吗？
总不成你把你的要求写给我，我来给你做吧？我已经回答得很清楚了。自己试试不行吗？VBA也不是很难。有什么问题，上这里问或是看VBA for ACCESS的帮助也可以找到。

Answer 12

www11.brinkster.com/karlcheng/form.zip这个是我目前所做的Form，那个搜索功能我实在是不知道应该怎么做，我没有学过VBA，可以给点思路或Code吗？