New user
Beiträge: 2
| Anforderung 1:
Ich möchte gerne einen Automatismus haben, dass wenn ein Mitarbeiter einen Vorgang abgezeichnet wird, eine andere Person automatisch per E-Mail benachrichtigt.
Das ganze ist ein großes Formular, wo verschiedene Elemente und Bereiche sind, wo eine Stellenausschreibung vorbereitet werden soll
Die Abzeichnung ist in einem Bereich in einer Abzeichnungsliste konzipiert. Die Abzeichnungsliste hat am Ende der Zeile einen Button, der schrittweise von einer Person die Abzeichnungn and den nächsten in der Liste weitergibt. Zum Schluss zeichnet jemand mit der Bez. "P" ab. Wenn das geschehen ist, soll ein anderer Mitarbeiter automatisch benachtigt werden.
Im Abzeichnungsbutton ist folgender Code enthalten.
Private Sub btn_Abzeichnen_Click()
Dim aktuelleID As Long, WL As String
' Me.Parent.gesperrt = True
' Me.Parent.Sperren
StatusSetzen Me.gezeichnet_Status, Me.gezeichnet_am, Me.gezeichnet_von
aktuelleID = Me.ID
DoCmd.GoToRecord , , acNext
If Me.AbzeichnerID <> 0 Then
Me.AnzeigeUebersicht = True
Select Case Me.Funktion
Case "GBA"
Mailtext DLookup("[GBA]", "TStammdatenAllgemein")
Case "SBV"
Mailtext DLookup("[SBV]", "TStammdatenAllgemein")
Case "GSB"
Mailtext DLookup("[GSB]", "TStammdatenAllgemein")
Case Else
Mailtext (Nz(Me.AbzeichnerID.Column(2), ""))
End Select
WL = Me.Funktion & " (" & Me.AbzeichnerID.Column(1) & ")"
Me.Recordset.FindFirst "[ID]=" & aktuelleID
Me.Weiterleitung_an = "weitergeleitet an " & WL
Me.AnzeigeUebersicht = True
Else
Me.AnzeigeUebersicht = True
Me.Recordset.FindFirst "[ID]=" & aktuelleID
Me.Weiterleitung_an = "Schlusszeichnung durch " & Me.Funktion & " (" & Me.AbzeichnerID.Column(1) & ")"
Me.AnzeigeUebersicht = True
End If
End Sub |
