Vba 清除包含方程式的文本框

我在access中构建了一个表单，其中有两个文本框（总小时数和部分删除），它们后面有等式。我现在已经编写了一个命令，只需单击命令按钮即可发送电子邮件。此外，我有代码在电子邮件发送后清除表单上的其他文本框。有没有办法清除一个有等式的文本框，并在用户发送电子邮件时再次使用？现在，当电子邮件发送时，方程式文本框会弹出，里面有####

提前感谢：）

---

你可以做一些事情，比如如果文本框是清晰的，那么你可以做一些其他的事情

if [txtPart1Hrs] = "" or [txtPart2Hrs] = "" or [txtPart3hrs] = "" then 
     formulaBox = ""
else
    formulaBox = "=CDbl(Nz([txtpart1hrs],0))+CDbl(Nz([txtpart2hrs],0))+CDbl(Nz([txtpart3hrs],0))"
end if

只需将formulabox替换为您为包含公式的文本框设置的内容

编辑更新的代码

改变

txtPartRemoval = "=CDbl(Nz([txtpart1hrs],0))+CDbl(Nz([txtpart2hrs],0))+CDbl(Nz([txtpart3hrs],0))" 

到

试着改变

txtPartRemoval.Value = CDbl(Nz([txtpart1hrs], 0)) + CDbl(Nz([txtpart2hrs], 0)) + CDbl(Nz([txtpart3hrs], 0))

到

---

因为如果其中一个框由于检查是否为“”而为空，它将根本不会运行

你说的方程式是什么意思？你能展示一下吗？在删除部分后，在表单上添加了3个其他文本框：=CDbl（Nz（[txtpart1hrs]，0））+CDbl（Nz（[txtpart2hrs]，0））+CDbl（Nz（[txtpart3hrs]，0））总小时数类似，但添加了更多文本框。我在想也许是我。totalhours=0所以当文本框被清除时，公式就出现了？那么试试我的答案。你需要更改变量名称，因为我看不到你的所有代码，如果你也可以给我你的全部代码，我会研究一下，我会添加我有的，但它相当长，因为我在命令按钮下有代码，可以将记录添加到表中。我会尽量把它缩减到重要的部分。谢谢：）由于某些原因，我的错误句柄不断弹出，但它仍然会发送电子邮件，并且我提供了一张显示在框中的图片。不幸的是，我无法看到图片，因为我正在工作，它被阻止了。但是，如果电子邮件仍然被发送，并且errHandle总是出现，那么在errHandle代码被发送之前，您是否有退出功能/sub？是的，如果电子邮件被发送或未被发送，我对代码有退出功能

txtPartRemoval.Value = CDbl(Nz([txtpart1hrs], 0)) + CDbl(Nz([txtpart2hrs], 0)) + CDbl(Nz([txtpart3hrs], 0))

txtPartRemoval.Value = CDbl(Nz([txtpart1hrs], 0)) + CDbl(Nz([txtpart2hrs], 0)) + CDbl(Nz([txtpart3hrs], 0))

txtPartRemoval.Value = CDbl([txtpart1hrs].value) + CDbl([txtpart2hrs].value) + CDbl([txtpart3hrs].value)