Office中国论坛/Access中国论坛

标题: 请问如何在窗体中建立一个计算器啊? [打印本页]

作者: Qi-hardy    时间: 2006-1-15 22:37
标题: 请问如何在窗体中建立一个计算器啊?
我有些数字要计算后填入表。但每次都要用计算器算好后在写上去。

现在想在窗体上做个计算器,那样就可以全在电脑上计算了。请问如何做个可以添数字计算的计算器呀?

求教高手指点。如有时间做一个发给我好吗?谢谢!!!

祝贺各位好心人新年快乐![em04][em04][em04][em04][em04][em24][em24][em24]
作者: 一点通    时间: 2006-1-15 22:44
其实在窗体中很多数据都可以即时计算的,除非没有计算条件,如有的话可以在文本框内自动运算
作者: Qi-hardy    时间: 2006-1-15 23:40
因为有些计算数据不需要入表。所以没有可执行的条件。请问如何计算?


作者: 一点通    时间: 2006-1-15 23:48
可参考前两天回复网友的一个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=35574
作者: Qi-hardy    时间: 2006-1-16 00:48
在EXCEL里用的是SUM=(某数字+某数字)可以得出来一个总和的对吧。

某数字(没有入表只是在纸上看时需要计算,然后得出的总数填入表中)

小弟我对ACCESS实在不懂。人太笨没办法。下面发个自己做的简单表请帮我弄下。

我举个例子:我每天要卖掉好多货物比如说苹果(我早上卖了50,中午50,晚上50。我都记录在销售单上晚上想入电脑,我拿单子出来看。然后想算出库存。[以前都是用计算器算好后填入的[em04]]现在用电脑想直接用电脑算出答案。用EXCEL可以直接用上面的方法计算的。但ACCESS里为什么就不可以?我上面列出的三个50都是在自己的纸上没有登入表内。)  我的意思就是用什么方法能在ACCESS里直接做出库存。请你帮忙想个办法做给我看看好吗?谢谢了。[attach]15385[/attach]

作者: Qi-hardy    时间: 2006-1-16 00:52
一点通先生您上面留给我的网纸里面做的一个样本我打不开。不知道为什么。所以请你根据我自己乱做的表在做个样本给我好吗?麻烦了[em34][em34][em34]
作者: fan0217    时间: 2006-1-16 00:58
在Access中不需要把计算字段放入表中,通过查询实现。你的问题跟求余额类似,用“余额”搜索一下,论坛上有很多例子。
作者: Qi-hardy    时间: 2006-1-16 01:11
高手大侠。没办法你体会不到我门这些苯蛋的感触!

有实例我可能才会看懂。老烦各位高手做个表或窗体的样子给我看看好吗?求教。急急急!

真是不好意思!
作者: fan0217    时间: 2006-1-16 01:35
[attach]15386[/attach]
参考这个例子
作者: ly64745242    时间: 2006-1-16 01:44
标题: 看看了
你这样做的数据库好象不会给你带来什么方便的。数据库做好了,会给你的工作带来非常高的效率。[attach]15387[/attach]

作者: sgrshh29    时间: 2006-1-16 03:45
给你一个计算器,使用前先注册控件并加以引用.[attach]15388[/attach]

作者: Qi-hardy    时间: 2006-1-16 05:47
谢谢你。我需要这东西。请问如何注册控制并引用,小弟我比较笨。请在麻烦一下说说详细点。
作者: 一点通    时间: 2006-1-16 17:43
如果单纯的加数在窗体中很容易做到的,如果要用到四则运算的话就要花一点时间去做了,另外你可以利用WIM中的计算器来计算
作者: 静儿    时间: 2006-1-16 19:36
为什么不直接调用win中的计算器呢?按钮向导中会指导您完成的。
作者: Qi-hardy    时间: 2006-1-16 20:00
看了以上二位的回答非常满意!我的意思就是要调用WIN中的计算器请问如何操作。能不能把步骤告诉我。
作者: fan0217    时间: 2006-1-16 20:03
  Dim stAppName As String

    stAppName = "calc.exe"
    Call Shell(stAppName, 1)
作者: Qi-hardy    时间: 2006-1-16 21:08
以下是引用fan0217在2006-1-16 12:03:00的发言:


  Dim stAppName As String

    stAppName = "calc.exe"
    Call Shell(stAppName, 1)

大哥我智商有限。请问这是啥意思呀?
作者: fan0217    时间: 2006-1-16 21:13
在按钮的单击事件中添加以上代码就可以打开系统的计算器了。




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3