如何在Access中創建帶時間和日期戳的評論框

Access 2010中有一個名爲Contacts的模板。在表單上有一個評論框，一個文本框和一個按鈕。當您在文本框中輸入文本並單擊該按鈕時，它會將文本添加到評論框中，並且時間/日期會將其添加到評論框中。如果您再次執行該操作，則會在評論框中保留舊文本，並在其下方添加新文本。如何在Access中創建帶時間和日期戳的評論框

我很新的訪問，但我希望能夠將此功能添加到我的數據庫。

所以我在表格和窗體上有一個Memo字段，並在窗體上有一個輸入文本框和按鈕。有沒有人知道我從這裏做什麼來獲得該功能？

來源

2013-10-03 dlofrodloh

你知道如何編寫任何VBA代碼嗎？你試過什麼了？您是否查看了「聯繫人模板」中的代碼以瞭解他們如何執行此操作？ – HK1

當數據庫模板打開時，在左邊的導航窗口中有表格，查詢，表格和報告。我沒有看到任何宏，或者他們會在別的地方？當我點擊頂部的VB編輯器時，沒有代碼。當我點擊運行宏時，下拉菜單中沒有宏。 – dlofrodloh

剛剛發現它是一個網頁模板，這可能是原因。我不知道我必須使用VBA代碼，不知道我必須做些什麼才能獲得該功能？我對這個東西有點新手。 – dlofrodloh

這是另一個如何去做的例子。我有以下形式：

enter image description here

用下面的代碼：

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 

    If (IsNull(txtComment.value)) Then 
    txtComment.value = txtNewComment.value & " ~ " & _ 
       VBA.DateTime.Date & " ~ " & VBA.DateTime.Time 
    Else 
    txtComment.value = txtComment.value & _ 
       vbNewLine & vbNewLine & _ 
       txtNewComment.value & " ~ " & _ 
       VBA.DateTime.Date & " ~ " & VBA.DateTime.Time 
    End If 

    txtNewComment.value = "" 
End Sub

這樣做是驗證新的註釋中有一些東西。如果是這樣，那麼它檢查評論以查看它是否已經包含某些內容。如果是這樣，那麼它會將新評論附加到它，否則它只是將新評論分配給它。日期和時間被添加到每條評論的末尾。

來源

2013-10-03 15:28:44 Linger

這很有效，非常感謝！ – dlofrodloh

想通了，我不得不使用按鈕的On_Click屬性，並添加VBA代碼。

Private Sub cmdAddNote_Click() 
Dim MyDate As String 

MyDate = Now() 


Form_ClientF.txtNotes = vbCrLf + MyDate + vbCrLf + vbCrLf + Form_ClientF.txtAddNote + vbCrLf + vbCrLf + Form_ClientF.txtNotes 

Form_ClientF.txtAddNote = "" 

End Sub

來源

2013-10-03 15:19:56 dlofrodloh

如何在Access中創建帶時間和日期戳的評論框

回答

相關問題