Mai 17, 2021, 15:45:07

Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!


Neueste Beiträge

Seiten1 2 3 ... 10
1
Access Programmierung / Re: Bekomme Script nicht zum L...
Letzter Beitrag von martenk - Heute um 15:44:07
könnt ihr bitte noch einmal schauen

das ist die Tabelle

das das Coding
Private Sub Rechteck124_DblClick(Cancel As Integer)

Dim strSQL As String


Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDatei As String, strWhere As String

    Set db = CurrentDb
    strSQL = "SELECT * FROM AbfrageEigentuemer1"
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
    Do Until rs.EOF
        strDatei = "C:\Rechnung\" & rs.Fields("ObjektNr").Value & ".pdf"
        strWhere = strSQL & " WHERE ObjektNr = " & rs![ObjektNr] & " and Anreisetag = " & rs![Anreisetag]
        DoCmd.OpenReport "AbrechnungEigentuemer", acViewDesign
        Reports![AbrechnungEigentuemer].RecordSource = strWhere
        DoCmd.OpenReport "AbrechnungEigentuemer", acViewPreview, , , acHidden
        DoCmd.OutputTo acOutputReport, "AbrechnungEigentuemer", acFormatPDF, strDatei, False
        DoCmd.Close acReport, "AbrechnungEigentuemer"
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

    Set db = Nothing

End Sub


Anreisetag   Abreisetag   Miete   Name   ObjektNr
09.05.2021   16.05.2021   450   Schal   E13
24.04.2021   01.05.2021   567   Hegen   N7
03.04.2021   10.04.2021   617   Haroon   N4
03.04.2021   10.04.2021   425   Schal   E13
10.04.2021   22.04.2021   918   Sander   K16
03.04.2021   10.04.2021   483,55   Wes   A15
03.04.2021   10.04.2021   451,25   Hani   F12
25.04.2021   06.05.2021   831   Minsel    N1
24.04.2021   01.05.2021   459   Grigo   B2
03.04.2021   10.04.2021   558   Engel   D15
10.04.2021   17.04.2021   617   Haroon    N4
10.04.2021   17.04.2021   617   Sebasti   N2
01.05.2021   08.05.2021   425   Hei   K5
17.04.2021   01.05.2021   0   Althau   L18
01.05.2021   08.05.2021   459   Fuh   B4
27.03.2021   10.04.2021   850   Schulz   E6
2
Access Programmierung / Re: Bekomme Script nicht zum L...
Letzter Beitrag von DF6GL - Heute um 15:13:42
Hallo,


versuch es so:
.
.
.
      strDatei = "C:\Rechnung\" & rs.Fields("RE").Value & ".pdf"
      strWHERE = "RE = " & rs!RE

      DoCmd.OpenReport "ABR_01_Rechnung", acViewPreview, , strWhere, acHidden
      DoCmd.OutputTo acOutputReport, "ABR_01_Rechnung" , acFormatPDF, strDatei, False
      DoCmd.Close acReport, "ABR_01_Rechnung"
.
.
.



siehe auch :  https://www.youtube.com/watch?v=kQjfbAq3nAY
3
Access Programmierung / Re: Bekomme Script nicht zum L...
Letzter Beitrag von martenk - Heute um 14:53:07
alles hinbekommen - lieben Dank meine Herren

nun habe ich ein Verständnis Problem

Im Moment geht das tool jeden datensatz durch und legt eine Datei an - nur sind in dieser Datei alle zu erstellenden Datensätze drin

ich vermute mal es liegt hier dran
strWhere = strSQL & " WHERE miete = " & rs![Miete]

mein eindeutiges Feld ist Objekt-Nr

wenn ich das anstelle miete eintrage, dann kommen noch Meldungsfenster Abfrage - wie pharse ich Objekt-Nr richtig
4
Access Programmierung / Re: automatische E-Mail senden...
Letzter Beitrag von DF6GL - Heute um 14:35:12
Hallo,


führe die Funktion von Hand im VBA-Editor aus und setze vorher einen Haltepunkt an den Anfang des Codes.  Fahre dann mit Einzelschritt weiter und prüfe dabei den Inhalt aller Variablen und die Logik des Code-Ablaufs.


M. E. fehlt im Body oder Betreff die Angabe, um welches Fahrzeug und welche Ladung (mit Datum) es sich bei einer individuellen Mail überhaupt handelt.



Prüfe zudem, ob der SQL-String (Recordset-Abfrage) überhaupt Daten liefert (liefern kann), indem das SQL-Statement in den Abfrage-Entwurf in die SQL-Ansicht einkopiert und ausgeführt wird.

5
Access Programmierung / Re: automatische E-Mail senden...
Letzter Beitrag von Newbie12 - Heute um 14:19:05
Hallo,

.To=Test@hotmail.com
.Subject=Aufladung Reminder"
.Body="Das ist eine automatische Erinnerung"
6
Access Programmierung / Re: automatische E-Mail senden...
Letzter Beitrag von DF6GL - Heute um 14:10:00
Hallo,


was ist der Sinn eines "leeren" MailItem-Objektes?


Zitat.
.
.

If Not rs.EOF And Not rs.BOF Then
rs.MoveFirst

Set myOutlApp=New Outlook.Application


Do While Not rs.EOF


Set myMail=myOutlApp.CreateItem(olMailItem)

With myMail
.To=  ?? ?? ?? ?? ?? ?
.Subject= ?? ?? ?? ?? ?? ?
.Body=  ?? ?? ?? ?? ?? ?? ?
.Send

End With

Set myMail=Nothing


rs.Edit
rs.MoveNext

Loop

Set myOutlApp=Nothing


End if
.
.
.

7
Access Programmierung / Re: automatische E-Mail senden...
Letzter Beitrag von Newbie12 - Heute um 14:00:51
Hallo, mein Modul-Code

Option Compare Database
Option Explicit

Public Function fctSendEmails()
Dim db As DAO.Database, rs AS DAO.Recordset
Dim myMail As Outlook.MailItem, myOutlApp As Outlook.Application
Set db = CurrentDB()
Set rs = db.OpenRecordset("SELECT Fahrzeuge.fahrzeug_laden_am FROM Fahrzeuge WHERE Fahrzeug_geladen_am+42=Date()")
If Not rs.EOF And Not rs.BOF Then
rs.MoveFirst
Do While Not rs.EOF
Set myOutlApp=New Outlook.Application
Set myMail=myOutlApp.CreateItem(olMailItem)
With myMail
.To=
.Subject=
.Body=
.Send
End With
Set myMail=Nothing
Set myOutlApp=Nothing
rs.Edit
rs.MoveNext
Loop
End if
rs.Close
Ser rs=Nothing
Set db=Nothing
End Function
8
Access Programmierung / Re: Bekomme Script nicht zum L...
Letzter Beitrag von martenk - Heute um 13:56:21
lieben Dank für die Info - ja genau - dann kommt der Fehler
9
Access Programmierung / Re: Bekomme Script nicht zum L...
Letzter Beitrag von PhilS - Heute um 13:51:26
Zitat von: martenk am Heute um 13:40:43Hi - gibt es da einen sinnigen Befehl um alles rüber zu bekommen -
Nein, das machst du manuell über "Externe Daten" - "Importieren" ...

Zur Klarstellung mal die Frage: Wenn du einen Verweis auf "MS Office Access Database Engine" setzt, kommt "Fehler beim laden der DLL"?
10
Access Programmierung / Re: Bekomme Script nicht zum L...
Letzter Beitrag von martenk - Heute um 13:40:43
Hi - gibt es da einen sinnigen Befehl um alles rüber zu bekommen -
Seiten1 2 3 ... 10