【Access小品】趣味问答十题

todaynew

-----------------------------------------------------------------------------

zhangader:查询前10条记录如下。top 10 名称 fro 品种。现在我要查询倒数100名怎么办？

todaynew:在sql的屁股后面加一句按名称倒序排序，然后结合top语句或许可以解决问题。

-----------------------------------------------------------------------------

wpg1971：怎样使用代码彻底隐藏查询,即使用"工具"→选项→也不能使其显示,再怎样显标出来?

todaynew:将其删除，写入代码。

-----------------------------------------------------------------------------

凡卓：我在查询视图中写了一个查询语句名为“Quarter Stocktaking Query”，这个语句需要引用主窗体中的Combo

Box控件的当前值（Combo Box控件位于选项卡控件中）。另外，在主窗体中有一个名为MySubForm的子窗体，将这个

MySubForm子窗体的属性SourceObject定义为这个查询。从而实现当改变这个Combo Box控件的值时，子窗体中列出符

合条件的记录。现在问题是：这个查询在视图中运行是没有问题的，但是关闭窗体再打开时这个查询时语句自动的消

失了。查询语句如下：
SELECT [Location List].Location_Code, [Location List].Area_Type, Left([Location List].Location_Code,3)

AS Aisle, [Stock Inventory].Owner, [Stock Inventory].Stock, [Stock Inventory].Supplier, [Stock

Inventory].PalletID, [Stock Inventory].OnhandQty, [Stock Inventory].Impressions
FROM [Location List] LEFT JOIN [Stock Inventory] ON [Location List].Location_Code=[Stock

Inventory].Location
WHERE ([Location List].Area_Type)=Forms!MainForm!List_AreaType
ORDER BY Left([Location List].Location_Code,3), Right([Location List].Location_Code,2), Mid([Location

List].Location_Code,4,3);

Combo Box控件更新后事件如下：
Private Sub List_AreaType_AfterUpdate()
Me.MySubForm.SourceObject = "Query.Quarter Stocktaking Query"
End Sub

todaynew:估计是太繁琐，Access同志有些不愿意了。

-----------------------------------------------------------------------------

王笑：我原来学过foxbase+属于较早的关系型数据库，时隔多年，这个foxbase+ 已经过时了，我重新学习Access，开始感觉界面比较简单，由于以前的基础较好SQL查询都熟练掌握了。但是我发现Access表中做多种查询只能一个类型一个类型的查询，非常不方便，不能一次性连续实现。我就继续向下学习，发现如果Access的编程又要使用了VBA，耐者性子学习VBA，发现要学习数据库引擎借口。我今天在想Access到底能不能编程？为什么要绕这么多圈子，就没有自己的程序语言吗？我理解对不？有谁能给我讲讲？

todaynew:南美足球与欧洲足球各有利弊，能在世界杯赢球者为王。软件比较也概莫如此，呵呵。;P

-----------------------------------------------------------------------------

卡里就：我在ACCESS里利用VBA制作了一些功能，但是不想让别人看到我的源码，就设置隐藏了，但是那个密码我忘记了，该怎么办？

todaynew:找110或开锁公司应该可以。;P

-----------------------------------------------------------------------------

随风：这个属性的设置值太长。什么原因，如何解决？

todaynew:不妨用菜刀切成数段。

随风：新手，不明白，可否详细说一下。

todaynew:只是想到抽刀断水，别无他意。另外想问一下是个什么属性来着？;P

-----------------------------------------------------------------------------

嘟嘟：我的数据库打不开，提示：不可识别的数据库格式。请教有什么方法解决？

todaynew:踹两脚，应可开。;P

-----------------------------------------------------------------------------

李和：比如，对党委文件和政府文件进行登记，其标题、文件号、登记人、时间、来文单位等基本数据是相同的，所以录入窗体是一样的。但要求党委和政府文件分别建数据表，因此，可有办法用access的选项按钮,实现选择录入数据到到党委文件或政府文件数据表中，从而实现文件登记管理，添加记录？

todaynew:没必要分成两个表，只需在一个表中加分类字段即可。这样数据管理方便很多。比如：党委科学发展观了，要看看政府是否也科学发展观了，可以在一张表中很快搜索出来。否则党委科学了，政府没发展，不好搞。;P

-----------------------------------------------------------------------------

zhou：找不到在宏的表达式或Visule Basic 代码中应用的“进销存管理”窗体，大家帮帮，感激不尽 。

todaynew:帮你喊一嗓子：进货单管理窗体，你妈妈喊你回家吃饭！;P

-----------------------------------------------------------------------------

yinyt:请教这句代码的含义Private Sub Form_Open(Cancel As Integer)。窗体打开事件中，为什么还要加Cancel As Integer？这句什么意思？什么作用？

todaynew:当你打开窗户之前有时候不知道会看见什么。比如你推开窗户的一刹那，一对情侣正在卿卿我我，你这时怎么办呢？于是你便可借助Cancel参数，终止你打开窗体的行动，让爱情不受打扰的在窗户后面继续进行。;P

-----------------------------------------------------------------------------

asklove

大哥，解答的够幽默

ui

有意思!!

t小宝

妙趣横生呀！

咱家是猫

别人本来就一头迷惑,渴望你能指点迷津,不想却被你调侃了一翻.现在你还把这些聊天记录帖出来,你自己觉得有趣,别人心里还不知是什么滋味呢.
说得有点重了,请todaynew兄见谅.

t小宝

猫是认真的，仔细看一下，确实有些问题等于没有解答

todaynew

谢谢猫版批评，呵呵。
这部分回复中所涉及的版友大多都曾经给过其他问题的认真回复，应该算是比较熟悉的朋友。我想也许不会介意吧。

todaynew

t版：没有解答的问题多半是无法解答的问题，呵呵。

LJB

你们在这里"版"来"版"去,叫我们咋跟贴呢?

zhouggang

不错