tauron

Das ist natürlich heftig ! Da hat ich bisher Glück, in den Abteilungen in den ich bisher war wurden solche Aktionen vom jeweiligen Chef immer zur Kenntnis genommen und dann mit früher gehen, nem Eis oder einfach einem Lob belohnt.. @Leela naja ist ja zum Glück auch nicht der Regelfall, nur wenn irgendwelche Sachen anstehen, wie SAP-Projekte oder eine Access-Datenbank erstellen

man darf nur bis zu 10 pro Monat machen ? Die hab ich wenn richtig zu tun ist in einer Woche zusammen... bei uns wird drauf geachtet, das man nicht mehr als 10 Stunden pro Tag bleibt (als Azubi) und man muss unter 60 angesammelten Überstunden bleiben, sonst gibts richtig ärger.. gruß Christian

Ich bummel grad meine 14 Überstunden so mit einer pro Tag ab, auszahlen geht bei uns nicht. Haben sich beim letzten SAP Projekt in anderthalb Wochen angesammelt (wenn meine Ausbildungsleitung das wüsste :eek: ) Ist ganz praktisch, wenn mal ein großes Projekt anliegt kann man welche aufbauen und die dann nehmen wenns wieder ruhiger ist. gruß Christian

Moin ! Du mußt in den Eigenschaften des Formulars den Punkt "Navigationsschaltflächen" auf nein setzen. gruß Christian

Moin ! Du kannst einfach eine neue Spalte mit Datum als Datentyp in der Tabelle anlegen und dann mit Hilfe des "Update" SQL-Befehls die Werte aus der alten Spalte (wo das Datum als Zahl steht) in die neue Datums-Spalte übertragen. Hinterher kannst Du die alte Spalte dann löschen. Nur hast Du ein Problem mit dem Format Deiner Daten, in Deinem Beispiel 2002828 ist der Monat einstellig angegen, das heisst das man nicht genau weiss wann der Monat und wann der Tag anfängt. Zum Beispiel könnte ja 2002111 sowohl der 1.11.2002, als auch der 11.1.2002 sein. Du müsstest also denk ich erstmal Tag und/oder Monat zweistellig (mit führender Null) kriegen, damit Du die Daten umwandeln kannst. gruß Christian

Moin ! Wie soll denn der Kalender aussehen, bzw. was soll er können ? Du könntest ihn als neues Formular erstellen und dann entweder als Übersicht die ganzen Tage auflisten (wie bei einem Schreibtisch-Kalender) oder z.B. so aussehen lassen wie die Datum/Uhrzeit-Einstellung von Windows (in der Systemsteuerung). Das Jahr und den Monat kann man in dem Fall als Kombinationsfelder machen und die Tage als Knöpfe, falls du einen bestimmten Tag abfragen willst. Die Anzeige ist nicht schwer, wieviel Tage der Februar hat lässt sich auch berechnen (bin mir grad nicht sicher, war glaub ich mit MOD). hmm jetzt lass ich mich schon wieder zuviel aus, schreib mal was Du so brauchst !

und auch gevotet.. Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

hmm waren ja nicht wirklich viele Single.. tja, dann gehör ich wohl zu einer Minderheit.. aber vielleicht hab ich ja auch mal wieder Glück @chanserv hmm meinst Du ? Muss ich mich ja gleich mal von überzeugen Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

hmm, aber er hat alle Zugriffsrechte und Plug & Play :bimei:bimei bin auch noch zu haben, aber Vardenfell ist ja ganz schön weit weg So jetzt aber schönes Wochenende alle miteinander ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

oh man fühl ich mich alt.. ok mein erstes Spiel war ein Donkey Kong - Klon auf dem TI99/4A von Texas Instruments (ja, die haben mal Computer hergestellt ).. und danach kam ja der C64 raus, da wars glaub ich ein PacMan verschnitt.. oh ja, Rick Dangerous 2 kenn ich auch noch, ganze Weile am Atari ST gezockt Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! Probiers mal damit: SELECT * FROM ((Produkt INNER JOIN Details ON Produkt.Produkt_ID = Details.Produkt_ID) INNER JOIN Produkt_Rubrik ON Produkt.Produkt_ID = Produkt_Rubrik.Produkt_ID) INNER JOIN Rubrik ON Rubrik.Rubrik_ID = Produkt_Rubrik.Rubrik_ID WHERE Rubrik.Beschreibung="Anleitung" AND Details.Beschreibung="toll"; er fängt bei der innersten Klammer an und arbeitetet sich nach aussen durch, dann kannst Du mit der Where Klausel ganz normal das Ergebnis einschränken. Hoffe das hilft Dir weiter ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! das einfachste (und das einzige was mir jetzt spontan einfällt)wäre, wenn Du die Spalte mit dem Primärschlüssel einfach löschst und wieder als Autowert anlegst. Er müsste dann alle Datensätze korrekt durchnummerieren. Wenn die Abfragen sich dann jedoch auf diesen Primärschlüssel beziehen, hast Du, wie byte schon meinte, das Problem das die Nummerierung der Datensätze jetzt anders ist und womöglich falsche Ergebnisse rauskommen. Vielleicht wär es einfacher die "unglücklich" formulierte Abfrage umzustellen? Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! Das SetWarnings bezieht sich nur auf Access Meldungen, bei Excel heisst das Teil DisplayAlerts. Beispiel: Dim obj_EX As Excel.Application Set obj_EX = GetObject(, "Excel.Application") obj_EX.DisplayAlerts = False obj_EX.Workbooks.Open FileName:="bla.xls" ... Er öffnet das Teil dann automatisch schreibgeschützt wenn ein anderer es schon bearbeitet. Musst nur dran denken es hinterher auch wieder auf True zu setzen. Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

kann ich mir nur anschließen, Mahlzeit und Trivial kann ich schon nicht mehr hören.. Was soll denn geschmeidige Programmierung sein ? klingt ja klasse gruß Christian

Moin ! Inner Join geht auch über meherere Tabellen, das funzt dann in etwa so: ... FROM ((Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.ObjectID = Tabelle2.ObjectID) INNER JOIN Tabelle3 ON Tabelle1.ObjectID = Tabelle3.ObjectID) INNER JOIN Tabelle4 ON Tabelle1.ObjectID = Tabelle4.ObjectID sollte dann denk ich auch deutlich schneller gehen, bei vier großen Tabellen. Mit den doppelten Spalten fällt mir auch nur ein, die im SELECT namentlich aufzuführen, die Du angezeigt haben möchtest. Hoffe das hilft Dir weiter. Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! Mit .Value oder .FormulaR1C1 kannst Du einen Wert reinschreiben bzw. auslesen. Value schreibt (oder liest) dabei direkt den Wert bzw. die Formel , während Formeln bei FormulaR1C1 etwas komplizierter sind, er arbeitet da mit Zeilen/Spalten Bezügen, z.B. Range("B2").FormulaR1C1 = "=SQRT(R[-1]C[-1])" um in B2 die Wurzel aus A1 (eine ®ow und eine ©olumn weniger) zu schreiben. Mit Cells(1, 1).Select makierst du beispielsweise die "A1" Zelle. Die gerade angewählte Zelle kannst du dann auch mit Selection ansprechen und mit ein_String = Selection.Value zum Beispiel den Wert in eine Variable schreiben. Die Befehle funktionieren sowohl mit Cells(1, 1) als auch mit Range("A1") hmm ein bissel lang geworden aber ich hoffe das hilft dir weiter! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Problem ist, das sql den "-" nicht als Bindestrich sondern als Minus intepretiert und deswegen nach Kategorie und Nr fragt. Versuchs mal damit: SELECT Artikelname, [Kategorie-Nr] FROM Artikel; durch die eckigen Klammern erkennt er das Kategorie-Nr zusammengehört und ein kompletter Name ist. Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! hmm hab das jetzt mal bei mir ausprobiert und da funzt es.. hier ist was ich eingetragen habe: Kombinationsfeld1: Name: "bereich_feld" Datensatzherkunft: "SELECT DISTINCT [benutzer].[Abteilung] FROM [benutzer];" Ereignis->Nach Aktualisierung: "Ereignisprozedur" Dann im VBA-Code: Private Sub bereich_feld_AfterUpdate() stichwort_feld.Requery End Sub Kombinationsfeld2: Name: "stichwort_feld" Datensatzherkunft: "SELECT text_tabelle.stichwort FROM benutzer INNER JOIN text_tabelle ON benutzer.ben_nr = text_tabelle.ben_nr Where benutzer.Abteilung =bereich_feld.value;" Die beiden wichtigen Sachen sind halt der Select im "stichwort_feld", der abhängig vom Inhalt des "bereich_feld" die Texte ausgibt, und der kurze VBA-Code zum "bereich_feld", der den Inhalt des "stichwort_feld" nach Änderung aktualisiert. Hoffe das hilft Dir weiter ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! Wie sehen denn die Tabellen aus, auf die Du zugreifen möchtest ? Befindet sich das Feld "Kategorie" auch in der Artikel-Tabelle ? Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Die Parameter-Box kommt, weil er das Feld nicht findet. Du mußt "Bereich_Feld" mit dem Namen den Du der Abteilung-ComboBox gegeben hast ersetzen (Du musst auch unbedingt auf Groß/Kleinschreibung achten). hmm hast Du den .Requery Befehl direkt im Eigenschaftsfenster eingetragen ? Wenn ja musst Du dort auf [Ereignisprozedur] umstellen und den .Requery Befehl in Vba schreiben. Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! du kannst das direkt in die Datensatzherkunftszeile schreiben, müsste dann in etwa so aussehen: SELECT text_tabelle.stichwort FROM benutzer INNER JOIN text_tabelle ON benutzer.ben_nr = text_tabelle.ben_nr Where benutzer.Abteilung =Bereich_Feld.value; Er schaut dann in der Combobox "Bereich_Feld" nach der Abteilung und gibt dann die Stichworte aus. Problem ist nur das er diesen Select nur einmal beim öffnen ausführt. Daher müsstest Du in der Combobox "Bereich_Feld" in den Eigenschaften unter Ereignis -> Nach Aktualisierung -> Ereignisprozedur den Vba-Befehl [Name deines Stichwort Feldes].Requery ausführen. Damit fragt er den Select nach einer Änderung der Abteilung wieder neu ab. Hoffe das hilft Dir ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! Die "d"s stehen für das gewünschte Format in der Du das Feld "odate" ausgeben möchtest. "ddddd" in Deinem Fall steht für vollständiges Datum im kurzen Datumsformat, normalerweise tt.mm.jj, z.B. 14.08.02 Hoffe das hilft Dir ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! probiers mal mit der Konstruktion: INSERT INTO Tabelle1 (Firmenname, Feld1, Feld2) SELECT anfügeTabelle.Firmenname, anfügeTabelle.Feld1, anfügeTabelle.Feld2 FROM anfügeTabelle WHERE not exists ( SELECT Firmenname FROM Tabelle1 WHERE Tabelle1.Firmenname = anfügeTabelle.Firmenname) Er erstellt mit dem Select eine Datenmenge aus allen Datensätzen in "anfügeTablle" deren Firmenname in "Tabelle1" nicht existiert (durch "not exist") und fügt die drei Felder des Selects dann in die im Insert angegeben Felder von Tabelle1 ein. Hoffe das hilft Dir weiter ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! "Text" ist ein reserviertes Wort unter Access, daher die Fehlermeldung. Entweder Du änderst den Feldnamen in "Kurzext" oder so, oder sprichst ihn mit [Text] an. Und die Gänsefüschen müssen auch rein: Dim sql_str As String sql_str = "INSERT INTO testtabelle (stichwort, nummer, [text]) VALUES ('" & stichwort_feld & "' , '" & nummer_feld & "', '" & text_feld & "')" CurrentDb.Execute sql_str Mit dem ersten Hochkomma ' sagst du Sql ja das jetzt ein String kommt. Dann kommt " & Stichwort_feld & " , dadurch wird die Zeichenfolge für Access unterbrochen, der Inhalt des Feldes angehängt und dann geht der String weiter. hoffe das hilft Dir ! Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich

Moin ! einfach unter "Extras" -> "Datenbank-Dienstprogramme" -> "Datenbank komprimieren" dann löscht er normalerweise die schon vergebenen Autowerte. Schon bestehende ändern sich zwar nicht, aber neue zählt er dann normal weiter. Gruß Christian ------------------------------------------------------------ "All power corrupts. Absolute Power is kinda neat though..." "50.000 gold a year in child care and they call it a CULT ?!?" - Kel'Thuzad, Archlich