Pittiplatsch

Alles klar, es funktioniert.

Und gleich noch eine Frage: Kann ich per VBA den Standardwert eines Textfeldes ändern ? Steh heute irgendwie auf dem Schlauch

In meinem Formular hab ich ein Auswahlfeld und ein Unterformular. Anhand der Auswahl in dem Auswahlfeld soll im Unterformular ein Filter gestzt werden. Kann ich in diesem Filter eine Sortierung einsetzen? Kann ich jetzt in diesem eine Sortierung anhand des Nachnamen des Ansprechpartners einbringen und wenn ja, wie ?????

Danke Leute, es hat auf Anhieb geklappt.

Wie ich Datensätze in eine Tabelle einfüge mit AddNew, das weiß ich ja bereits. Aber wie funktioniert das beim Ändern vorhandener Datensätze? Also, ich habe eine Tabelle mit Zugangsdaten. In dieser sind die Benutzernamen und die dazugehörigen Passwörter gespeichert. Als nächstes habe ich ein Formular mit 4 Feldern. Feld 1: Benutzername Feld 2: aktuelles Passwort Feld 3 und Feld 4 dienen der Änderung des Passwortes, also Feld 3 für das neue Passwort und Feld 4 zur nochmaligen Überprüfung des Passwortes. Alle 4 Felder sind ungebunden. Zusätzlich hab ich einen Button, mit dem ich den Speichervorgang einleiten kann. Meine Frage: Wie mache ich demProgramm jetzt klar, daß der vorhandene Datensatz geändert wird. Mit AddNew kann ich neue Datensätze hinzufügen, kann ich sie damit auch ändern????

Das Problem hat sich ebenfalls erledigt :floet: :floet: Hab herausgefunden, daß bei dem Einbinden des Unterformulars in dessen Eigenschaften eine Verknüpfung zwischen Haupt- und Unterformular erstellt wurde. Nach dem Entfernen dieser Verknüpfung funktioniert der Filter jetzt tadellos :beagolisc

Habe jetzt das ganze mit einemUnterformular gelöst. Das heißt, im Formularkopf des Hauptformulars habe ich Kombifelder und einen Filter-Button. Dem hab ich folgenden Code hinerlegt: Private Sub filter_an_Click() Dim sqlstr As String Dim db As DAO.Database Dim liste As DAO.Recordset Dim pnummer As Integer Set db = CurrentDb If IsNull(nachname) Then MsgBox ("Bitte einen Nachnamen auswählen !") GoTo ende End If If IsNull(ma_vorname) Then MsgBox ("Bitte einen Vornamen auswählen !") GoTo ende End If Set liste = db.OpenRecordset("SELECT * FROM tbl_Personal WHERE Name='" & nachname & "' AND Vorname='" & ma_vorname & "'", dbOpenForwardOnly) pnummer = liste!Personalnummer Me.ufrm_Personaldaten.Form.FilterOn = False Me.ufrm_Personaldaten.Form.Filter = "Personalnummer = " & pnummer & "" Me.ufrm_Personaldaten.Form.FilterOn = True Me.ufrm_Personaldaten.Visible = True ende: End Sub[/PHP] Es wird ja auch gefiltert, allerdings erfolgt die Ausgabe in einer Art und Weise, die so nicht gewünscht war. Ich habe in der DB ca. 1200 Datensätze. Ergebnis nach dem Betätigen sind 1200 Datensätze, allerdings für die nichtzutreffenden Datensätze wird ein leeres Formular angezeigt. Es sollte mir aber nur ein DS angezeigt werden. Was mache ich denn nun schon wieder falsch?

Hat sich erledigt, ich mache es jetzt etwas anders!

Sicherlich mal wieder 'ne ganz einfache Lösung, nur ich komm nicht drauf. Hab ein Formular, in dessen Formularkopf ein Kombi-Feld steht. Dieses enthält alle Nachnamen aus der Personaltabelle. Wenn ich jetzt dort einen Namen auswähle, möcht ich, daß mir nur der entsprechende Datensatz zu diesem Namen im Detailbereich angezeigt wird. Wie mach ich das.

Ich habe ein Formular mit 2 Button, einen für allgemeine Suche und einen für erweiterte Suche. Außerdem hab ich 2 Registerelemente, welche, je nachdem welche Suchart ausgewählt wurde, ein- bzw. ausgeblendet werden. Das läuft alles ganz prima. Wenn ich jetzt aber in dem Element für allgemeine Suche einen Suchbegriff in das dafür vorgesehene Feld eintrage, möchte ich, daß die gesamte DB nach diesem Begriff durchsucht und die Ergebnisse, also die Fundstellen, in Listenform ausgegeben werden. Dazu ist zu sagen, daß es nicht nur 2 oder 3 Tabellen zu durchsuchen gibt. Hat hier irgendjemand 'ne Idee, wie sowas zu realisieren ist?

Es funktioniert jetzt. Hatte nur die Reihenfolge der Befehle nicht beachtet. Ich wollte die Tabelle leeren bevor die Daten komplett in der anderen Tabelle gespeichert waren.

Hab es jetzt geklärt. Letzte Probs mit meiner aktuellsten Frage hier im Forum beantwortet. Beitrag: Laufzeitfehler '2001'

Habe jetzt die Lösung Hier habe ich sie gefunden. Statt Me.ufrm_Vorgangsdaten.Form.Filter = "Personalnummer = ' " & liste!Personalnummer & " ' "habe ich einfach Me.ufrm_Vorgangsdaten.Form.Filter = "Personalnummer = " & liste!Personalnummer & "" geschrieben. Ich weiß nicht, warum, aber es funktioniert. :floet: :floet:

Den Link hatte ich schon gefunden, bringt mich aber nicht sehr viel weiter

Kleiner Nachtrag: Ich arbeite mit Access XP Aber später solldas Programm auch auf Access 2000 lauffähig sein.

Ich habe folgenden Quelltext Private Sub ma_vorname_AfterUpdate() Dim sqlstr As String Dim db As DAO.Database Dim liste As DAO.Recordset Dim pnummer as String Set db = CurrentDb Set liste = db.OpenRecordset("SELECT Personalnummer FROM tbl_Personal WHERE Name='" & nachname & "' AND Vorname='" & ma_vorname & "'", dbOpenForwardOnly) pnummer = liste!Personalnummer Me.ufrm_Vorgangsdaten.Form.FilterOn = False Me.ufrm_Vorgangsdaten.Form.Filter = "Personalnummer = '" & pnummer & "'" Me.ufrm_Vorgangsdaten.Form.FilterOn = True ufrm_Vorgangsdaten.Visible = True End Sub [/PHP] Beim Ausführen des Codes bringt mir das Programm eine Fehlermeldung: Was soll das denn jetzt wieder heißen? HILFE dringend erwünscht

Hi, Maulwurf_der_Schlaue So einfach ist das nicht. Mein Hauptformular heist Vorgangsdaten. Das darin enthaltene Unterformular heißt ufrm_vorgangsdaten. Die Dropdownfelder befinden sich im Hauptformular. Sobald Name und Vorname in diesen DropDownfeldern ausgewählt wurden, soll im Unterformular ein Filter angewendet werden, d.h. es sollen alle Vorgänge zu dieser einen Person selektiert und angezeigt werden.

Hi Reindeer, Das läuft, soweit bin ich. Dein Beispiel werd ich mal ausprobieren

Das im Unterfromular (ufrm_Vorgangsdaten) angesprochene Steuerelement trägt den Namen Personalnummer. Selbst wenn ich jetzt schreibe Forms("Vorgangsdaten").Controls("ufrm_Vorgangsdaten.Personalnummer").Form.Filter = liste Forms("Vorgangsdaten").Controls("ufrm_Vorgangsdaten.Personalnummer").Form.FilterO[/PHP] bringt mir das Programm die Fehlermeldung mit dem Fehlercode 2465. Also an der Namensvergabe liegt es nicht,wäre auch zu schön gewesen.

Hab es jetzt anders versucht. Alserstes hab ich ein Endlosformular erstellt, in dem alle Datensätze enthalten sind. Dann hab ich über VBA folgenden Code verwendet Private Sub ma_vorname_AfterUpdate() Dim sqlstr As String Dim db As DAO.Database Dim liste As DAO.Recordset Set db = CurrentDb Set liste = db.OpenRecordset("SELECT Personalnummer FROM tbl_Personal WHERE Name='" & nachname & "' AND Vorname='" & ma_vorname & "'", dbOpenForwardOnly) Forms("Vorgangsdaten").Controls("ufrm_Vorgangsdaten.Personalnummer").Form.Filter = liste Forms("Vorgangsdaten").Controls("ufrm_Vorgangsdaten.Personalnummer").Form.FilterOn ufrm_Vorgangsdaten.Visible = True End Sub[/PHP] Aber genau hier hänge ich schon wieder. Ich bekomme die Meldung: Das Feld existiert aber !!!!!!!! Was ist nun schon wieder falsch ????? :mod:

Hallo Goos, Die Größe sollte nur meinen Hilferuf verdeutlichen Hallo Maulwurf_der_Schlaue Endlosformular bezeichnet einfach nur ein Formular in Listenform, beidem alle benötigten Datensätze untereinander angezeigt werden, also nicht ein Datensatz = eine Seite

Auf ein neues! Ich habe ein Formular mit 2 Dropdown-Feldern. In diesen werden erst der Nachname und dann der Vorname des gewünschten Mitarbeiters ausgewählt. Die meisten Mitarbeiter bei uns haben mehrere Vorgänge (Jahresverträge, MAE, ...). Meine Frage ist: Wie stelle ich es an, daß nach der Auswahl des Mitarbeiters ein Endlosformular erstellt und angezeigt wird, in welchem die einzelnen Daten angegeben sind?

Wird warscheinlich irgendein Verweis nicht richtig gewesen sein. Danke für den Tip. Nach einigem Rumprobieren funktioniert es jetzt auf beiden Versionen.

Hm, also jetzt komm ich total durcheinander! Hab jetzt ein Beispiel aus dem Internet gezogen zur Selektierung aktueller Geburtstage und das läuft auf Access 2000, mein Programm mit genau der gleichen Abfrage nicht. Es ist doch aber alles korrekt !

Hi, Ich arbeite mit zwei verschiedenen Access-Versionen zum einen mit Access XP und zum anderen mit Access 2000. Mein Programm soll auf beiden Versionen laufen. Und genau dabei gibt es Probleme. Ich habe eine Abfrage nach aktuellen Geburtstagen mit folgendem Aufbau: Als Feldnamen: Als Kriterium: Auf Access XP funktioniert diese Abfrage tadellos. Auf Access 2000 kommt die Fehlermeldung Jetzt steh ich irgendwie auf dem Schlauch. WO LIEGT MEIN FEHLER ?????????