tauron

Moin ! Du kannst Dir das ganze einfacher machen, jedes Listenfeld hat eine Eigenschaft namens RowSource. In dieser steht die Tabelle/Abfrage oder Werteliste mit der er das Listenfeld füllen soll, hier kannst Du jetzt einfach Deinen SQL-String zuweisen: Liste.Rowsource = "SELECT * FROM Stamm WHERE Name LIKE '" & Suchkriterium & "'" Er führt dann das SELECT Statement aus und füllt die Liste mit dem Ergebnis. Voraussetzung ist, das in den Eigenschaften (Reiter "Daten") des Listenfeldes als Herkunftstyp "Tabelle/Abfrage" angegeben ist. gruß Christian

Moin ! Wie Hades schon meinte musst Du dafür VBA heranziehen. Am besten erzeugst Du Dir einen Recordset mit dem SELECT als Quelle, das geht so: Dim rst as Recordset <--Hier wird das Recordset-Objekt deklariert set rst = currentdb.OpenRecordset("SELECT * FROM Stamm WHERE Name = '" & DeinSuchFeld.Value & "'") Jetzt wird die Abfrage durchgeführt, mit dem Namen aus dem Suchfeld als WHERE Kriterium. Wichtig ist, das Du auf die ' vor und nach dem Feldinhalt achtest, damit SQL das als String erkennt. Du kannst dann auf die Inhalte des Recordsets beispielsweise folgendermaßen zugreifen: MsgBox rst!Name <-- gibt den Namen in einer Messagebox aus oder DeinErgebnisFeld.Value = rst!Abteilung <-- übergibt die Abteilung des Mitarbeiters an ein Textfeld Hoffe das hilft Dir weiter (wenn nicht einfach weiterfragen) und nicht entmutigen lassen ! gruß Christian

Moin ! kommt auf die Abfragen an, aber generell ist Access ja nicht grad das schnellste bei großen Datenmengen... Was mir so als Tip einfällt, wäre bei Selects über mehrere Tabellen mit Joins zu arbeiten, anstatt alles zusammenzuwerfen und dann mit Where Anweisungen zu filtern. Das bringt auf jedenfall was. gruß Christian

lese hauptsächlich Fantasy, vorallem Terry Pratchett - einfach nur genial, kann ich nur empfehlen. Am besten gefielen mir die Bücher in denen es um "Tod" geht David Eddings - die Belgariad-Saga und die Mallorean-Saga, klasse Story mit sehr schön ausgearbeiteten Charakteren und dann noch was die World of Darkness so her gibt, am besten gefiehl mir aus Vampire the Masquerade Masquerade of the Red Death - Trilogie mit sehr viel Hintergrund-Informationen zu alten und mächtigen Vampiren die Clan Novels - 13 Bände (zu jedem Vampir-Clan einer) mit einer durchgehenden Story, bis auf ein paar Ausnahmen (da mehrere Autoren) alle ziemlich spannend und interessant aus Hunter the Reckoning Hunters hunted - sechsteilige Reihe über die neu "aufgetauchten" Hunter gruß Christian

Moin ! der Nachteil an Seek ist, das Du den kompletten Namen angeben musst, und er findet auch nur das erste Feld mit dem passenden Eintrag, wäre also nicht so geeignet um ein Listenfeld zu füllen. Wenn Du Access benutzt, wäre es besser mit einem Select zu arbeiten, ich würd das so lösen: DasListenfeld.RowSource = "Select Name From Tabelle1 Where Name LIKE '*" & SearchStr & "*'" SearchStr ist der Suchbegriff und die vor- und nachgestellten * sind die Platzhalter für die fehlenden Zeichen. Voraussetzung ist, das der Herkunftstyp des Listenfeldes "Tabelle/Abfrage" ist Falls sowas nicht mit VB6 läuft (ich benutze wie gesagt nur Access und VBA), könntest Du denk ich auch einen Recordset erzeugen, mit dem gelichen Select als Datenquelle. Dann mit einer Schleife alle Datensätze durchgehen, diese zu einem String zusammenklöppeln und als Wertliste mit .Rowsource übergeben. Hoffe das hilft Dir weiter ! gruß Christian

passiert uns fast jede Woche: am Ende einer langen Schlange vor der Kinokasse.. und schon kommt einer: "Hey, steht ihr hier an ?" "Nein wir warten auf den Bus" / "Wir trinken hier nur Kaffee" / "Wir geniessen die Aussicht" / "Nö, wir sind Agoraphobiker bei ner Gruppentherapie"... soviel Schilder gibts gar nicht, wie ich schon hätte verteilen müssen gruß Christian

Moin ! das geht leider nicht, Du kannst den Inhalt eines Listenfeldes soweit ich weiss nur über RowSource ändern. Mit Column([Zeile], [spalte]) kannst Du dir zwar die Werte eines bestimmten Feldes anzeigen lassen, aber nicht ändern. Was willst Du denn genau machen ? Wenn Du einfach nur ein Listenfeld mit Werten füllen willst (ich geh jetzt davon aus das der Herkunftstyp "Wertliste" ist), geht das mit Liste0.RowSource = "Zeile1; Zeile2; Zeile3" Wenn Du zusätzliche Werte anfügen willst kannst Du das mit Liste0.RowSource = Liste0.RowSource & "; Zeile4" machen. Hoffe das hilft Dir weiter ! gruß Christian

"Der IQ eines Pulks berechnet sich folgendermassen: geringster einzelner IQ geteilt durch die Anzahl der Leute" frei nach T. Pratchett.. und passt erschreckend oft.. gruß Christian

Schokolade ist gut, weil es den Blutzuckerspiegel ein wenig hebt. Der Blutverlust schwächt den Körper schon und der Kreislauf kann dadurch absacken. Gleiches gilt für Cola, da ist ja auch ordentlich Zucker drinne.. So habe ich es jedenfalls bei der Bundeswehr gelernt, war meine 7 Monate beim Blutspendedienst.. jetzt kann ich sagen "ich war Soldat und hatte andauernd die Arme voller Blut" gruß Christian

Moin ! geht mit dem Befehl DoCmd.SetWarnings False dann sind alle Warnungen ausgeschaltet. Du musst aber dran denken, sie mit DoCmd.SetWarnings True hinterher wieder anzuschalten, da die sonst dauerhaft aus sind ! gruß Christian

ich dann auch mal.. bin in 12347 Berlin-Neukölln (früher 1 Berlin 47) krass aufgewachsen und wohne jetzt in 12309 Berlin-Lichtenrade gruß Christian

kann es sein das da der Fehler liegt, das AND direkt nach dem WHERE ? Denn mit den verschachtelten Joins sollte doch eigentlich kein Problem sein bei Oracle (schliesslich schafft sogar Access das ) ? gruß Christian

Moin ! Du hast das schon richtig gemacht, jedenfalls funzt es so unter Access 97. Das Problem ist nur das Rot 255 als Wert hat, 5 ist ganz dicht an schwarz (0) dran, deswegen ist denk ich kein Unterschied zu sehen. gruß Christian

Moin ! probier mal obs so geht: DoCmd.Close acForm, "Form_schichtbuch-start" Gruß Christian

Moin ! weiss nicht ob Du es noch brauchst, aber es geht, ist nur ein bissel kompliziert. Dafür gibt es ein ActiveX-Steuerelement, das nennt sich "Microsoft Treeview Control Version 6.0". Du findest es im "Einfügen"-Menü unter "ActiveX-Steuerlement..". Das Problem an der Sache ist, das Du nicht einfach eine Datenquelle wie bei den anderen Steuerelementen angeben kannst, sondern das ganze über VBA füllen mußt. Also gibst Du dem Formular beim "Bei Laden"-Ereignis eine Ereignisprozedur, die das übernimmt. Der Aufbau um einen Knoten hinzuzufügen sieht folgendermaßen aus: (das Treeview-Element heisst tvw_Beispiel) tvw_Beispiel.Nodes.Add [<übergeordneter Knoten>], [<Verknüpfungsart>], <ID des Knoten>, <Text des Knoten> für den 1.Level sieht das also z.B. so aus: Set rst = dbs.OpenRecordset("Kunden") Do Until rst.EOF StrOrderKey = "k" & rst!Kundennr Me!tvw_Best.Nodes.Add , , StrOrderKey, rst!Name rst.MoveNext Loop er öffnet ein Recordset mit Kunden-Informationen ("Kundennr" und "Name") und geht ihn mit der Do Schleife komplett durch. Bei jedem Durchlauf erzeugt er einen Knoten. Da hier die Knoten für den 1.Level angelegt werden, wird der übergeordnete Knoten und die Verknüpfungsart weggelassen. "StrOrderKey" ist eine Variable, die die Kundennr mit einem vorangestelltem "k" enthält. Dies ist nötig, da er für die eindeutige Bezeichnung dieses Knoten keine reinen Zahlen akzeptiert. Weiter geht es mit dem 2.Level: Set rst = dbs.OpenRecordset("Bestellung") Do Until rst.EOF StrOrderKey = "b" & rst!Bestellungnr StrParentKey = "k" & rst!Kundennr Me!tvw_Best.Nodes.Add StrParentKey, tvwChild, StrOrderKey, rst!Datum rst.MoveNext Loop wieder wird ein Recordset geöffnet, diesmal mit allen Bestellungen ("Bestellungnr", "Kundennr" und "Datum") und wieder wird er komplett mit der Do Schleife durchlaufen. Da es sich um Knoten auf dem 2.Level handelt, muss für jeden eindeutig angegeben werden, zu welchem Level1 Knoten er gehört. Dies erfolgt über den String "StrParentKey", der wieder die Kundennr mit einem vorangestellten "k" enthält. Danach muss angegeben werden in welcher Beziehung die beiden stehen, "tvwChild" gibt an, das es sich um ein "Child", einen untergeordneten handelt. Danach wird wie in dem oberen Fall wieder eine eindeutige Bezeichnung durch den String StrOrderKey (Bestellungnr mit vorangestelltem "b") angegeben und schliesslich der angezeigte Wert, in diesem Fall das Bestelldatum. Das läßt sich so weiterbauen, Du musst halt darauf achten, das Du angibst, welchem Knoten der neue untergeordnet ist, und das jeder Knoten eine eindeutige Bezeichnung (die Buchstaben enthält, nur Zahlen gibt eine Fehlermeldung) erhält. Sorry für den langen (und späten) Post, aber ich hoffe es hilft Dir weiter ! gruß Christian

Moin ! Der Aufbau war schon richtig, bei der Anweisung waren nur ein paar Leerzeichen und Kommas zuviel. So müßte es funzen: sqlstr = "UPDATE TABELLE SET FELD = '" & Me.txtFeld & "', FELD2 = '" & Me.txtFeld & "' WHERE ID = " & Me.txtID gruß Christian

Moin ! du mußt dann die Variable am Anfang des Quellcodes deklarieren, noch bevor die Klassen anfangen, z.B. so: Option Compare Database Dim rappelzappel As String Private Sub button1_Click() rappelzappel = "Huhuhuhu" End Sub Private Sub button2_Click() MsgBox rappelzappel End Sub Die Variable behält den Wert dann solange bis Du das Formular schliesst. gruß Christian

oh das kenn ich auch noch, VGA-Planets.. damals immer auf eine Mailbox eingewählt, die neuen Züge upgeloadet.. da hatte ich von Internet noch nix gehört aber meine erstes Multiplayer war denk ich Doom über Null-Modem Kabel und später über BNC.. das war ein Krampf unter DOS mit Novell Netware und dann immer noch genug konventionellen Speicher frei haben hmm Plasma Gun, BFG - natürlich Doom 3D mit Dog Modus - Rise of the Triads und den Benzin Kanister für die Ketensäge - Zak MacKraken das mit dem blinden Ausguck war bestimmt Monkey Island ? hier was von mir: - "It's a Merchantman, and he is flying Spanish Colours ! Do you want to.." - "Ich verkaufe diese modischen Lederjacken, sehr praktisch in kalten Nächten" und mal sehen wer damit was anfangen kann: "Need ItU for CR in ASS/SUP pls !" gruß Christian

hmm bei mir hat der Dienst noch 10 Monate gedauert, ich glaube das wurde aber inzwischen schon wieder verkürzt auf 8 oder 9 Monate... daher jetzt auch die 2 Monatsintervalle beim ziehen. Soweit ich weiss gibts auch noch die Möglichkeit sich beim Katastrophenschutz (nennt man des so ?) wie dem THW für mehrere Jahre zu melden. Zum Verweigerungsantrag: ich hatte damals auch einen gestellt der anstandslos durchging, weil ich keinen Bock auf Bund hatte. War ein mehrseitiger Aufsatz geworden über Probleme mit Gewalt, Erzählungen meines Opas über Kriegsgefangenschaft und Erfahrungen die ich aus Literatur gezogen habe. Jedenfalls hab ich den später zurückgezogen, weil auf die schnelle keine vernünftige Zivi-Stelle zufinden war. Bin als Sanitäter beim Blutspendedienst gelandet und da wars ziemlich genial. gruß Christian

nicht schlecht, ich dacht schon ich wär der einzige Informatikkaufmann-Azubi hier gruß Christian

probier mal den String direkt dranzuhängen, also beispielsweise so: [Form_Aufgaben-Bereich2].Problem_box.RowSource = "Select Stichwort from text_tabelle where " & gs sonst packt er, denk ich die ganzen Abhängigkeiten in Hochkomma und sieht die als einen String... Hoffe das hilt Dir ! [Edit: da war er doch schneller ] gruß Christian

Moin ! probiers mal ohne die "\" Striche, die kennt Access denk ich nicht. Also Format(Me.txtAusführung, "DD/MM/YYYY") gruß Christian

Moin ! hab die Fehlermeldung wenigstens zur hälfte anschauen können Das Problem ist, das der Fehler nicht mehr im Formular auftaucht, sondern erst bei eintragen der Werte in der Tabelle, das läßt sich meines Wissens nicht abfangen.. Eine Lösung wäre die Felder des Formulares ungebunden (also ohne "Steuerelementinhalt") anzulegen, und dann über einen Button eine VBA-Anweisung auszuführen, die die Werte in den Feldern überprüft, gegebenenfalls Fehlermeldungen anzeigt und dann erst die Werte in die Tabelle einträgt. Hoffe das hilft Dir weiter ! gruß Christian

Moin ! Ich hab ne ganze Weile intensiv Magic TG (ohne Computer) gespielt. Hab aufgehört als Weatherlight rauskam, weils zu teuer und die Regeln zu komisch wurden (so ab 6. Edition wenn ich mich recht erinner), und spiel eigentlich nur noch gelegentlich Vampire und Shadowfist. Wie ist denn das Online Spiel ? Hab noch nix darüber gehört, aber an Deinem Avatar sieht man das Du das wohl öfter spielst gruß Christian

Bei uns gibts zwar ne Kantine, aber die ist ziemlich teuer und nicht so dolle. Deswegen gibts entweder Mini-Pizza von der Pizzeria oder det Berliner "National"-Jericht: Döner mit beide Sosse gruß Christian