access数据库窗体设计中两个数求和的vba怎么写

实现的方案是多种多样的，请根据实际需求进行设计。下面提供一个设计方案供参考：

'先编写自定义求和函数
Private Function sumTwoNums(Num1 As Single,Num2 As Single) As Single
Dim Num As Single
Num=Num1+Num2
Num=Round(Num,2) '四舍五入保留2位小数
sumTwoNums=Num
End Function

'编写命令按钮单击事件过程，将文本框1和文本框2中的数字和，显示到文本框3中
Private Sub Command1_Click()
If Not IsNumeric(Text1.Value) Then
MsgBox "请在文本框1输入一个正确的数字"
Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Text2.Value) Then
MsgBox "请在文本框2输入一个正确的数字"
Text2.SetFocus
Exit Sub
End If
'调用求和函数，显示运算结果到文本框3
Text3=sumTwoNums(Text1+Text2)
End Sub