collapse

* Benutzer Info

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

* Wer ist Online

  • Punkt Gäste: 51
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13947
  • stats Beiträge insgesamt: 66274
  • stats Themen insgesamt: 8933
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Neueste Beiträge

Seiten: 1 2 [3] 4 5 ... 10
21
Tabelle/Abfrage / Lagerverwaltung
« Letzter Beitrag von martie01 am Juni 16, 2018, 08:37:07 »
Hallo,
Könnte mir jemand bitte ein Access Vorlage (Datenbank) zur Lagerverwaltung zusenden?
Ich brauche etwas mit Bestellung, Wareneingang, Rücklieferung.

Danke
22
Bericht / Re: Grauer Rand bei Bildern
« Letzter Beitrag von thomas.klammer am Juni 16, 2018, 08:29:16 »
Hallo,

unglücklicherweise vertreibt diese Firma das Produkt nicht mehr. Auch der Hersteller der Anwendung scheint im Internet nicht mehr erreichbar zu sein.

Gibt es andere Möglichkeiten?

lg Thomas
23
Access Programmierung / Re: Bericht auf Laufwerk xy speichern
« Letzter Beitrag von Beaker s.a. am Juni 16, 2018, 01:13:57 »
Hallo Udo,
Zitat
<--- hier müsste jetzt strPfad eingefügt werden .....??
Verstehe ich nicht, den Pfad hast du doch oben ermittelt.
Ausserdem brauchst du den Pfad dich nicht zu öffnen. OutputTo
speichert doch so oder so in den angegebenen Pfad.
gruss ekkehard
24
Access Programmierung / Bericht auf Laufwerk xy speichern
« Letzter Beitrag von Icemann1970 am Juni 16, 2018, 00:04:07 »
Hallo zusammen,
ich habe ja einen Befehl, der auf einem Laufwerk xy [Me.speicherort] einen Ordner zu meiner ID sucht bzw anlegt. Das läuft prima, nun möchte ich einen Bericht (Beispiel zu ID 100 [Geräte_Nummer]) automatisch in den Ordner auf Laufwerk xy Pfad 100 speichern.
     Dim strPfad As String
     Dim strVerzeichnis As Integer
 
strPfad = Me.speicherort & Me.Geräte_Nummer

  If Dir(strPfad, vbDirectory + vbHidden) <> "" Then
      MsgBox "Der Ordner Unterlagen mit der Gerätenummer ist schon vorhanden und wird geöffnet."
  Else
     
  strVerzeichnis = MsgBox("Der Ordner mit der Gerätenummer ist nicht vorhanden. Soll ein neuer Ordner angelegt werden?" & "Ja oder Nein auswählen", vbYesNo)
     
     
      If strVerzeichnis = vbYes Then
      MkDir strPfad
      MsgBox "Ordner für Unterlagen mit der Gerätenummer wurde angelegt!"
      Else
      MsgBox "Der Bericht wurde nicht gespeichert"
      Exit Sub
  End If
End If
 
Dim strPfad1  As String
Dim strVerzeichnis1 As String

strPfad1 = Me.speierort
strVerzeichnis1 = strPfad1 & Me.Geräte_Nummer
If Dir(strVerzeichnis1, vbDirectory + vbHidden) <> "" Then
FollowHyperlink strVerzeichnis1

******

Else
    FollowHyperlink strPfad1
End If
Exit Sub
Nun ist der richtige Ordner geöffnet.
In diesem möchte ich mit dem Code an der Stelle ****** einfügen
DoCmd.OpenReport "Verantwortlich", acViewReport, , "[Geräte Nummer] = '" & Me![Geräte Nummer] & "'"    '(,acHidden)<-- wird wenn es funktioniert unsichtbar
DoCmd.OutputTo acOutputReport, "Verantwortlich", acFormatPDF   '<--- hier müsste jetzt strPfad eingefügt werden .....??
DoCmd.Close acReport, "Verantwortlich", acSaveNo
das speichern realisieren.
Ich müsste in der zweiten Zeile noch den Verweis zu dem geöffnetem Ordner hinterlegen, denn es erscheint das Fenster in dem ich gefragt werde wo ich den Bericht speichern möchte. wenn die Funktion okay ist kann man den speicherort auch kompl in Hidden laufen lassen ??
Könnt ihr mir weiterhelfen?
25
Tabelle/Abfrage / Re: Eingabe in Kombi in einem Ufo erzwingen
« Letzter Beitrag von Beaker s.a. am Juni 15, 2018, 18:57:15 »
Gib dem Kombi doch den Wert als Standard mit.
26
Microsoft Outlook / Re: Outlook - Neue Email-Nachricht mit Signatur öffnen
« Letzter Beitrag von Pergus am Juni 15, 2018, 15:45:02 »
Thema hier gelöst: http://www.access-o-mania.de/forum/index.php?topic=23414.0

Lg aus Südtirol
Gustav
27
Jetzt funktioniert alles inklusive Signatur!

Geändert habe ich lediglich die Zeilen, die ich mit '### markiert habe, siehe hier:

Option Explicit

Sub Mail_Sheet_Outlook_Body()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Don't forget to copy the function RangetoHTML in the module.
'Working in Excel 2000-2016
Stop
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    Dim olOldBody As String '###
   
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set rng = Nothing
    Set rng = ActiveSheet.UsedRange
    'You can also use a sheet name
    'Set rng = Sheets("YourSheet").UsedRange

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Projekt: "
        .GetInspector.Display
        olOldBody = .HTMLBody '###
        .HTMLBody = RangetoHTML(rng) & "<br><br>" & olOldBody
'        .HTMLBody = .HTMLBody & .HTMLBody
        Stop
'        .Display   'or use .Send

    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2016
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).name, _
         Source:=TempWB.Sheets(1).UsedRange.address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

(Quelle: http://www.rondebruin.nl/win/s1/outlook/bmail1.htm)

Für alle die das ebenfalls brauchen können!  ;)

Lg aus Südtirol
Gustav
28
Microsoft Outlook / Outlook - Neue Email-Nachricht mit Signatur öffnen
« Letzter Beitrag von Pergus am Juni 15, 2018, 14:46:34 »
Hallo Outlook-Guru's,

weiß wer wie man über VBA in eine neu geöffnete Email-Nachricht eine Signatur einfügt?
Die Signatur ist gespeichert als "Signatur-personalisiert".

Danke schon mal im Voraus!

Lg aus Südtirol
Gustav
30
Ich hab's  ;D

auf folgender Web-Seite wurde ich fündig: http://www.rondebruin.nl/win/s1/outlook/bmail1.htm

Hier die Code dazu, genau wie ich's haben wollte:

Sub Mail_Sheet_Outlook_Body()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Don't forget to copy the function RangetoHTML in the module.
'Working in Excel 2000-2016
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
   
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set rng = Nothing
    Set rng = ActiveSheet.UsedRange
    'You can also use a sheet name
    'Set rng = Sheets("YourSheet").UsedRange

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = RangetoHTML(rng)
        .Send   'or use .Display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2016
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

Das einzige was noch fehlt ist die Signatur... werde dazu ein neues Thema eröffnen!

Lg aus Südtirol
Gustav
Seiten: 1 2 [3] 4 5 ... 10