我制作了一个添加信息的表格。
With rst
.AddNew
.Fields("a") = b.Value
.Update
通常可以正常工作。但是有时我需要花一美元。因此,我将" $ 3.43"放入两次。一次在底部,一次覆盖顶部。我很确定这与" $"有关,因为这是从入口到条目的唯一变化,但是我在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
如果总收费是货币(应该如此),则无法插入字符串。因此,如果存在,请删除$ -SIGN:
.Fields("Total Billed").Value = CCur(Replace(billed.Value, "$", ""))
看起来您已经将表绑定到Command78_Click
发射的同一表格,检查并删除Command78_click
事件的代码,如果您实际上将表绑定到表单。<<<<<<<<<<<<<</p>