Pittiplatsch

Naja, so kompliziert nun auch wieder nicht Über 'n bissel Code bezüglich der Schleife wär ich schon ziemlich froh. Nur, wie bekomm ich das Ergebnis (die Felder mit Ja) in das nächste DropDownfeld geladen? Einfach , oder wie

Hm, die Verbindung zur Datenbank hab ich mit VBA einfacher gelöst dim db as DAO.Database Dim rs As DAO.Recordset set db = CurrentDB() Set rs = db.OpenRecordset("SELECT * FROM Suche", dbOpenForwardOnly) .... [/PHP] Also ohne die ganzen const - Variablen. In der Tabelle Suche steht alles zeilenweise drin [u]Nr.....Bereich......Kriterium1......Kriterium2[/u] 1..........a...............ja.................nein 2..........b...............nein..............ja 3..........c...............ja.................ja usw. Dabei ist zu beachten, daß die einzelnen Kriterium-Spalten als Ja/Nein-Feld definiert sind.

Hast du dafür irgend ein Beispiel? Die Idee mit der Schleife ist mir auch schon gekommen, aber mit der Umsetzung haperts etwas.

Tja, ich mag es kompliziert. Hier mein Problem: Ich möchte eine Suche entwickeln, die auf der Basis einer Tabelle ihre Suchkriterien definiert. Ich hab mehrere Bereiche und verschiedene Kriterien. In der Tabelle ist es so aufgebaut, das in der ersten Spalte die Bereiche stehen. Die nächsten Spalten tragen die Namen der verschiedenen Suchkriterien, welche als Ja/Nein definiert sind. Bereich....Kriterium1....Kriterium2....Kriterium3 Bereich1.......X................X...............X Bereich2.......X................X Bereich3.......X Als nächstes habe ich ein Suchformular mit 3 Feldern. 1. Feld: Textfeld für Suchbegriff 2. Feld: DropDownFeld für Suchbereich 3. Feld: DropDownFeld für Kriterium Mein Problem liegt jetzt darin, das 3. Feld zu füllen. Wenn ich im 2. Feld einen Bereich ausgewählt habe, soll das Programm prüfen, welche Spalten zu dem gewählten Bereich mit "Wahr" gefüllt sind, und deren Spaltenüberschrift in das 3. Feld eintragen. Gibt es irgendeine Lösung dafür, oder muß ich die Kriterien vielleicht doch in eine 2. abelle ausgliedern und über ein Autowertfeld mit der Tabelle für die Suchbereiche verknüpfen?????

Hab jetzt selbst 'ne Lösung Option Compare Database Private Sub vo_ansprechpartner_NotInList(NewData As String, Response As Integer) On Error GoTo fehler Dim db As DAO.Database Dim rs As DAO.Recordset Response = acDataErrAdded Set db = CurrentDb Set rs = db.OpenRecordset("tbl_Ansprechpartnerdaten", dbOpenDynaset) rs.AddNew rs!nachname = NewData rs.Update rs.Close Set rs = Nothing db.Close ende: Exit Sub fehler: MsgBox Err.Description, 16, "Fehler" Resume ende End Sub [/PHP]

Danke,jetzt klappts sowie es klappen soll. Sonst hätte ich folgendes machen müssen: Und das hätte mir bei unseren Rechnern auf Arbeit doch irgendwie gewaltig das Programm ausgebremmst

Sorry, Fehler lag wiedermal bei mir. Ich hab nach dem nochmals das Unterformular angesprochen, das wurde mir übelgenommen :floet:

Meinst du damit das komplette Formular? Hab diesen Befehl versucht, auf das Unterformular zu verwenden und das hat nicht geklappt. Ach ja,mit refresh auf das komplette Form klappt es insofern, daß es mir die vorhandenen Felder leert, aber ich hab immernoch mehrere Zeilen imUnterformular. genau das wollte ich aber umgehen. Nach dem Speichern und allem soll im Unterformular nur noch eine Zeile zu sehen sein.

Hab hier einen Code - Schnipsel: Soweit ist das ja auch ganz OK, aber wie umgeh ich diese unnötige Abfrage, von wegen nicht in Liste und ob ich die Daten in die entsprechende Tabelle übernehmen will?

Hab das Problem jetzt gelöst. Nach dem alle Daten in den entsprechenden Tabellen gespeichert sind, geb ich die folgenden Befehle. Das letzte Problem,welches ich jetzt noch hab,ist das Neuladen des Unterformulars. Hab ich bei einer PErson mehrere Vorgänge, hab ich im Unterformauch dementsprechend mehrere Zeilen. Nach dem Speichern hab ich diese Zeilen immernoch, nur das in den einzelnen Feldern drinnsteht. Gibt es da einen speziellen Refresh-Befehl?

Hallo Meenzer, hier der entsprechende code: Antwort des Programms Ich hab irgendwie keine Ahnung, wo der Fehler liegt! :confused: :confused:

Das mit demAbfragen der Felder funzt ja jetzt. Die Daten werden auch ordentlich in die andere Tabelle überragen. Wie kann ich jetzt aber die einzelnen Datensätze löschen? Hab jetzt folgendes versucht: Der blaue Teil funktioniert, dieses Delete aber nicht. Wielautet hier der richtige Befehl zum Löschen eines Datensatzes?

Jetzt weiß ich, warum diese Meldung kommt. Hab im Code doch die Zeile Wenn dieses Feld in der Tabelle aber leer ist, bekomm ich die Fehlermeldung mit der NULL. Ich muß also nur dafür sorgen, daß eine Prüfung auf den Inhalt stattfindet.

Hallo Meenzer, Dein Tipist gut. Du hast nur das rs.MoveNext vor dem loop vergessen. Aber auch in diesem Fall hab ich das Problem mit der Meldung

Hab den Fehler gefunden. Vertauscht war nix, aber irgendwie doppelt. Hatte weiter oben rsvo schon gefüllt. Jetzt funktioniert es soweit ganz gut, er gibt mir den Inhal von Feld1 auch richtig aus(war jetzt erstmalzu Testzwecken). Allerdings versucht er die letzte Zeile der Tabelle, welche immer dabei ist für neue Datensätze, auch mit auszulesen und es kommt zu einer weiteren Fehlermeldung. Wie kann ich das jetzt umgehen??

Hi, jetzt hab ich schon wieder ein Problem mit diesem einen Formular. Kurz und knapp ich habe mittlerweile 3 Recordsets in einem Formular und weiß nicht, ob das überhaupt geht. Das Programm sagt mir jedenfalls immer wieder: :confused: :confused: Aber das sagt es erst beim 3. Recordset, die ersten beiden funktionieren prima. Oder liegt der Fehler irgendwo in diesem Abschnitt? Die einzelnen Variablen sind vorher richtig definiert. Wer kann mir helfen ?????

Danke, es hat funktioniert.

Ich steh wieder malmächtig auf dem Schlauch und finde hier im Forum irgendwie garnix passendes mehr. Ich habe ein Formular mit einem Unterformular. Jetztversuch ich die ganze Zeit im VBA-Code des Hauptformulars die Felder des Unterformulars auszulesen und bekomm es einfach nicht gebacken. Kann mir jemand mal 'nen Tritt in die richtige Richtung verpassen? :confused: :confused: :confused:

Hab mich wohl bei der Wortwahl vertan, meinte eigentlich alle Datensätze auslesen. Die Tabellen haben nur ähnliche Strukturen, das heißt, die Felder aus Tabelle1 sind auch in Tabelle2 enthalten, aber die Tabelle2 hat noch weitere Felder. Ich müßte also die einzelnen Felder irgendwie direkt ansprechen. Eine direkte Kopie, so wie du es vorschlägst, ist leider in diesem Fall nicht möglich. Wenn ich richtig liege mit meiner Annahme, müßte ich mit Schleifen und Arrays arbeiten. Und genau da hab ich jetzt 'nen absoluten Hänger. :confused: :confused:

Und auf ein neues. Ich habe 2 Tabellen, Tabelle1 und Tabelle2 Ich möchte alle Datensätze aus Tabelle1 filtern, in Tabelle2 eintragen und zu guter letzt Tabelle1 vollständig leeren. Hat jemand eine Idee, wie ich das mit VBA realisieren kann?

Sorry, die Antwort sollte in meinen anderen Beitrag, Das Problem mit if not TableExists(. . .) hab ich erst so gelöst: Hab ein Modul erzeugt: In dem Code für das Formular hab ich dann folgendes eingebaut:

Schau dir mal den Beitrag an:

Also, das erste Problem hab ich folgendermaßen gelöst: Und das zweite Problem umgeh ich mit 'ner Tabelle, in die die entsprechenden Daten zwischengespeichert werden.

Danke Wolle, der Tip ist gut. Der Spaltenname "Name" wird auch akzeptiert, daran lag es nicht. In meinem Quelltext war ein Fehler in der Abfrage, ob der Datensatz bereits vorhanden ist oder nicht. Ich hatte geschrieben wodurch ich immer in den falschen Abschnitt des Quelltextes kam. Das Programm war immer der Meinung, der Datensatz existiert schon und hat ihn garnicht erst gespeichert. Daher konnte ich auch keine Personalnummer auslesen, die wurde ja nicht vergeben. Richtig mußte es lauten Jetzt funktioniert es.

Hab malwieder 'n kleines Problem mit VBA. Ich habe ein Formular zur Erfassung von Mitarbeiterdaten. Sobald hier alle wichtigen Felder ausgefüllt sind, soll geprüft werden, ob der Datensatz bereits vorhanden ist oder nicht. Das funktioniert. Ist er nicht vorhanden, solen die Daten in die Personal-Tabelle gespeichert werden. Das funktioniert auch ganz prima Jetzt möchte ich aber die dabei vergebene Personalnummer auslesen, da ich diese für weitere Aktionen benötige. Und genau da hängt es. Hab im Quelltext folgendes bereits ausprobiert: bzw. Aber in der MsgBox steht dann entwerder oder Der Datensatz ist aber in jedem Fall schon gespeichert, da diese Abfrage erst nach dem Speicher-Befehl erfolgt. Wer hat 'ne Lösung für mich?