*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: 1 [2] 3   Omlaag

Auteur Topic: Pagina nummering  (gelezen 23490 keer)

0 leden en 1 gast bekijken dit topic.

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #15 Gepost op: 27 januari 2013, 21:30:42 »
Hallo Dizzl,

Wat je hebt gemaakt, spaart me een hoop werk. Iedere rekening wordt mooi weggeschreven.

Als ik het "Test programma" gebruikt, met 1 tabel, 1 formulier en 1 rapport dan loop het als een tierelier.
Heb de namen gewijzigd. Geen probleem.

Maar als ik het "test programma" in het echte programma verwerk, krijgt ik een foutmelding. Heb Visual Basic fout rapportage bijgevoegd.

Vraag 2.

Als ik de PDF bestanden wil opslaan in  onderstaande  map, hoe doe ik dat dan.
Heb de help gebruikt maar ik vind de oplossing niet. (weet niet veel van programmeren in VB.)

C:\winkelbestanden\fakturen\pdf\bestandsnaam.pdf
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #16 Gepost op: 28 januari 2013, 08:12:12 »
Kijk eens naar de afbeelding die bij Adri staat? Math
Jij moet hetzelfde doen.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #17 Gepost op: 28 januari 2013, 19:55:21 »
Hallo Dizzl,

heb bij Adri gekeken, maar ik zou niet weten waar ik moet zoeken.
Heb van alles geprobeerd, maar iedere keer foutmeldingen.

Gr. Math
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #18 Gepost op: 29 januari 2013, 06:12:08 »
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #19 Gepost op: 29 januari 2013, 12:58:07 »
Dizzl,

Al jouw bevindingen gebruikt. Het originele programma loopt perfekt. Geen fouten meer. Bedankt en nog eens bedankt.

Maar hoe meer ik me verdiep in VB, heb ik weer een vraag(je).

Is het ook mogelijk om vanuit jouw geschreven VB procedure, een sortering te maken op klanten die de faktuur per e-mail willen ontvangen.

Gr. Math
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #20 Gepost op: 31 januari 2013, 19:28:38 »
Ja hoor daarvoor maak je in je klantentabel een veldje van het type JA/NEE dat je WenstEMail noemt.
De code pas je dan aan als volgt. Wijzig dus één zin bij de gebeurtenis Private Sub Knop0_Click()

Code: [Selecteer]
Set rs = db.OpenRecordset("SELECT DISTINCT [Klant nr], FAKTUURNR FROM [T_PRINT FAKTUUR] WHERE WenstEMail='true'")
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #21 Gepost op: 01 februari 2013, 10:51:48 »
Hallo Dizzl,

heb een kolom in de tabel bijgevoegd en heb regel in programma gewijzigd.

Krijg foutmelding. Regel blijft geel. Doe ik iets fout.
Heb van alles geprobeerd.

Gr. Mah
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #22 Gepost op: 01 februari 2013, 12:44:48 »
zet je je database hier terug eens online?
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #23 Gepost op: 02 februari 2013, 12:14:17 »
Dizzl, bestandje is bijgevoegd.
Gr. Math
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #24 Gepost op: 03 februari 2013, 08:59:10 »
Ik bedoelde de database waarbij je de fout krijgt.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #25 Gepost op: 03 februari 2013, 20:39:18 »
Dizzl,

het programma loopt zonder fouten. Had een typefout gemaakt in de tabel. Dus probleem opgelost.

Heb een paar aanpassingen gemaakt zodat ieder PDFje (rekening) in de juiste map van de klant komt. Hierbij loop ik weer tegen een probleem aan. Durf het bijna niet meer te vragen.

Hoe kan ik automatisch een mapje laten aanmaken van een klant die een PDFje (rekening) krijgt en waar nog geen mapje van bestaat. Het mapje krijgt de naam van het klantnummer.

Gr. Math
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Pagina nummering
« Reactie #26 Gepost op: 04 februari 2013, 17:43:33 »
Code: [Selecteer]
Option Compare Database

Private Sub Knop0_Click()
    Dim db As Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb
    'stop alle klantnummers die een factuur hebben in rs
    Set rs = db.OpenRecordset("SELECT DISTINCT [Klant nr], FAKTUURNR FROM [T_PRINT FAKTUUR]")
   
    'ga naar het eerste recordset
    rs.MoveFirst
   
    'zolang er records zijn
    While Not rs.EOF
        'druk af voor deze klant
        Dim Bestandsnaam As String
        'Bestandsnaam = FActuurnummer + streepje + klantnummer + ".pdf"
        MsgBox "Factuurnummer " & rs(1) & " voor klant" & rs(0)
        Bestandsnaam = rs(1) & "-" & rs(0) & ".pdf"
        DoCmd.OpenReport "rpt_T_PRINT FAKTUUR", acViewPreview, , "FAKTUURNR=" & rs(1)
       
        'We kijken of de map bestaat
        Dim Mapnaam As String
        Mapnaam = CurrentProject.Path & "\" & rs(0) 'rs(0) bevat de klantnummer
        'We gebruiken de procedure van onderaan om deze map aan te maken als deze nog niet zou bestaan
        MaakMap (Mapnaam)

        'Om in het zelfde mapje als de database af te drukken zet je er CurrentProject.Path & "\" voor
        DoCmd.OutputTo acOutputReport, "rpt_T_PRINT FAKTUUR", acFormatPDF, Mapnaam & "\" & Bestandsnaam, False
        DoCmd.Close acReport, "rpt_T_PRINT FAKTUUR", acSaveNo

        'ga naar het volgende record
        rs.MoveNext
    Wend

   
End Sub

Private Sub MaakMap(pMapnaam As String)
    'We kijken even of de map onbestaand is
    If Dir(pMapnaam) = "" Then
        'Als dat zo is maken we deze aan
        MkDir pMapnaam
    End If
End Sub
Als je al je code vervangt door wat hier staat, zou het moeten lukken
Onderaan staat een procedure die deze map aanmaakt als deze niet zou bestaan.
Uiteraard kan je daar nog woorden bijplakken. Ik gebruikte gewoon rs(0) omdat 'daar' de klantnummer in staat.
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #27 Gepost op: 06 februari 2013, 15:29:15 »
Hallo Dizzl,

Heb wat aanpassingen gemaakt, zodat het in mijn prog. loopt. Indien geen mapje aanwezig wordt er een mapje aangemaakt, echter als het mapje reeds bestaat loopt het programma vast. Krijg de foutmelding "fout 75 tijdens de uitvoering, Toegangs fout bij Pad of Bestand.
Loopt bij deze regel vast  " MkDir CurrentProject.Path & "\" & rs(0)
de sub is

If Dir(opslag) = "" Then
MkDir CurrentProject.Path & "\" & rs(0)
End If

Gr. Math
Gelogd

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.181
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Pagina nummering
« Reactie #28 Gepost op: 06 februari 2013, 16:47:48 »
Hallo Math,

Citaat van: Math Reinders op 06 februari 2013, 15:29:15
de sub is

If Dir(opslag) = "" Then
MkDir CurrentProject.Path & "\" & rs(0)
End If


Dat is geen sub. Staan de variabelen CurrentProject.Path en rs(0) correct in je sub?
(!! De hoofdmap moet ook al bestaan vooraleer je een ondermap kan maken !!)

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Pagina nummering
« Reactie #29 Gepost op: 06 februari 2013, 20:57:45 »
Hallo SoftAid,

hieronder het gehele onderdeel.

Gr. Math

Private Sub Knop0_Click()
    Dim db As Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb
    'stop alle klantnummers die een factuur hebben in rs
    Set rs = db.OpenRecordset("SELECT DISTINCT [Klant nr], FAKTUURNR FROM [T_PRINT FAKTUUR]")
   
    'ga naar het eerste recordset
    rs.MoveFirst
   
    'zolang er records zijn
    While Not rs.EOF
   
        'druk af voor deze klant
         Dim Bestandsnaam As String
        'Bestandsnaam = FActuurnummer + streepje + klantnummer + ".pdf"
        'MsgBox "Factuurnummer " & rs(1) & " voor klant  " & rs(0)
        'Bestandsnaam = rs(1) & "-" & rs(0) & ".pdf"
         Bestandsnaam = "faktuunr  " & rs(1) & "-" & "klant  " & rs(0) & ".pdf"
       
        DoCmd.OpenReport "AFDRUK FAKTUUR", acViewPreview, , "FAKTUURNR=" & rs(1)
       
        Dim opslag As String
        opslag = "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0)
             
            If Dir(opslag) = "" Then
 
            MkDir CurrentProject.Path & "\" & rs(0) 'Bij foutcode 75 bestaat de directory
 
            Else
           
            End If
           
                     
             
        'Om in het zelfde mapje als de database af te drukken zet je er CurrentProject.Path & "\" voor
       
       'ONDERSTAANDE REGEL SCHRIJFT BESTAND IN -- WINKEL BESTANDEN\FAKTUREN\TESTMAP\PDF\PDF
        DoCmd.OutputTo acOutputReport, "AFDRUK FAKTUUR", acFormatPDF, CurrentProject.Path & "\" & rs(0) & "\" & Bestandsnaam, False
       
       'ONDERSTAANDE REGEL SCHRIJF BESTAND WEG IN -- WINKEL BESTANDEN\FAKTUREN\TESTMAP\PDF\BESTANDSNAAM
       DoCmd.OutputTo acOutputReport, "AFDRUK FAKTUUR", acFormatPDF, CurrentProject.Path & "\PDF" & "\" & Bestandsnaam, False
       
       
       'Sluit het rapport "AFDRUK FAKTUUR" en sla het bestand op
        DoCmd.Close acReport, "AFDRUK FAKTUUR", acSaveNo
         
       'ga naar het volgende record
        rs.MoveNext
         
    Wend
   
    'MsgBox ("Rapporten weggeschreven in d:\winkel bestanden\fakturen\testmap\pdf\.....en PDF bestanden gemaakt ")
     MsgBox " bestanden opgelagen in " & opslag
     
End Sub
Gelogd
Pagina's: 1 [2] 3   Omhoog
 


www.combell.com