Question

我制作了一个添加信息的表单。

With rst
     .AddNew
     .Fields("a") = b.Value
     .Update

通常工作正常。但有时我需要投入一美元金额。所以我会把＃34; $ 3.43＆＃34;它会把条目放两次。一旦到底，一旦覆盖顶部。我很确定这与＆＃34; $＆＃34;有关，因为这是唯一一个从入口到入口变化的东西，但我找不到任何关于它的东西在Google上。

编辑：完整代码

Private Sub Command78_Click()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Service Calls")
With rst
     .AddNew
     .Fields("Project Name") = proj.Value
     .Fields("Service Address") = address.Value
     .Fields("Date of Service") = doS.Value
     .Fields("Technician") = tech.Value
     .Fields("Total Billed") = billed.Value
     .Fields("Zip Code") = zip.Value
     .Fields("Description of Work") = work.Value
     .Fields("Type of Call") = toC.Value
     .Fields("Invoice Number") = invoiceNum.Value
     .Fields("Ticket Number") = ticketNum.Value
     .Update
 End With
End Sub

Answer 1

如果Total Billed是Currency（应该如此），则无法插入字符串。因此，如果存在，请删除$ -sign：

.Fields("Total Billed").Value = CCur(Replace(billed.Value, "$", ""))

Answer 2

看起来您已将表绑定到Command78_Click触发的同一表单，如果您已将表实际绑定到表单，请检查并删除Command78_click事件的代码。< / p>

表中的MS Access $

2 个答案: