collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 63
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14038
  • stats Beiträge insgesamt: 67226
  • stats Themen insgesamt: 9067
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Neueste Beiträge

Seiten: [1] 2 3 ... 10
1
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Lalikowski am Heute um 17:24:02 »
Hallo Lachtaube,

ganz, ganz lieben Dank für den code.

Sobald ich ihn testen konnte melde ich mich wieder.

Möchte dennoch die Beispiel-DB nochmals hochladen. Habe die Beziehung und Schlüssel nachgetragen.

Liebe Grüße

Andreas
2
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Lachtaube am Heute um 16:40:59 »
Eine mögliche Gestaltung wäre:'Dein VBA Formular-Modul mit dem Knopf

Option Compare Database
Option Explicit

#If 0 Then
SQL-Abfragetext von qry_QR:
-------------------------------------------------------------------------------
SELECT d.Datum,
       p.Name,
       d.Tour,
       d.Stopps,
       d.Collis,
       d.Partner
FROM   tbl_Partner AS p
       INNER JOIN tbl_Daten AS d
               ON p.Partner_ID = d.Partner
WHERE  d.Datum = [Forms]![frm_senden]![Datum];
-------------------------------------------------------------------------------

SQL-Abfragetext von spPartnerIdMailByDate:
-------------------------------------------------------------------------------
SELECT p.Partner_ID,
       p.Mail
FROM   tbl_Partner AS p
       INNER JOIN tbl_Daten AS d
               ON p.Partner_ID = d.Partner
WHERE  d.Datum=[@Datum];
-------------------------------------------------------------------------------

#End If

#Const AsMail = False  'auf True zum Mailversand sezten

Private Sub Befehl2_Click()
   Const QRY As String = "spPartnerIdMailByDate"

   Dim ReportFilter As String

   'nur wenn ein gültiges Datum vorliegt
   If IsDate(Me.Datum) Then
      'der Parameterabfrage
      With CurrentDb.QueryDefs(QRY)
          'das Datum zuweisen
         .Parameters("@Datum") = Me.Datum
         'ein Recordset öffnen
         With .OpenRecordset(dbOpenSnapshot, dbForwardOnly)
            'bis zum Ende des Recordsets
            Do Until .EOF
               'Filterausdruck zum Öffnen des Berichts erstellen
               ReportFilter = BuildCriteria("Partner", dbLong, !Partner_ID)
               'Bericht versteckt in der Vorschau öffnen
               DoCmd.OpenReport "rpt_QR", acViewPreview, , ReportFilter, acHidden

#If AsMail Then
               'Email erstellen und senden
               'der Bericht wird hier als RTF exportiert
               'ab Access 2007 kann acFormatPDF verwendet werden
               'Betreff(Subject) und Text der Email anpassen.
               'AFAIKsind 255 Zeichen erlaubt- müsstest Du testen.
               DoCmd.SendObject acReport, "rpt_QR", acFormatRTF, !Mail, , , _
                                "Touren am " & Me.Datum, _
                                "Hallo," & vbLf & vbLf & vbLf & _
                                "Du bist für folgende Touren eingeteilt:"
#Else
               'oder
               '
               'Export in einen Ordner
               DoCmd.OutputTo acOutputReport, "rpt_QR", acFormatRTF, _
                              "c:\temp\" & Format$(Me.Datum, "yyyymmdd_") & _
                              !Partner_ID & ".rtf"
               'hier könnte man Outlook oder CDO für den Versand automatiersen
               'oder ein Programm wie blat.exe den Versand durchführen lassen.
#End If
               'Vorschau schließen
               DoCmd.Close acReport, "rpt_QR", acSaveNo
               'zumnächsten Datensatz (Partner für ein gewähltes Datum)
               .MoveNext
            Loop
            'Recordset schließen
            .Close
         End With
      End With
   End If
End Sub
3
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Beaker s.a. am Heute um 11:39:54 »
Hallo Andreas,
Zitat
Die "echte" DB ist zu groß
Wenn die genauso aussieht wie das Beispiel, solltest du allerdings zunächst
mal ein Bild des Beziehungsfensters posten, und ein paar Erläuterungen zum
Zweck der DB geben. Denn ich befürchte, dass da noch so Einiges im Argen liegt.
gruss ekkehard
4
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von MzKlMu am Heute um 10:16:38 »
Hallo,
Zitat
es handelte sich hierbei ja auch nur um ein Beispiel,
gerade in einem Beispiel sollte man Beziehungen und alle Schlüsselfelder anlegen. Dann hat der Helfende sehr schnell einen Überblick.
Hole das nach, lade die DB noch mal hoch und Du wirst hier geholfen.  ;D
5
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Lalikowski am Heute um 10:12:49 »
Hallo Ekkehard,

es handelte sich hierbei ja auch nur um ein Beispiel, um zu verdeutlichen, was ich eigentlich meinte.

Die "echte" DB ist zu groß, um sie Euch zur Verfügung zu stellen.

Schade... :'( :'(

Wünsche allen einen erfolgreichen Wochenstart

Andreas
6
Tabelle/Abfrage / Re: Stücklisten auflösen
« Letzter Beitrag von DF6GL am September 23, 2018, 20:00:37 »
Hallo,

hier kannst Du Dir ein paar Grundlagen zu Stücklisten aneignen..
http://www.access-im-unternehmen.de/923
http://www.access-im-unternehmen.de/1084

Ansonsten findest Du weitere Tipps, wenn Du nach Stücklistenauflösung MS Access gockelst..
7
Tabelle/Abfrage / Stücklisten auflösen
« Letzter Beitrag von martie01 am September 23, 2018, 19:47:43 »
Hallo zusammen,

Wir arbeiten in unserem Betrieb mit Stücklisten. Ich habe eine Tabelle, in der ich sämtliche Stücklisten unter der Stamm ArtNr speichere. Ein fertiges Produkt beinhaltet die Artikel aber auch Unterstücklisten aus denen es besteht. Die Unterstückliste kann auch wieder aus Unterstücklisten bestehen. Das kann sich über viele Ebenen so hinziehen.

z.B.

Mutterstückliste ArtNr. AL-78000
|-Artikel A                  AL-45111
|-Artikel B
|-Stückliste A
---|-Artikel C              AL-45100
---|-Artikel D              AL-43100

und so weiter...
Wie kann ich mir z.B die Mutterstückliste mit den dazugehörigen Unterparts ansehen ?

Habe von Union Abfrage gelesen. Weiss aber nicht, wie das gehen kann.

Kann mir jemand weiterhelfen ?

Gruss Martin
8
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Beaker s.a. am September 23, 2018, 15:46:32 »
Hallo Andreas,
Sorry, aber so wird das nichts; - keine Schlüssel, keine Beziehungen …
Da habe keine Lust dazu.
Beschäftige dich erstmal ein wenig mit den Grundlagen der Datenbankerstellung.
Gute Links findest du z.B. beim Forumsmitglied MzKlMu.
gruss ekkehard
9
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Lalikowski am September 23, 2018, 10:55:20 »
Hallo Ekkehard,

im Anhang habe ich Dir einmal eine kleine DB erstellt.

Ich hoffe, dass diese verständlich ist.....

Liebe Grüße

Andreas
10
Bericht / Re: Bericht(e) senden, Empfänger kommen aus einer Tabelle
« Letzter Beitrag von Beaker s.a. am September 22, 2018, 15:45:01 »
Hallo Andreas,
Zitat
Die Basis für den Bericht bildet eine Abfrage, so dass auch diese wissen muss welche Abfrage zu welcher Mailadresse gehört.
Nicht ganz klar, eine und welche widersprechen sich.
Vorgehensweise, die mir einfällt
 - Recordset mit den Empfängern öffnen
 - in einer Schleife durch dieses RS den Bericht mit Kriterium öffnen und versenden.
gruss ekkehard

P.S. Vielleicht lädst du eine kleine Beispiel-DB mit ein paar Spieldaten hier hoch.
Seiten: [1] 2 3 ... 10