新手求助

风中的囚徒

如何在一个窗体的文本框中实现计算功能？

keecome

以下是引用alalei在2003-9-29 16:39:46的发言：
可以帮我吗?
我公司的一数据库放在SERVER上所有员工都能使用该数据库,除了一个手提式电脑.
它可以打开该数据库的第一个窗口,但单击"BUTTON"进入下个窗口时却进不了,
出现以下提示:
a problem occured while ms access was communicating with the OLE server or ActiveX control：
*the expression may not result in the name of a user-defined function or event procedure;
*there may be a error in evaluating the function or macro event.

是不是用了后台数据库，如果用了，应该是链接表的位置出问题了！在链接表中更新一下链接看能不能把问题解决！

alalei

可以帮我吗?
我公司的一数据库放在SERVER上所有员工都能使用该数据库,除了一个手提式电脑.
它可以打开该数据库的第一个窗口,但单击"BUTTON"进入下个窗口时却进不了,
出现以下提示:
a problem occured while ms access was communicating with the OLE server or ActiveX control：
*the expression may not result in the name of a user-defined function or event procedure;
*there may be a error in evaluating the function or macro event.

风中的囚徒

谢谢大家对我的帮助，用xuchunping的方法我已解决问题，也很感谢一点通的热心帮助。

一点通

风中的囚徒，说真的，我相信其它人也不知你到底要的是什么结果，你的要求我已经表达得很清楚了，如果不是这样的话，你可以给个例子，让大家一起帮你。

lichun

在ACCESS中可以象excel那样计算,例如,你要的3+3*3, 用上例子,你在C文本栏写上你的公式就行只是用所要计算的文本栏的名.

xuchunping

建立一个文本框TXT，其EXIT事件为：
Private Sub TXT_Exit(Cancel As Integer)
On Error GoTo TXTERR
TXT.Value = Str(Eval(TXT))

EXITTXT:
Exit Sub

TXTERR:
MsgBox "INCLUDE ERROR CODE", 16, "ERROR MESSAGE"
Resume EXITTXT
End Sub

风中的囚徒

是的，这就是我想要的结果，版主能告诉我吗？谢谢！

风鸣

你的意思是不是在文本框中输入如“3+3*3”，从而得到一个值。

风中的囚徒

首先谢谢一点通的答复，可能是我表达意思不准确，我的原意是在一个文本框中就可以实现计算功能，象excel一样。