_Nora_

ok, ich kann gucken, wie viele Steuerelemente meine Form hat, das kann ich auch zählen, wenn ich sie öffne... und die Namen von den Eigenschaften der Steuerelemente will icha uch nicht. ich möchte gerne den Inhatl der Steuerelemente auf der Form haben.

Hallo, ich habe die hilfe durchgelesen, nur leider hat mir das nciht geholfen... weil da irgendwie nicht drin steht, wie man damit arbeiten kann... was für Informationen braucsht du denn? Dann kann ich die vllt auch geben. gruß nora

hallo, so, ich habe jetzt gemerkt, dass nur die Form zeitaktuell ist, d.h. ich muss die Daten aus der Form bekommen... mein Versuch: Public Sub form_auslesen() Dim strFormName As String Dim strSteuerelement As String Dim zaehler As Integer strFormName = "Form1" strSteuerelement = "Feld3" DoCmd.OpenForm (strFormName) For zaehler = 0 To 4 MsgBox Forms(strFormName).Controls(strSteuerelement).Properties(zaehler) Next zaehler DoCmd.Close acForm, strFormName End Sub Wenn ich jetzt: MsgBox Forms(strFormName).Controls(zaehler).Visible eingebe, dann zeigt er mir 4mal MsgBox:wahr an. Aber wenn ich MsgBox Forms(strFormName).Controls(strSteuerelement).Properties(zaehler).Value eingebe, zeigt er mir 2* msgbox:Feld3 (also den Namen) und dann 1* eine wirre Zahl (die nicht Inhalt des Feldes ist, dh in der Form nicht angezeigt wird) und 1* eine leere msgbox könnt ihr mir da ncoh mal helfen? vielen dank, nora

Also, meine Tabellen sind alles ODBC-Tabellen, die eingebunden sind. Also dynamische Tabellen, soweit habe ich herausgefunden, dass ich das anderst behandeln muss als statische Tabellen... mein Codeversuch: Public Function Nummer_auslesen() As Integer Const conQueryName = "ein Name" Dim db As DAO.Database Dim rst As DAO.Recordset Dim qry As DAO.QueryDef Set db = CurrentDb 'Neue Abfrage erstellen Set qry = db.CreateQueryDef(conQueryName) 'Zuerst Connect vereinbaren, dann SQL zuweisen 'sonst wird die SQL anweisung von Jet kontrolliert qry.Connect = "ODBC;DSN=weiß nicht, was hier rein muss" qry.SQL = "SELECT Feld0 From Tabellen_Name" qry.ReturnsRecords = True db.QueryDefs.Refresh Set rst = qry.OpenRecordset() Do While Not rst.EOF If (Feld1= "1100033" & Feld2 = Feld3 & Feld4 = Feld5) Then Nummer_auslesen = Feld0 End If Loop rst.Close End Function leider erkennt er meine Felder nicht. Wie kann ich die Verknüpfen? außerdem habe ich hier noch nciht mit der Abfrage gearbeitet, sondern ohne... leider habe ich generell keine Ahnung, wie ich mit VBA auf eine Abfrage zugreifen kann... Dazu kann ich nicht viel sagen, ist aber ein guter Einwand, ich sag es dem Kollegen... liebe grüße, nora

Hallo, zwischenstand: ein Kollege hat die Zeitabfrage gemacht, die habe ich jetzt als Grundlage genommen und mein Kriterium hinzugefügt, funktioniert auch, also der zeigt mir die an, die das Krieterium erfüllen. Wie kann ich jetzt aus dem Ergebnis der Abfrage, den Namen filtern, und das Senden der Mail starten? vielen dank für eure hilfe! nora

Hallo noch mal, so, ich hab jetzt nen groben Plan, was ich machen will... Ich habe zwei Arrays erstellt, in denen die Gruppen und die Meister eingetragen sind. Wenn sich jetzt ein Mitarbeiter im BDE auf einen bestimmten Status meldet, dann soll Access das erkennen (hat ja immer die aktuelle Tabelle) und über die Mitarbeiter-Nr. die Gruppe filtern (auch in einer Tabelle hinterlegt), anhand der Gruppe kann ich dann den zugehörigen Meister erkennen und hab somit die Email-Adresse. Jetzt kann ich die Email verschicken So, nun zur umsetzung: -Wie kann ich das machen, dass Access (solange die DB geöffnet ist) alle 2 Minuten (oder so) diese Abfrage durchführt, ob der Status gemeldet wurde? ich habe irgendwas von Zeitschleifenabfrage oder so gelesen... -wie kann ich die Mail versenden, ohne das irgendwer das mitbekommt? zZ ist mein Email-code mit ClickYes, aber das sieht der User ja auch... ich hoffe ich nerve nicht und ihr könnt mir helfen, danke schon mal im vorraus, nora

Hallo, Die Mitarbeiter melden das im BDE, d.h. das ich nur eine "lese-tabelle" in access einbinde, aber meine Mitarbeiter nicht damit arbeiten... Planänderung: die Datenbank ist immer aktiv, bzw. während der Arbeitszeit (die eigentlich ja auch nur interessiert) ist mindestens ein User auf der DB, bedeutet, das ich da doch mehr machen kann oder? danke für die Hilfe, nora

Hallo, danke für deine schnelle Antwort. was ist Postgres? also, noway? verdammt, ich mochte meinen Kopf schade, naja, dann muss ich meinen Chef davon abbringen gruß, nora

Hallo, wie ich eine Email verschicke ist mir mittlerweile klar und das funktioniert jetzt auch alles. Nun möchte ich aus einer Tabelle, die dauerhaft erneuert wird, d.h. die Mitarbeiter melden dort ihre Aufträge, IMMER wenn ein bestimter Status gemeldet wird eine Email verschicken. Wie kann ich das machen, dass es dauerhaft funktioniert, auch wenn ich nicht an der Datenbank arbeite? Geht das überhaupt? Liebe Grüße, nora P.S. ich hoffe euch reichen die Informationen

kannst du mir den Code zum erzeugen dieser Text-Mail schreiben? Das habe ich bis jetzt noch nicht gefunden, in den Foren steht immer nur, das der Creator Speicherort und -name abfragt, egal wie man ihn programmiert. kannst du mir auch hierfür den Code senden? ich bin noch nicht so fit in VBA, ich habe letzten Sommer damit angefangen, aber immer nur so "hier ist eine Aufgabe - mach mal" dann habe ich im Internet gesucht und gefunden. Da ich C, C++ und C# im Studium lerne, fällt mir das programmieren nicht so schwer, aber leider kenne ich die VBA-Syntax nicht ausreichend Danke für deine Hilfe, Nora

klingt erst mal ganz gut, kann ich das aus Access heraus löschen? das geht leider nicht, weil der User nichts von der E-Mail mitbekommen soll... das ganze soll so zusagen im Hintergrund laufen... d.h. wenn ein User eine bestimmte Funktion ausführt (bei mir ein Click-Ereignis, die eine Aktualisierung durchführt) soll mir eine E-Mail mit geschickt werden, in der der aktuelle Bericht/ ein aktuelles Formular als Datei angehängt wird. mir ist dabei egal, ob Excel/Word/pdf/rtf/snapshot hauptsache der User bekommt es nicht mit. danke für deine schnelle Antwort, nora

Hallo, ich möchte aus Access heraus einen Bericht als Email anhang versenden. Da ich das an verschiedenen stellen machen muss, habe ich ein Moudl sendMail erstellt, dem jetzt die entsprechenden Daten mitgegeben werden soll. ich habe schon viele Foren durchsucht, finde aber immer nur angaben mit Dateipfaden, aber ich will den Bericht ja nicht speichern, sondern direkt aus Access heraus als pdf verschicken. Ist das überhaupt mölich? mein bisheriger code: Option Compare Database Public Sub send_Mail(empfaenger$, betreff As String, text As String, Optional cempfaenger As String, Optional pfad As String) Dim objwShell As Object 'aktiveirt ClickYes Set objwShell = CreateObject("wscript.shell") objwShell.Run ("""C:\Programme\Express ClickYes\ClickYes.exe"" -activate") Dim myMail As Outlook.MailItem Dim myOutlApp As Outlook.Application ' Ein neue Outlook-Instanz und ein neues Mailitem erstellen Set myOutlApp = New Outlook.Application Set myMail = myOutlApp.CreateItem(0) With myMail ' Den Empfänger der Mail festlegen .To = empfaenger ' Einen CC-Empfänger hinzufügen .CC = cempfaengeer ' Den Betreff der Mail festlegen .Subject = betreff ' Text in die Mail einfügen .Body = text ' Ein Attachment aus dem Dateisystem anhängen If Not pfad = "" Then .Attachments.Add pfad End If ' Die Email abschicken .Send ' Anstatt die Email sofort zu senden, kann man auch die Display-Methode des ' Mailitems verwenden, um die Email anzuzeigen und sie vom Benutzer manuell ' verschicken zu lassen. End With ' Objektvariablen zerstören und Speicher freigeben Set myMail = Nothing Set myOutlApp = Nothing 'beendet ClickYes objwShell.Run ("""C:\Programme\Express ClickYes\ClickYes.exe"" -stop") End Sub und mein Funktionsaufruf: 'Email_var erstellen Dim empfaenger As String Dim betreff As String Dim text As String Dim pfad As String 'Zuordnung empfaenger = "meine Adresse" betreff = "betreff" text = "Inhalt" pfad = "Berichtname" Call sendMail.send_Mail(empfaenger, betreff, text, , pfad) vielen Dank im vorraus nora