Thema Datum  Von Nutzer Rating
Antwort
Rot Do While schleife funktioniert nicht richtig
 30.08.2016 17:38:25 SwissHiglander
NotSolved
30.08.2016 23:03:49 Günther
Solved

Ansicht des Beitrags:
Von:
SwissHiglander		 Datum:
30.08.2016 17:38:25		 Views:
1060		 Rating:
     
Antwort:
  Ja
Thema:
Do While schleife funktioniert nicht richtig
Guten Tag VBA Profis Ich habe folgenden Code und der macht eigentlich nicht das was ich möchte :-(. Er macht so ca. nur die hälfte der Daten zum PDF und ist eine Dauerschleife. Was habe ich vergessen ? Besten Dank für jeden Hinweis Gruss Swiss On Error GoTo Err_btn_AnschreibenFuerZentraleDrucken_Click Dim stDocName As String, sDatei As String Dim sNr As String Dim sSql As String, sWhere As String Dim rs As Recordset sNr = InputBox("Bitte die Zentralen-Nummer eingeben:") If sNr = "" Then Exit Sub stDocName = "rpt_Bestellblatt_Valora_Verkaufsstellen" sSql = "Select Nummer, [Name] From tbl_Valora_Sortimentsgrössen_Kunden_Artikel where Spr = G" 'and ZentraleNr = " & sNr Set rs = CurrentDb.OpenRecordset(sSql) Do While Not rs.EOF sDatei = "N:\VL\Marketing\Sortiment\Bestellblätter\k_kiosk_Bestellblätter\" & rs!Nummer & "_" & rs![Name] & "_" & _ Format(Date, "yyyymmdd") & ".pdf" sWhere = "[Nummer]=" & rs!Nummer DoCmd.OpenReport stDocName, acViewPreview, , sWhere DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, sDatei, False DoCmd.Close acReport, stDocName rs.MoveNext Loop Exit_btn_AnschreibenFuerZentraleDrucken: rs.Close Exit Sub Err_btn_AnschreibenFuerZentraleDrucken_Click: MsgBox Err.Description Resume Exit_btn_AnschreibenFuerZentraleDrucken

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Do While schleife funktioniert nicht richtig
 30.08.2016 17:38:25 SwissHiglander
NotSolved
30.08.2016 23:03:49 Günther
Solved