JayN

Hier einmal der Code: Dim result As Variant Dim usedProfile As String Dim ol As Outlook.Application Dim olns As Object Dim folPosteingang As Object Dim Nachricht As MailItem Sub Mailen() usedProfile = "MS Exchange-Einstellungen" result = SetOutlook(usedProfile, "") ' Outlook setzen If result = 0 Then Exit Sub ' Weitere Verarbeitung abbrechen. ' Outlook kann nicht benutzt werden. Set Nachricht = ol.CreateItem(olMailItem) Nachricht.Subject = "Betreff" Nachricht.Body = "Mailtext" Nachricht.Attachments.Add "C:\Anhang.xls", olByValue, 1 Nachricht.Display ' Anzeigen der Nachricht -> mußt Du wegnehmen, ' wenn die Mail nicht angezeigt werden soll End Sub Public Function SetOutlook(profile As String, pwd As String) As Integer On Error Resume Next Set olns = Nothing Set ol = CreateObject("Outlook.Application") ' Outlook-Prozess wird gestartet Set olns = ol.GetNamespace("MAPI") ' MAPI-Session wird gesetzt ' Einloggen in MAPI-Session olns.Logon profile, pwd, False, False 'True, False (Use in Firma) If olns.Session.CurrentUser Is Nothing Then SetOutlook = 0 ' olns.Logoff Set olns = Nothing ' MAPI-Objekt freigeben Set ol = Nothing ' Outlook-Prozess freigeben ' Outlook wird terminiert! Else SetOutlook = 1 End If End Function

In wie weit soll er es nicht merken? Soll er nur nicht sehen WIE sie verschickt wurde? Oder soll er sie auch unter "Gesendete Objekte" nicht sehen? Ich habe vor kurzem etwas zum Mailversand unter VBA in Access 2000 programmiert, weiß aber nicht, ob das auch in VB geht. Kann ja mal gleich den Code rauskrammen und posten. Gruß JayN

Mit der Asc-Funktion kannst Du Dir den Ascii-Wert eines Zeichens ausgeben lassen und diesen kannst Du dann vergleichen oder, wenn es wirklich notwendig ist, mit der Hex-Funktion in die hexadezimale Zahl umwandeln. Hoffe, das hilft. Gruß JayN

Wie wär's wenn Du die Hex-Funktion benutzen würdest? Gruß JayN

Anstoss! JayN

Ups, hatte ich irgendwie überlesen. Eine andere Methode fällt mir im Moment dazu nicht ein. JayN

Hallo! Mach doch einfach eine Abfrage, die die Daten, die Du brauchst aus beiden Tabellen zusammenstellt. Dann kannst Du Dich auf die Abfrage beziehen. Gruß JayN

Hallo, ich habe wieder mal ein Problem. Ich habe ein Programm geschrieben, dass einen Bericht als eine Excel-Tabelle exportiert. Diese Tabelle soll jetzt die Daten an eine weitere Tabelle weitergeben und das funktioniert nicht. Wie stelle ich das an? Mein Code: Dim xlAnw1 As Excel.Application Dim xlAnw2 As Excel.Application Dim xlBuch1 As Excel.Workbook Dim xlBuch2 As Excel.Workbook Dim xlArbBlatt1 As Excel.Worksheet Dim xlArbBlatt2 As Excel.Worksheet Sub Exportieren() Dim i, j, y, z As Integer On Error GoTo ErrorHandler Set xlAnw1 = GetObject(, "Excel.Application") Set xlAnw2 = GetObject(, "Excel.Application") On Error GoTo 0 'Exportieren des Reportes in eine lokale temporäre Excel-Datei DoCmd.OutputTo acOutputReport, "EntladungContainerIst", acFormatXLS, "J:\Access\temp.xls", 0 Set xlBuch1 = xlAnw1.Workbooks.Open("J:\Access\temp.xls", , False) Set xlArbBlatt1 = xlBuch1.Worksheets(1) Set xlBuch2 = xlAnw2.Workbooks.Open("J:\Access\standard.xls", , False) Set xlArbBlatt2 = xlBuch2.Worksheets(2) xlArbBlatt1.Activate xlArbBlatt2.Activate y = xlArbBlatt1.UsedRange.Columns.Count z = xlArbBlatt1.UsedRange.Rows.Count 'Kopieren der Daten aus der temporären Datei in die Standardtabelle For i = 1 To y For j = 1 To z xlAnw2.Cells(j, i) = xlAnw1.Cells(j, i) Next j Next i 'Schließen der beiden Dateien xlBuch1.Save xlBuch1.Close xlBuch2.Save xlBuch2.Close xlAnw1.Quit xlAnw2.Quit 'Löschen der temporären Datei Kill "J:\Access\temp.xls" Exit Sub ErrorHandler: Set xlAnw1 = CreateObject("Excel.Application") Set xlAnw2 = CreateObject("Excel.Application") Resume Next End Sub Wenn er nun in das Innere der For-Schleifen gelangt, kommt diese Fehlermeldung: Laufzeitfehler '1004' Anwendungs- oder objektdefinierter Fehler. Also, was mache ich falsch? Gruß JayN

Habs gerade in diesem Moment auch selber rausgefunden..... unter Access 97 hab ich es sofort gefunden unter 2000 stand ich auf dem Schlauch. Manchmal hat man auch ein riesiges Brett vorm Kopf. Trotzdem vielen Dank, man kann sich wie (fast) immer auf das Forum verlassen. Gruß JayN

Hallo, brauche mal wieder eure Hilfe, stehe nämlich etwas auf dem Schlauch. Habe die Suchfunktion genutzt, aber nichts gefunden. Wie kann ich Access mit Hilfe eines VBA-Moduls eine Datei, die lokal gespeichert ist, löschen? Gruß JayN

Alles klar, sorry für die Störung. Das Problem ist gelöst, und zwar hatte ich durch vorhergehende Tests, bei denen das "Quit" noch nicht eingebaut war 8 Excel-Prozesse laufen. Also, öfter mal den Task-Manager aufrufen... JayN

Hallo zusammen, meine Aufgabenstellung war, Daten aus einer Access-Datenbank mir Hilfe eines VBA-Moduls in eine bestehende Excel-Tabelle zu schreiben. So weit, so gut. Hat geklappt. Jetzt ist aber das Problem, dass wenn ich diese Excel-Tabelle einfach so öffnen möchte, Excel die Warnmeldung herausgibt, dass diese Tabelle bereits von mir geöffnet ist und ich sie nur schreibgeschützt öffnen kann. Dabei ist die Tabelle gar nicht geöffnet und die Access-Datenbank ist auch geschlossen. Was mache ich falsch? Das ist der Code: Dim xlAnw As Excel.Application Dim xlBuch As Excel.Workbook Dim xlArbBlatt As Excel.Worksheet Sub ExcelA() Set xlAnw = CreateObject("Excel.Application") Set xlBuch = xlAnw.Workbooks.Open("E:\TEST.xls") Set xlArbBlatt = xlBuch.Worksheets(2) SendKeys ("%j") 'benutze ich um die Speicherabfrage zu bejahen. xlAnw.Cells(21, 1) = "TEST" xlBuch.Save xlBuch.Close xlAnw.Quit End Sub Danke für die Hilfe. JayN

Ich weiß nicht, ob das so ganz das Richtige ist, aber vielleicht hilft es ja weiter. Anderer Thread JayN

Na, das ist ja wohl ja Ding! Wir haben sogar die Erlaubnis vom Chef gekriegt Heimarbeit zu machen, damit wir zu Hause während der Arbeitszeit für die Prüfung lernen konnten. JayN

Eine weitere kleine Frage in dem obengenannten Kontext: Wie kann ich aus Access eine Excel-Arbeitsmappe öffnen? Wie heißt der Befehl um auf den Menüeintrag "Datei -> Öffnen" zuzugreifen?` Gruß JayN

Die Frage ist, wie Du die Kostenrechnung definierst. Ist es eine Kostenplanung so gehört sie an den Anfang der Doku, vor die Projektdurchführung. Ist es eine Berechnung der (tatsächlich) angefallenen Kosten (also eine nachträgliche Berechnung), so gehört die Kostenrechnung hinter die Projektdurchführung. Ich habe mich für die erste Variante entschieden, da unsere IHK (Ostwestfalen zu Bielefeld) ganz gerne einen Abschnitt namens "Ablauf- und RessourcenPLANUNG" haben möchte. Und da gehört, meiner Meinung nach, auch eine KostenPLANUNG hin. Gruß JayN

Hallo, ich muss Daten aus einem Access-Bericht in eine vordefinierte Excel-Tabelle übertragen und diese per Mail verschicken. Eignet sich dazu der DDE unter Access? Kann ich damit Daten in Excel bereitstellen? Wenn nicht, wie kann ich das anstellen? Wenn ja, wie funktioniert DDE? Gruß JayN

Seh ich auch so. Die Zeit war wirklich sehr knapp. Die Lohnabrechnung war, meiner Meinung nach, im Gegenteil fair gewesen, da man schon abschätzen konnte, dass sie drankommt und alles wirklich fast selbsterklärend war. Ich brauchte mich nur an meine eigene Abrechnung zu erinnern. Was ich außer den Unterschriften unfair fand, waren die Brandschutzvorschriften und Sicherheitsvorschriften beim Stromunfall.

Das hätte ich jetzt auch gefragt. Hab mit 1 Verlust gerechnet. Habe nur die 11-Kombination abgezogen.

Hallo, da das später zu erstellende Programm an ein bestehendes System angebunden werden soll, orientierte sich auch mein Konzept/Pflichteheft an dem Pflichtenheft zu diesem System. JayN

Hallo, was heißt denn "Analyse" genau? Also ich mußte auch "kein Tool entwickeln", sondern nur ein Kozept für eine angedachte Anwendung schreiben. Gruß JayN

327...

IHK Ostwestfalen zu Bielefeld: "Bitte reichen Sie dann nach abgeschlossener Projektbearbeitung Ihre Dokumentation (in 2 facher Ausfertigung max. 10 Seiten zzgl. Anlagen) umgehend bei der IHK ein (spätester Abgabetermin ist der 5. Tag nach dem im Antrag beschriebenen Durchführungszeitraumende), damit der Prüfungsausschuss sofort mit der Bewertung beginnen kann. JayN

Habe bei der IHK angerufen: Es zählen nur die Werktage. JayN

Hast Du da eine Quelle zu? JayN