MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

 
Ads
Themen-Optionen Ansicht
Alt 20.04.2011, 18:48   #1
marceljansen
MOF User
MOF User
Standard Acc2003 - Microsoft Access kann das in Ihrem Ausdruck angesprochene Feld...

Hallo,

ich möchte per eMail einen Anhang versenden.
Dieser Anhang sind Daten aus einem Unterformular.

Erklärung:
Hauptformular hat Unterformular mit Datensätze.
Unterformular nennt sich "SD01_MATERIAL_FORM"
Die Datensätze aus dem Unterformular sollen als Exceltabelle versendet werden, aber auch nur die, die zur jeweiligen ID gehören.

Bekomme aber immer ne fehlermeldung die da heißt
"Microsoft Access kann das in Ihrem Ausdruck angesprochene Feld 'SD01_MATERIAL_FORM' nicht finden."


Das Unterformular SD01_MATERIAL_FORM gibt es aber.
Verstehe das nicht.....

Code:

Private Sub Bild532_Click()
On Error GoTo Err_Bild532_Click

Dim qdf As DAO.QueryDef        ' DAO-Verweis
Set qdf = CurrentDb.QueryDefs("IOMEGA_SD_DATEN")
qdf.SQL = "SELECT ID, Kunde, Material, LEER, Betrag, Währung, Menge FROM Daten_SD_Artikel WHERE ID = " & _
   Me!SD01_MATERIAL_FORM.Form!ID
Set qdf = Nothing

Dim strText As String

strText = vbNewLine & "Hallo " & Me!BusinessAnalyst & "," & vbNewLine & vbNewLine & _
         "bitte lege folgende Ship & Debit im SAP an:" & _
        "----------------------------------------------------------------------" + vbcrlf _
        + "ID               : " + str(ID.value) + vbcrlf _
        + "Promobezeichnung : " + "ID: " + str(ID.value) + " / " + Me.Promobezeichnung + vbcrlf _
        + "Referenz         : " + Nz(Me.Herstellerreferenz) + vbcrlf _
        + "Zeitraum         : " + str(Promoanfangsdatum.value) + " bis " + str(Promoenddatum.value) + vbcrlf _
        + "Deb. Kreditor    : " + Me.Debitorischerkreditor.Column(3) + vbcrlf _
        + "Hersteller       : " + Me.Hersteller.Column(7) + vbcrlf _
        + "Gesellschaft     : " + Me.Gesellschaft + vbcrlf _
        + "Konditionsart    : " + Me.Konditionsart.Column(2) + " - " + Me.Konditionsart.Column(4) + vbcrlf _
        + "Kundenauftrag    : " + Nz(Me.Kundenauftrag) + vbcrlf _
        + "----------------------------------------------------------------------" + vbcrlf _
        + "Status           : " + Me.Status + vbcrlf _
        + "Datum / Zeit     : " + str(Text89.value) + vbcrlf _
        + "----------------------------------------------------------------------" + vbcrlf + vbcrlf _
        + "Bemerkungen      : " + vbcrlf _
        + Nz(Me.Bemerkung) + vbcrlf _
        + "----------------------------------------------------------------------" + vbcrlf _
        + "Die Materialdaten für die Promotion sind im Anhang enthalten!" + vbcrlf + vbcrlf _
        + "Viele Grüße," + vbcrlf _
        + Me.Mitarbeiter.Column(1) + vbcrlf _

DoCmd.SendObject acSendQuery, "IOMEGA_SD_DATEN", acFormatXLS, Me!BusinessAnalyst.Column(1), , , "Ship & Debit anlegen - ID: " + str(ID.value), strText, 0

Me!Protokoll = Me!Protokoll & "Ship & Debit Antrag erstellt am " & Now & " von " & Benutzername() & vbcrlf

MsgBox "Hallo " & Me.Mitarbeiter.Column(1) & ", die Daten wurden gespeichert und " & Me.BusinessAnalyst & " übermittelt!", vbInformation, "Easy Access"

Me!Status.Locked = False
Me!Status.SetFocus
Me.Status.Text = "eingegeben"
Me.Status.Locked = True

Me!Promobezeichnung.SetFocus

Exit_Bild532_Click:
    Exit Sub

Err_Bild532_Click:
    MsgBox Err.Description, , "Easy Access"
    Resume Exit_Bild532_Click

End Sub
marceljansen ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
 


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:13 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.