添加記錄記錄的子過程

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