Я создаю базу данных Access для работы. Я установил отчет для открытия после нажатия на определенную запись. Поэтому в отчете должна отображаться только информация этой записи. Однако я хотел бы добавить в отчет окно комментариев, в котором вы можете добавлять комментарии. Новые комментарии отмечены и добавлены к предыдущим комментариям, уже показанным в отчете. Я смог запрограммировать функцию комментариев в отдельном отчете. Однако для отчетов, которые показывают только конкретные записи, это не сработает. Я знаю, это потому, что я должен каким-то образом добавить каждый комментарий в свою базу данных, но я просто не могу понять, как это сделать. Я использовал следующий код, который я нашел в Интернете в другой статье. Он отлично работает, когда ваши комментарии не привязаны к определенной записи.Как добавить комментарий, используя поля комментариев в Access?
Private Sub cmdAppendComment_Click()
If (IsNull(txtNewComment.Value)) Then
MsgBox ("Please enter a comment before clicking" & _
"on the Append Comment button.")
Exit Sub
End If
' These commented lines will never be reached:
' If (IsNull(txtComment.Value)) Then
' Table.tblmain.User_comment.Value = txtNewComment.Value & " ~ " & _
' VBA.DateTime.Date & " ~ " & VBA.DateTime.Time
' Else
Table.tblmain.User_comment.Value = txtComment.Value & _
vbNewLine & vbNewLine & _
txtNewComment.Value & " ~ " & _
VBA.DateTime.Date & " ~ " & VBA.DateTime.Time
' End If
' txtNewComment.Value = ""
' Use Null:
txtNewComment.Value = Null
End Sub
Прокомментировал некоторые строки, которые не будут достигнуты. – Gustav