Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!
ZitatBei der Auswahl des Feldes habe ich btnSend ausgewählt und er zeigt mir auch die Handlung click daneben an.Auch nach dem 6. Lesen kann ich mir nicht entfernt vorstellen, was dieser Satz bedeuten soll.
Private Sub btnSend_Click()
fx_Email_Senden
End Sub
Private Sub fx_Email_Senden()
'--- fx_EMail_Senden ()---
Dim sEmail_Adress_Absender As String
sEmail_Adress_Absender = ctlAbsenderEMail
Dim sEMail_Adress_Empfaenger As String
sEMail_Adress_Empfaenger = ctlEmpfaengerEMail
Dim sTitle As String
sTitle = ctlBetreff
Dim sText As String
sText = ctlTextEmail
'--- Use Outlook App ---
Dim app_Outlook As Outlook.Application
Set app_Outlook = New Outlook.Application
'--- Email erstellen ---
Dim objEmail As Outlook.MailItem
Set objEmail = app_Outlook.CreateItem(olMailItem)
objEmail.To = sEMail_Adress_Empfaenger
objEmail.Subject = sTitle
objEmail.Body = sText
objEmail.Display False
objEmail.Send
'--- Email erstellen---
'Abschluss
Set objEmail = Nothing
Set app_Outlook = Nothing
'Abschluss
'--- Use Outlook App ---
'--- fx_E-Mail_versenden ()---
End Sub
Zitat von: Bitsqueezer am November 25, 2025, 09:18:18hat Access aus einem Feldnamen einen String gemachtDas kann man vermeiden, indem jeder Feldname im Ausdruck in eckigen Klammern geschrieben wird. Unabhängig davon, ob dieser Sonderzeichen oder Leerzeichen enthält.
if (Vergleich = 1 And Wert = Referenzwert) _
Or (Vergleich = 2 And Wert > Referenzwert) _
Or (Vergleich = 3 And Wert < Referenzwert) usw.