tauron

Moin ! genauso, eine Befehlsschaltfläche erzeugen und dann für "beim Klicken" eine Prozedur schreiben. Diese liest dann den Wert aus dem Listenfeld aus und mit diesem als Bedingung kannst Du dann den Datensatz löschen, entweder über einen Recordset oder einfacher mit DoCmd.RunSQL. gruß Christian

Moin ! zu beachten ist eigentlich nicht viel, Du stellst bei den Eigenschaften der ersten Combo-Box unter "Ereignis"-->"Nach Aktualisierung" die [Ereignisprozedur] ein und hast dann im Code die Prozedur: Private Sub MeineErsteCombobox_AfterUpdate() und hier trägst Du dann ein was mit der zweiten Box passiert. Wenn Du den Inhalt der Combox ändern möchtest, kannst Du das über RowSource (Datensatzherkunft) machen, und dort die Werteliste bzw. Tabelle/Abfrage ändern. z.B.: MeineZweiteCombobox.RowSource ="Eintrag1;Eintrag2" Beim ändern einer Tabelle/Abfrage solltest Du dann einen Requery von der ComboBox ausführen lassen, um die Anzeige zu aktualisieren. Hoffe das hilft Dir weiter ! gruß Christian

Moin ! hmm wenn ich dich richtig verstehe, könntest Du das so machen: beim überprüfen der Spalten in der Zeile gucken ob die Zelle eine 3 enthält. Wenn ja setzt Du eine Variable auf True. Am Ende der Schleife guckst Du dann ob die Variable True ist (also ob mindestens einmal ein 3 kam) und blendest dann erst die Zeile aus oder nicht. Dann gehts weiter mit der nächsten Zeile.. Hoffe das hilft Dir weiter ! gruß Christian

Moin ! Meinst Du die php Seite soll dann selbständig eine andere html-Seite laden ? das geht mit header("Location:DieSeite"); wichtig ist nur, daß das php Skript vorher keinerlei Ausgaben macht, sonst gibts nen Fehler. gruß Christian

hmm nein leider nicht, die Aktualisierung erfolgt nur in dem Moment, wenn der Befehl ausgeführt wird. Man benutzt den halt immer, wenn man an der Quelle des Steuerelements etwas ändert. Einen Befehl zur dauernden Aktualisierung kenne ich leider nicht.. gruß Christian

kein Problem gruß Christian

Moin ! um was für ein Feld geht es denn ? Wenn Du ein Textfeld meinst, kannst Du dem z.B. mit DeinTextfeld.Value = "RappelZappel" einen Wert geben. Mit dem nicht ändern musst das Feld einfach sperren (Eigenschaften-->Daten-->Gesperrt-->"Ja") Auf eine Tabelle kann man mithilfe eines Recordsets zugreifen, z.B.: set rst = currentDB.OpenRecordset("Select Feld1 From Tabelle1 Where Feld1 = 1") Dann enthält rst die Daten aus dem SQL Statement. gruß Christian

so zu erstens hab ich was.. aber mit dem farbig hervorheben, weiss ich nicht, das geht denk ich nicht.. am einfachsten geht es denk ich, wenn Du Dir zwei "Optionsgruppen" in dem Formular erzeugst. Die eine hat dann vier Optionsfelder (die Zustände) und die andere zwei (die Sortierung). Dann erzeugst Du bei beiden eine Ereignisprozedur "Nach Aktualisierung", damit auch was passiert, wenn man dran dreht.. In den beiden Prozeduren steht dann das selbe drinn, die Datensatzherkunft (RowSource) des Listenfeldes wird anhand der getroffenen Wahl geändert und dann die Daten neu eingelesen. Hier mein Beispiel: --------------------Schnipp-------------------- Dim Sortierung as String 'Die Optionsgruppe gibt eine Zahl zurück welcher Knopf gedrückt ist, die wird hier in die SQL Klausel für Auf- bzw. Abwärtssortierung umgewandelt Select Case GruppeSortierung.Value Case Is = 1 Sortierung = "asc" Case Is = 2 Sortierung = "desc" End Select 'Jetzt verpasst Du dem Listenfeld den neuen SQL-String, mit dem Zustand als Where-Klausel und der Sortierung hintendran DasListenfeld.RowSource = "SELECT DISTINCTROW feld1, feld2, feld3, Zustand FROM Tabelle WHERE Zustand = " & GruppeZustand & " ORDER BY feld1 " & Sortierung 'und hier werden die Daten nach der Änderung der Herkunft neu eingelesen DasListenfeld.Requery --------------------Schnipp-------------------- Wenn die Zustände keine Zahlen sind, musst Du das dann ähnlich wie bei der Sortierung anhand der Zahl den passenden Zustand zuordnen.

Moin ! der Befehl ist: NameDeinesListenfeldes.Requery damit führt er die Abfrage auf der das Listenfeld basiert erneut aus. gruß Christian

hmm mit Unterformularen kann ich Dir leider auch nicht weiterhelfen, bin mir auch nicht so sicher ob man da so einfach abfragen kann, welche Zeilen markiert sind.. ich ging halt von einem Listenfeld aus, weil es da recht einfach ist mehrere Markierungen vorzunehmen und auszulesen.

das hat nix mit Doof zutun.. behaupte nie das Du Doof bist, nur weil Du etwas (noch) nicht kannst ! No one was born running Jetzt zum Problem, ich geh mal davon aus, daß der Treeview und das Listenfeld sich schon im Formular befinden.. du legst Dir in dem Formular einen Knopf (Befehlschaltfläche) an und gehst in dessen Eigenschaften unter den Reiter "Ereignis". Dort ist eine Liste der ganzen möglichen Ereignisse. Hinter dem "Beim Klicken"-Ereignis wählst Du "[Ereignisprozedur]" aus und klickst die "..." Schaltfläche an. Jetzt landest Du im Code der ausgeführt wird, wenn dieser Knopf gedrückt wird. Nun muss das Programm eine Schleife durchlaufen, für jede markierte Zeile in dem Listenfeld. Dafür gibt es den Befehl .SelectedItems, der gibt die Nummern der selektierten Zeile zurück. Dann musst Du ein Update ausführen (Du willst ja in den Datensätzen etwas ändern) auf die Datensätze die zu den markierten Zeilen gehören. Als Wert musst Du dann den markierten Wert des Treeview eintragen lassen. Und dann wird die Schleife erneut durchlaufen. Soviel zur Theorie, hier ein Beispiel: --------------------Schnipp-------------------- Private Sub DerKnopf_Click() Dim selElement As Variant 'Systemmeldungen ausschalten, sonst kommt bei jeder Datensatzänderung ein Hinweis DoCmd.SetWarnings False 'hier wird die For Schleife für jede ausgewählte Zeile des Listenfeldes durchlaufen und in jedem Schritt selElement die Nummer der gerade aktuellen Zeile zugewiesen For Each selElement In DasListenfeld.ItemsSelected 'hier wird der Update ausgeführt, mit dem markierten Feld des Treeviews als Wert und dem Wert der gerade aktuellen Zeile als Datensatz DoCmd.RunSQL ("UPDATE DieTabelle SET Inhalt_Feld = " & DerTreeview.SelectedItem & " WHERE Feld1 = " & DasListenfeld.ItemData(selElement)) Next 'Systemmeldungen wieder ein DoCmd.SetWarnings True End Sub --------------------Schnipp-------------------- hmm sorry das es so lang geworden ist, aber ich hoffe es ist jetzt klarer ! gruß Christian

ahh Kenner.. stimmt, des isser ! die beiden Worte aus der Sig kommen auch daher.. einer meiner Lieblingsfilme, ärger mich immer noch das ich mir den nicht im Kino angeschaut habe.. naja bei der Fortsetzung dann gruß Christian

Moin ! hmm hab ich das jetzt richtig verstanden, Du willst in der Liste (Feld2) Einträge markieren, und dann mit dem Knopf in die dazugehörigen Datensätze den markierten Wert aus dem Treeview eintragen lassen ? Das kannst Du über eine For Each .. Next Schleife lösen, in der Du die selektierten Zeilen der Liste durchgehst und dann mit einem Update den neuen Wert eintragen läst... das sieht dann in etwa so aus: For Each Selektion In feld2.ItemsSelected DoCmd.RunSQL ("UPDATE Tabelle SET Inhalt = '" & Feld1.SelectedItem & "' WHERE ID = " & Feld2.ItemData(Selektion)) Next Hoffe das hilft Dir weiter ! (wenn nicht einfach weiterfragen ) gruß Christian

stimmt, der Typ war richtig klasse ! Da hab ich mich auch gefragt was aufregender ist, CIA oder Sozialarbeiter gruß Christian

jetzt ich.. da gabs mal ein Spiel von Microprose namens Masters of Magic, so wie Civilization in einer Fantasy Welt. War ziemlich genial und ich war ziemlich süchtig danach Tja und da hiess halt einer der Magier Tauron.. und den Namen fand ich ziemlich cool und benutz ihn seitdem.. leider benutzen den noch einige, so das ich oft als tauron23 oder auch rappelzappel unterwegs bin gruß Christian

Moin ! War früher auch mal begeisterter Anime Gucker, jetzt komm ich nicht so richtig dazu (Zeit & Geld)... Aber meine Lieblinge von damals sind: Armitage III Akira (damit fing alles an.. wobei mir die Mangas aber fast noch besser gefielen) Ghost in the Shell Crying Freeman (aber nur der erste Teil, der Rest war nicht so toll) Streetfighter Ninja Scroll und bei den Mangas ist mein All-Time-Favorite "Gunsmith Cats" von Kenichi Sonoda wobei, eigentlich war ja das erste was ich gesehen habe Captain Future, damals als das auf ARD oder ZDF lief btw, kennt hier noch jemand "Fist of the North Star" ? ist denk ich der schlechteste Anime den ich je in meinem Leben gesehen habe *schonmal in Deckung vor den Fans geh* gruß Christian

Moin ! probiersmal mit: meinString = Chr(34) & "Test" & Chr(34) 34 ist der ASCII Code für Gänsefüsschen. gruß Christian

hmm dann muss das Problem woanders liegen, habe mir gerade eine Tabelle mit ein paar Variationen deines obengenannten Beispiels erstellt und deine Abfrage verwendet, mit dem AND.. funzt bei mir (Access 97) einwandfrei, die Syntax scheint zu stimmen. Zu dem And: da es sich um zwei Bedingungen handelt die nicht zutreffen dürfen darfst Du kein OR verwenden. Eine OR Verknüpfung liefert WAHR zurück, wenn eine der beiden Bedingungen auch WAHR ist. Nehmen wir an, Du hast einen dieser Datensätze in dem die erste von den beiden ungewollten IPs drin ist. Er schaut nun in den Datensatz und vergleicht ihn mit der ersten Bedingung. Diese trifft zu und durch die Verneinung (NOT LIKE) wird FALSCH übergeben. Dann vergleicht er es mit der zweiten Bedingung, diese trifft ja nicht zu. Durch die Verneinung wird hier jetzt WAHR übergeben. Jetzt kommt die Verknüpfung ins Spiel, er hat "FALSCH OR WAHR", das Ergebnis ist WAHR, also ist der Datensatz für ihn in Ordnung. Bei AND erhält er "FALSCH AND WAHR", das Ergnis ist folglich FALSCH und er überspringt den Datensatz wie gewollt. sorry, daß das so ein Psalm wurde, aber ich hoffe es hilft Dir weiter !

Moin ! die Querry ist völlig in Ordnung, Du hast nur einen logischen Fehler drinn, statt OR musst Du AND verwenden. gruß Christian

ja ich werde gruß Christian

das Problem mit der Postleitzahl hat ich auch, hab dann einfach einen anderen User-Namen genommen, dann gings.. so werd jetzt mal loslegen achja zum fordern: chrisrothe@gmx.net gruß Christian

ich bin ein extremer Nachtmensch, da ist aufstehen immer hart.. zweimal die Woche Berufsschule, da heißt es um 6.30 aus dem Bett fallen, duschen und los. Frühstück fällt fast immer aus, da schlaf ich lieber noch ein paar Minuten.. Dafür muss ich den Rest der Woche erst so um 8.30 aufstehen und um 9.30 bis 10.00 auf Arbeit sein (Gleitzeit sei Dank!).. zum wachwerden: wenns mal schlimm ist hilft mir morgens kalt duschen (bringt den Kreislauf gut in schwung) und Kaffee oder irgendwas mit viel Kohlensäure (Cola, Fanta, Selter egal), das schnell getrunken macht auch wach gruß Christian

oh das kenn ich.. bei meinem Umzug letztes Jahr hab ich alles genommen was so im Schrank rumlag und weggeworfen... eine große Sporttasche voll mit Schotter Karten, nur Commons und Uncommons, waren locker 20 Kilo... jetzt hab ich nur noch meine Sammlungen und Decks.. und die nehmen mir immer noch zuviel Platz weg Das mit dem sammeln von Editionen und dann zuschicken von Karten klingt lustig, ich sammel dann zuerst Beta ("Ich nehm einmal Power-9 bitte!") und dann Arabian Nights Aber mal ernsthaft, soviel Geld für virtuelle Karten ausgeben.. kann man denn die Karten einzeln kaufen oder macht man das wieder über Booster ? gruß Christian

schlimm eigentlich nicht, eher jeden Tag eine neue Herausforderung Aber es lohnt sich ja auch.. @wolve: der Vergleich mit dem Brauereipferd passt ganz gut

da könnt ihr mal sehen wie einfach ihr es habt