Office: (Office 2010) Datensatz per VBA in Tabelle schreiben

AlfGand · 3. November 2014

Servus ...

ich hoffe auf Eure Unterstützung ... und bedanke mich bereits im Voraus ...

Kurz zum Hintergrund. Ich möchte in unsere Mitarbeiterverwaltung eine Option einbinden, damit unsere Personalabteilung definierte eMails aus Access über Outlook versenden kann.

Den eMail Option ist entsprechend eingerichtet und funktioniert bereits über die Möglichkeit auch Textbausteine einzubinden.

Folgeden Code habe ich hier aufgebaut:

Code:

Private Sub Befehl71_Click()
Dim objMail As clsMail
Set objMail = New clsMail
With objMail
.AnHinzufuegen Me.fd_EMAILPRIVAT
.Betreff = Me.fd_EMAILBETREFF
.Inhalt = "Sehr geehrte(r) " & Me.fd_ANREDE & " " & Me.fd_NACHNAME & "," & Me.fd_EMAILTEXT
.Anzeigen
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun möchte ich wenn dieses Script ausgeführt wird, dass Access div. Daten in eine zusätzliche Tabelle schreibt:

Tabellenname: tbl_HR-KM_VORGANG-MA-BW
mit folgenden Feldern die gefüllt werden sollen: [ID_BEWERBER], [fd_ART], [fd_BEGINN], [fd_MEMO], [fd_USER]

Verbindung der Felder in der Tabelle [tbl_HR-KM_VORGANG-MA-BW] zu Formularfeldern in der das oben angegebene Script ausgeführt wird.

[ID_BEWERBER] = ID_BEWERBER
[fd_ART] = soll mit einem Festtext gefüllt werden hier dann 'eMail'
[fd_BEGINN] = Aktuelles Datum bei Ausführung des Scripts
[fd_MEMO] = fd_EMAILBETREFF
[fd_USER] = aktuell angemeldeter AD-USER

Ich hoffe das Thema zumindest etwas verständlich formuliert zu haben.

Kann mir einer von Euch sagen, wie ich das oben aufgeführte Script entsprechend erweitern muss, damit ich diese Anforderung hinbekommen.

Besten Dank im Voraus ...

MfG
AlfGand

:)

Ohrkester · 5. November 2014

Servus AlfGand,

meinst Du so etwas?
Das liefert aber nur einen Datensatz
Code:

' Menue: Extras -> Verweise Microsoft DAO 3.6 Object Library
' muss aktiv sein!
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tbl_HR -KM_VORGANG - MA - BW")
rs.AddNew
rs![ID_BEWERBER] = Me!ID_BEWERBER
rs![fd_ART] = DeinEmailText '(Variable?)
rs![fd_BEGINN] = Now()
rs![fd_MEMO] = Me!fd_EMAILBETREFF
rs![fd_USER] = Environ("Username")
rs.Update
rs.Close
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du mehrere anschreiben willst, dann musst Du diese vorher z.B. über
eine Abfrage filtern und dann Datensatzweise durchloopen.
Code:

' Menue: Extras -> Verweise Microsoft DAO 3.6 Object Library
' muss aktiv sein!
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim i As Integer
Set rs = CurrentDb.OpenRecordset("tbl_HR -KM_VORGANG - MA - BW")
Set rs1 = CurrentDb.OpenRecordset("DeineAbfrage mit ausgewählten Personen")
If rs1.RecordCount > 0 Then
rs1.MoveLast
rs1.MoveFirst
For i = 1 To rs1.RecordCount
rs.AddNew
rs![ID_BEWERBER] = rs1!ID_BEWERBER
rs![fd_ART] = DeinEmailText
rs![fd_BEGINN] = Now()
rs![fd_MEMO] = rs1!fd_EMAILBETREFF
rs![fd_USER] = Environ("Username")
rs.Update
rs1.MoveNext
Next i
Else
MsgBox "nix zum Kopieren vorhanden"
End If
rs.Close
rs1.Close
Set rs = Nothing
Set rs1 = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beides ungeprüft. EDIT: Nur Code etwas übersichtlicher eingerückt.

AlfGand · 5. November 2014

Hey,

VIELEN DANK ... FUNKTIONIERT EINWANDFREI !!!

Maxel · 5. November 2014

Einen Änderungsvorschlag hätte ich:
Code:

If rs1.RecordCount > 0 Then
rs1.MoveLast
rs1.MoveFirst
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=>
Code:

rs1.MoveLast
If rs1.RecordCount > 0 Then
rs1.MoveFirst
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ohrkester · 5. November 2014

\@Maxel: Ergibt Dein Vorschlag bei keinem vorhandenen Datensatz nicht einen
Fehler, was man natürlich wieder abfangen könnte?

Maxel · 7. Januar 2021

von Ohrkester

@Maxel: Ergibt Dein Vorschlag bei keinem vorhandenen Datensatz nicht einen
Fehler, was man natürlich wieder abfangen könnte?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da ist was dran.

An Stelle dieser drei Zeilen sollte also genügen
Code:

If Not rs.EOF Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ohrkester · 5. November 2014

\@Maxel:
da hast Du Dich bestimmt nur verschrieben
statt
Code:

If Not rs.EOF Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=>
Code:

If Not rs1.EOF Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Naja. So manche Wege führen alle nach Rom.

Office: (Office 2010) Datensatz per VBA in Tabelle schreiben

Datensatz per VBA in Tabelle schreiben

Datensatz per VBA in Tabelle schreiben

Datensatz per VBA in Tabelle schreiben

Datensatz per VBA in Tabelle schreiben - Similar Threads - Datensatz VBA Tabelle

VBA - Datensätze ans Ende einer anderen Tabelle kopieren

Im Endlosformular aktiven Datensatz hervorheben

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

VBA: Hinzufügen von Datensätzen zu einer bestehenden Tabelle

mit VBA Tabelle öffnen und zu bestimmten Datensatz springen

Datensatz in Tabelle per VBA löschen

Datensatz per SQL/VBA in andere Tabelle kopieren