PDA

Vollständige Version anzeigen : Microsoft Access kann das in Ihrem Ausdruck angesprochene Feld...


marceljansen
20.04.2011, 18:48
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.....



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

gpswanderer
20.04.2011, 18:52
Hallo,
Du musst den Namen des Ufos verwenden. Den Namen findest Du in den Eigenschaften, wenn der Rahmen des Ufos angeklickt ist.

Ganz allgemein:
Forms!HauptformularName!UnterformularName!Feldname

marceljansen
20.04.2011, 18:59
ja das dingen heißt bei Beschriftung aber
SD01_MATERIAL_FORM

gpswanderer
20.04.2011, 19:03
Hallo,
und was soll jetzt diese Kurzantwort sagen?
Und was heist aber?

Verwende mal die Syntax die ich vorgeschlagen habe.

Maxel
20.04.2011, 19:06
Die Eigenschaft Beschriftung gibt es beim Ufo nicht. Auf den Namen kommt es an.

marceljansen
20.04.2011, 19:11
ok , ist erl.

Maxel
20.04.2011, 19:12
ok , ist erl.
Und wie, bitteschön?

marceljansen
27.04.2011, 11:11
der name des formulares war falsch;()

Drias
01.11.2013, 11:16
falscher thread. x_X

Aber danke für den Thread, er hat mir bei meinem Problem geholfen. :)