添加记录记录的子过程

Question

中没有的新纪录后，我有，增加了一个新的记录，以记录一个子过程。

Dim RS As Recordset 
Set RS = getRSObject("Tickets") 
RS.AddNew 
RS.Fields("subject").Value = Me.txtSubject.Text 
RS.Fields("detail").Value = Me.txtDetail.Text 
RS.Fields("dateopen").Value = Format(Now, "mm/dd/yy hh:nn") 
RS.Fields("status").Value = "Open" 
RS.Fields("user").Value = Me.ComboUser.Text 
RS.Fields("assignedto").Value = Me.comboAssignedTo.Text 
RS.Fields("priority").Value = Me.ComboPriority.Text 
RS.Fields("category").Value = Me.comboCategory.Text 
RS.Fields("unplanned").Value = Me.cbUnplannedWork.Value 
RS.Save 

RS.Close 
doEvents 

我的问题是，有几行处于同一模块中进一步下跌，我通过查询相同的访问表更新票证列表。但是这个新纪录不在这个记录集中。这几乎就像记录没有被写入访问直到子过程完成。

我刷新我的票名单上述过程完成后手动我看到我插入记录。

如果我运行插入一个完整的SQL语句，如“插入票（......”这工作得很好，我看到记录在列表中，但它容易出现的问题，如果用户把字符如连字符的文本字段。

谁能给我一个命令，将迫使数据写入到Access数据库，并提供子完成之前。

Answer 1

尝试使用RS.Update代替RS.Save

Dim RS As Recordset 
Set RS = getRSObject("Tickets") 
RS.AddNew 
RS.Fields("subject").Value = Me.txtSubject.Text 
RS.Fields("detail").Value = Me.txtDetail.Text 
RS.Fields("dateopen").Value = Format(Now, "mm/dd/yy hh:nn") 
RS.Fields("status").Value = "Open" 
RS.Fields("user").Value = Me.ComboUser.Text 
RS.Fields("assignedto").Value = Me.comboAssignedTo.Text 
RS.Fields("priority").Value = Me.ComboPriority.Text 
RS.Fields("category").Value = Me.comboCategory.Text 
RS.Fields("unplanned").Value = Me.cbUnplannedWork.Value 

RS.Update 


RS.Close 
doEvents