Option Compare Database
Private Sub EMailButton_Click()
Dim Applikation As New Outlook.Application
Dim mail As Outlook.MailItem
Set mail = Applikation.CreateItem(olMailItem)
mail.To = Me![anmelder_email]
mail.Subject = "Mein Treue-Pass"
mail.HTMLBody = "<span style=""font-size:10pt; font-family:'Verdana'"">" & Me![mailtext]
mail.Attachments.Add "Q:\Zentralspeicher\Verwaltung\Praemienkatalog.pdf", pdf, 1, "Pfullingen"
mail.Attachments.Add "Q:\Zentralspeicher\Verwaltung\Teilnahmebedingungen.pdf", pdf, 1, "Pfullingen"
mail.SentOnBehalfOfName = "pfullingen1@tui-reisecenter.de"
mail.Display
Me![punkte_erledigt] = -1
Me![weiter].SetFocus
End Sub
Private Sub Form_Open(Cancel As Integer)
[DoCmd].[Maximize]
End Sub
Private Sub Kombinationsfeld66_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld66] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Kombinationsfeld102_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld102] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Befehl149_Click()
On Error GoTo Err_Befehl149_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "reise"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Befehl149_Click:
Exit Sub
Err_Befehl149_Click:
MsgBox Err.Description
Resume Exit_Befehl149_Click
End Sub
Private Sub Kombinationsfeld163_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld163] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Kombinationsfeld165_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld165] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Kombinationsfeld167_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[jojo] = '" & Me![Kombinationsfeld167] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me![EMailButton].SetFocus
End Sub
Ich hab nichts bewusst an dem Formular geändert, so dass ich nicht nachvollziehen kann woher der Fehler kommt und mit VBA kann ich mich leider nicht aus, so dass mir auch hier mein eigener Kopf keine Hilfe bietet ;-)