1

我有一个用户表单，当用户单击一个按钮时，它会打开一个新的评论日志表单。在这个新表单中，我提取了所有相关的注释并将它们显示在子表单/数据表中。

在第二种形式中，我有一个评论字段，允许输入新评论。当用户点击添加按钮时，他们可以输入文本然后点击保存按钮，评论保存到关联的表格中

（我正在阻止对第二种形式的编辑和删除……只允许添加）

一切似乎都很好，而且效果很好，但是，当我转到要附加的表时，一条评论有两条附加记录。在这两个记录中，注释文本都存在，但在第一条记录中，所有其他数据元素都丢失了。第二个记录是完美的。

有什么想法我哪里出错了吗？

Private Sub AddNew_Click()
Me.Item_ID = Forms![F_First_Form]![ID]
Me.Item_Number = Forms![F_First_Form]![Item Number]
Me.Form_Name = "F_First_Form"
Me.User_ID = (Environ$("Username"))
Me.Comment.SetFocus
End Sub

Private Sub Form_Load()

Me.Item_ID = Forms![F_First_Form]![ID]
Me.Item_Number = Forms![F_First_Form]![Item Number]
Me.Form_Name = "F_First_Form"
Me.User_ID = (Environ$("Username"))
Me.AddNew.SetFocus
End Sub
Private Sub SaveComment_Click()
 Dim dbs As DAO.Database
    Dim rst As DAO.Recordset

Set dbs = CurrentDb()
Set rst = dbs.TableDefs("Conversation_Log").OpenRecordset
If Me.Comment = vbNullString Or Me.Dirty = False Then
Exit Sub
Else
With rst
.AddNew
!Form_Name = "F_First_Form"
    !User_ID = (Environ$("Username"))
!Item_Number = Me.Item_Number
!Item_ID = Me.Item_ID
!Comment = Me.Comment
.Update
End With
Me.Requery
Me.Refresh
MsgBox "Your comment has been saved"

End If
End Sub
4

1 回答 1

0

尝试在表单加载例程中注释掉 AddNew：

Private Sub Form_Load()
    Me.Item_ID = Forms![F_First_Form]![ID]
    Me.Item_Number = Forms![F_First_Form]![Item Number]
    Me.Form_Name = "F_First_Form"
    Me.User_ID = (Environ$("Username"))
    **'Me.AddNew.SetFocus**

结束子

于 2013-12-22T22:08:16.080 回答