So erstellen Sie eine Kommentar-box mit Zeit-und Datumsstempel in Access

Gibt es eine Vorlage in Access 2010 genannt Kontakte. Auf dem Formular gibt es ein Kommentar-Feld, ein Textfeld und eine Schaltfläche. Wenn Sie geben Sie text in das Textfeld ein und klicken Sie auf die Schaltfläche, es fügt den text in die Kommentar-box, und Zeit/Datum-Stempel es. Wenn Sie es wieder tun es bleibt der alte text in der Kommentar-box und fügt den neuen text darunter.

Ich bin ziemlich neu in access, aber ich möchte in der Lage sein, dieses feature hinzufügen zu meiner Datenbank.

So, ich habe ein Memo-Feld auf die Tabelle und Formular und ein input-Textfeld und die Schaltfläche auf dem Formular. Weiß jemand, was ich tun, von hier zu bekommen, dass die Funktionalität?

  • Wissen Sie, wie Sie schreiben, VBA-code? Was haben Sie bisher ausprobiert? Hast du dir den code in die Kontakte-Vorlage, um zu sehen, wie Sie es tun?
  • Wenn die Datenbank-Vorlage wird geöffnet, auf der linken Navigations-Fenster gibt es Tabellen, Abfragen, Formulare und Berichte. Ich sehe keine Makros, oder würden Sie irgendwo anders sein? Wenn ich auf VB-editor an der Spitze gibt es keinen code. Und wenn ich auf makro Ausführen, es gibt keine Makros in der drop-down-Menü.
  • Fand gerade heraus, dass es ein web template, das kann der Grund sein. Ich wusste nicht, ich hatte eine Verwendung von VBA-code, keine Ahnung was ich würde tun müssen, um diese Funktionalität? Ich bin ein wenig ein newbie mit diesem Zeug.
InformationsquelleAutor dlofrodloh | 2013-10-03
  1. 1

    Hier ist ein weiteres Beispiel dafür, wie es zu tun. Ich habe die folgende form:

    So erstellen Sie eine Kommentar-box mit Zeit-und Datumsstempel in Access

    Mit dem folgenden code:

    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

    Was dieser tut, ist sicherzustellen, dass der Neue Kommentar ist was dran. Wenn ja, dann überprüft es den Kommentar zu sehen, ob es schon etwas beinhaltet. Wenn es funktioniert, dann fügt es die neue Kommentar zu, sonst wird es nur weist den neuen Kommentar zu es. Das Datum und die Uhrzeit an das Ende jedes Kommentars.

    • Das funktioniert, vielen Dank!
    InformationsquelleAutor Linger
  2. 1

    Herausgefunden, ich habe das On_Click-Eigenschaft der Schaltfläche und fügen Sie VBA-code zu.

    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
    InformationsquelleAutor dlofrodloh
Schreibe einen Kommentar