piomode1

Hi, Dragan! Falls es sich bei der DB um eine Access2000 handelt: Extras|Optionen|Allgemein|Beim Schließen komprimieren (Dann wird bei JEDEM Schließen der DB selbige komprimiert.)

Hi, Leute! Ich hab da mal wieder eins: In meinem Bericht befindet sich im Detailbereich ein Unterbericht (UB). Bis dahin alls i.O.! Wenn sich allerdings im UB mehr Datensätze befinden, als auf einer Seite ausgedruckt werden können, werden die 'überschüssigen' Datensätze gar nicht ausgedruckt! Der UB ist schon vergrößerbar: ja. Wie kann ich Access dazu bewegen, wenn nötig eine neue Seite anzufangen?

Hi, Leute! Hier mal wieder eine Anfrage: Der Weg, wie ich Tabellen in meine DB verknüpfen kann ist klar. Nun kann es aber vorkommen, daß ich zu Testzwecken diesen Pfad auf eine andere DB bzw. Tabelle umlegen möchte. Wenn ich auf 'Tabellenverknüpfungen...' klicke und mir verkn. Tabellen markiere, habe ich keine Möglichkeit, Access mitzuteilen, daß diese Tabellen sich nun auf andere DBn/Tabellen beziehen sollen. Es kommt dann die Mitteilung, daß alle Verknüpfungen erfolgreich aktualisiert wurden. (Ach, nee...) Ich sehe derzeit keine andere Möglichkeit, als die entsprechenden DBn umzubenennen oder zu verschieben, um somit einen Verknüpfungsdialog zu erzwingen! Geht das einfacher?

Hi, OberDau! Vielleicht hilft Dir dieser Beitrag in diesem Forum weiter!? Dort stehen noch ein paar Links drin und eben 'allg. Infos zu DBn'.

Hi, HolgerS! Das Problem hatte ich auch einmal. Das Problem betrifft viele, die unter MS-Entwicklerumgebungen sauber programmieren wollen... Abhilfe könnte folgendes schaffen (bei mir hats geklappt): Deklariere RS nicht als Recordset, sondern als Object!

Hi, Mercutio! Ja, simmt... Dieses Ereignis ist mir wohl bekannt. Aber auf die Idee, es dafür zu benutzen, bin ich nicht gekommen! *großgrummeltukund* Ich hoffe, das löst das Problem...

Hi, Leute! Gibt es unter Access-VBA so etwas wie eine WAIT-Methode, die man mit einer Dauer-Vorgabe aufrufen kann? Das System soll in dieser Zeit nicht in dieser Zeile stehenbleiben, sondern die Zeit nutzen, sich zu aktualisieren. Konkretes Problem: Ich schreibe in eine Tabelle mit Hilfe eines RecordSets Daten. Wenn ich in der nächsten VBA-Zeile diese Tabelle öffne, ist sie leer! Einmal geschlossen und manuell geöffnet: Die Daten werden angezeigt. Momentane Lösung: 1) Tabelle auf 2) Tabelle zu 3) s. 1)

Hier ist noch einer *mitdenfingerntuschnips* ! _____ Hi, Citrus-Motte! Die Militär-Laufbahn lohn sich wirklich!! In meiner kleinen 6er-WG (3w, 3m) sind 5(!) Leute beim M. Sechs Leute sind die ersten paar Tage ganz schön anstrengend: Erstbesten Job annehmen, so gut es geht aufräumen und hoffen, daß nicht so schnell eine Rechnung kommt. _____ Übrigens: Ein Brandmelder über dem Herd hat oberste Priorität, es sei denn, man möchte nach ein paar Spielminuten den Garten mit oben abgerundeten und drei Buchstaben verzierten Steinen abstecken und hat extra für diesen Zweck eine 50er-WG kreiert... Nachtrag: Besagte 'Steine' lassen sich jederzeit neu anordnen... Schade am gesamten Konzept ist nur, daß man den Personen keine Skipte zuweisen kann, so daß man nicht jeden "Morgen" aufs neue aufpassen muß daß auf den WCs keine Staus entstehen, wirklich nur eine® Frühstück serviert, alle zur Arbeit rechtzeitig fertig sind, 5 Leute in meinen zwei(!) Haustüren nicht steckenbleiben, usw. Und die Zeit vergeht irreal schnell (15-20(!) Minuten zum Zähneputzen, und die 'Hühgjäne' steigt auch nicht merklich). Gut es gibt Cheats, mit denen man eine beliebige Uhrzeit einstellen kann. Und die Diskussion um das Thema "Wochenende" gab es auch schon mal irgenwo... Toll, am Zeitfaktor ist allerdings, daß es in der Stadt zwar auch eine fortschreitende Uhrzeit gibt, es nach der Rückkehr jedoch kaum merklich später als zur Abreise ist. Also: Schnell was reinspachteln, pennen lassen, rein in die City, Süßholzraspeln, zurück (das Taxi hat auf der Hinfahrt schon für die Retour kassiert...) pennen, reinspachteln, zur Arbeit! Ansonsten ist mit sechs Leuten immer irgendetwas los, und die Animationen sind vielleicht nicht fließend (Nein, es liegt nicht am Rechner!), trotzdem aber sehr gut gelungen. Am liebsten lasse ich meine Männer mit Julia flirten, während ihr Angetrauter daneben steht! Gibt es eigentlich so etwas wie Scheidungen? Und was passiert mit der Einstufung Freund, wenn jemand aus dem eigenen Haus jemanden "von woanders" heiratet? Personen aus einem Haushalt können zwar befreundet sein, eine Sprosse in der Karriereleiter sind sie aber nicht. Gibt es Erfahrungswerte? a) Was passiert, wenn das Haus so richtig riesig ist und sich über mehrere Stockwerke erstreckt. Haben die Berufstätigen eigentlich eine Chance beides zuschaffen: Zur Arbeit und die letzten Winkel des Hauses kennenlernen? Kann man eine Person nur jeden zweiten Tag zur Arbeit schicken/lassen, ohne daß die Karriere leidet?

Hallo, ihr alle! Ich beziehe mich hier nur einmal auf die Aussage von Gottesgeschenk, wir hätten eines der besten Rechssysteme der Welt: Ich mag es Dir nicht absprechen, daß Du durch Deine zukünftige Juristin Einblicke in die deutschen Gesetze hast, die zumindest mir noch im Dunkeln liegen. Gut ist z.B. mit Sicherheit, daß jeder Angeklagte das Recht auf Verteidigung hat (auch wenn in diesem Fall jetzt sehr viele rufen werden: "Aber solche ... doch nicht!" Schön finde ich folgende Urteilsbegründungen immer wieder: "... hat der Angeklagte während des Prozesses sein tiefstes Bedauern kundgetan ..." Also: Trauerkappe aufsetzen für x Monate weniger Haft! Prima auch das Thema Steuerhinterziehung: Bloß nicht versuchen unter einem Volumen von y Millionen!!! Dann ist die vollständige Rückzahlung und Strafe fällig: Also: Warten, bis man richtig zuschlagen kann, mit der Justiz einen Vergleich schließen ("Ich zahle ohne Prozeß z Prozent der hinterzogenen Summe zurück, der Staat spart soundsoviel!"), und vom "Rest" den von der Exekutiven legitimierten lebenslangen Urlaub in der Sonne antreten! Soviel zum Artikel/Paragraphen "... alle Menschen sind vor dem Gesetz gleich ..." Und dann noch etwas für diejenigen unter uns, die in den nächsten drei Jahren nichts bestimmtes vorhaben: (Ich habe es nicht nachgelesen, vielleicht ist es überholt. ABER: Ähnliche Beispiele lassen sich bestimmt in unseren Gesetzesbüchern finden.) Wie hieß im Jahre 1992 im "Karneval der Kabaretisten" (richtig geschrieben?) so schön sinngemäß? ... ist für die fahrlässige Herbeiführung einer Explosion eines Atomkernkraftwerkes eine Höchststrafe von drei Jahren vorgesehen ... Mag sein, daß ich quer durch meine Antwort Rechtssystem, Gesetzgebung und den richterlichen Ermessensspielraum durcheinandergewürfelt habe. Ich bin nun mal kein Jurist. Genug der Worte; ich könnte noch seitenlang weiterschreiben. Mein Beitrag hat eh' wenig mit dem hier aufgegriffenen Fall zu tun. Ich wollte es nur einmal loswerden!

Hi, Ischte! Kannst Du die Bedingung(en) einmal genauer definieren: Es sollen fünf Felder eines Datensatzes mit Werten aus fünf anderen Feldern des gleichen Datensatzes überschrieben werden, wenn welche Felder / Feldkombinationen gefüllt sind? Deine Definition kann man so als Grundlage benutzen, aber mir ist daraus nicht klar geworden, ob das alle Kombinationen sind!

Hi, Mercutio! Konkretes Beispiel: Ich habe eine Tabelle mit x "relevanten" Feldern (x>9 möglich!). "Relevant" hier: In diesen Feldern muß etwas stehen. (Anm.: Aus gegebenen Gründen ist es nicht möglich, in der Tabelle 'Eingabe erforderlich' auf 'Ja' zu stellen!) Ich möchte nun wissen, in jeweils wievielen Datensätzen welches Feld nicht gefüllt ist. Problem: Access erlaubt nur max. 9 Oder-Verknüpfungen! Sonst könnte ich es auch innerhalb einer festen Abfrage lösen: IstNull(Feld1) oder IstNull(Feld2) oder ... oder IstNull(Feld9) Ergebnis: Ich hätte alle Datensätze in denen mind. ein relevantes Feld nicht ausgefüllt ist. Bis jetzt habe ich mir bisher folgendermaßen beholfen: Ich habe für jedes relevante Feld zwei(!) Abfragen. 1) Filtere nach Datensätzen: IstNull(ein_relevantes_Feld) 2) Anzahl der Datensätze aus vorheriger Abfrage (Access sagt sinngemäß "Ist mir zu kompliziert!", wenn ich beides in eine Abfrage packe!!) Per 'docmd.runsql...<Anfügeabfrage>' schreibe ich dann in eine Tabelle den Feldnamen (bzw. eine anwenderfreundliche Bezeichnung) und die ermittelte Anzahl. Unschön: Ich muß für jedes relevate Feld zwei Auswahlabfragen generieren, die ich dann in VBA mit 'docmd.openquery' öffne. Dieses Vorgehen überfüllt das Datenbankfenster (und auch das Ausblenden des Objektes ist keine dauerhafte Lösung)! Ziel: Ich möchte im VBA-Code nur noch die Namen der relevanten Felder reinschreiben, die Auswahlabfrage wird generiert über einen SQL-String und ausgeführt. Ich begebe mich einmal auf die Suche nach folgender Vorgehensweise: a) 'CreateDatabaseQuery' (o.ä.) mit folgendem SQL-Inhalt unter folgendem Namen. Ausführen c) Löschen d) Nächstes relevantes Feld e) Vorhanden? Ja: a / Nein: Ende Hat jemand schon einmal etwas ähnliches aufgebaut?

Hi, Leute! Ich habe die unpraktische Erfahrung gemacht, daß unter VBA nur Aktionsabfragen als String generiert und dann mit 'docmd.runsql' ausgeführt werden können. Gibt es eine Möglichkeit, "dynamische" Auswahlabfragen mit Hilfe der VBA zu erzeugen. "Dynamisch" heißt hier: Ich weiß im Vorwege nicht, welche Felder ich in der Abfrage berücksichtigen möchte. Oder kann man VBA irgenwie austricksen (z.B. eine Aktualisierung vortäuschen (setze in FeldX den Wert aus FeldX) und dann mit einem Recordset durch die Datensätze wandern)?

Hi, Wolle! Vielen Dank, daß Du Dich meines Problems angenommen hast!! Also: Hinter der cbo steht eine Abfrage (Datenherkunft); die Spalten- und Listenbreite hatte ich auch schon manipuliert. D.h. die DropDown-Liste zeigt alle 6 Spalten (gespeichert wird der Wert der ersten Spalte). Eine Möglichkeit wäre jetzt in der Formular-Abfrage die Tabelle mit den entsprecheden Daten zu verknüpfen und die Ausgabefelder im Formular zu sperren... Das ist aber "unschön"! Schade, schade, schade... Mit Bitte um weitere Hilfe

Liebe 'Oberten 10.000'! Diese Antwort dient nur dazu, den Beitrag (ersteinmal) wieder auf Seite 1 stehen zu haben. Für die ca. 10.000 Registrierten, die (rechnerisch) noch nicht reingeschaut haben...

Hi, Leute! Stand: Ich habe eine Tabelle mit Kundendaten; darauf basiert eine Abfrage mit (hier) 6 Zielfeldern. In einem Formular kann über ein Kombinationslistenfeld eine vorhandene Kundennummer ausgewählt werden. Problem: In weiteren ungebundenen Textfeldern in diesem Formular (alles im Detailbereich...) sollen nun die zugehörigen Informationen (Name, Strasse, ...) angezeigt werden. Versuchte Lösungen: F1-Hilfe Dort steht unter 'Verweisen auf eine Listenspalte in einem Ausdruck' geschrieben: [Formulare]![Kunden]![Land].Spalte(1) Auszuschließende Fehlerquellen: Ich habe die entsprechenden Parameter durch meine ausgetauscht (Copy/Paste), ein '=' vorangestellt, ein Leerzeichen zwischen 'e(' eingefügt Ich habe im Formularentwurf die 'Anzahl der Spalten' auf 6 geändert. Ich greife nicht z.B. auf Spalte(10) zu. Der Ausdruck muß doch in der Eigenschaft 'Steuerelementeinhalt' stehen, oder? ([Formulare]![Kunden]![Land] (sinngemäß) funktioniert! Dann steht im Ungebundenen eben genau das, was auch in der Kombobox steht.) Es geht irgendwie! Das Problem habe ich immer wieder!! (Unter Access 97 war es nicht .Spalte(), sondern .Column() (glaube ich...)) Kann es an einer unsauberen Installation liegen (dumme Frage...)??? Ich hoffe, Ihr könnt mir helfen...

Hi, Ihr alle! Nachfolgend der Code (falls nicht schon auf anderem Wege an Euch übermittelt). Zu beachten ist folgendes: Das Formular, welches als "StartUp"-Form gewählt wird, wird beim Starten der Datenbank angezeigt... Auf genau diesem ist eine Schaltfläche untergebracht mit dem Namen 'cmdRechte'. Als Ereignis ist der Doppelklick gewählt. Ein DblClick bewirkt beim allerersten Mal: Eigenschaften wurden hinzugefügt und auf false gesetzt (Datenbank-Neustart nicht vergessen!) Danach bewirkt jeder Doppelklick das Erlauben oder Verbieten der einzelnen Rechte. (Wirksam erst nach Datenbank-Neustart!) Hier heißt das Startformular "f_Menue" Hier liegt der Code hinter einer Befehlsschaltfläche Hier ist die DB so zu, daß bei entzogenen Rechten kein Normalsterblicher mehr an den Entwurf gelangt!!! (Es werden mehr Eigenschaften gesetzt als von Dir angefordert wurden!) Alle sProp(0-7)="Prp" sind in der Hilfe erklärt, wenn Du die jeweilige Prp suchen läßt! Und ganz wichtig: ERST eine Sicherungskopie erstellen!!! Code-Quelle: Access-Hilfe (irgendwo...) > Code leicht abgeändert!! _____ Private Sub cmdRechte_DblClick(Cancel As Integer) Dim i As Integer Dim iCount As Byte Dim sProp(7) As String sProp(0) = "AllowBypassKey" sProp(1) = "AllowSpecialKeys" sProp(2) = "AllowBreakIntoCode" sProp(3) = "AllowBuiltInToolbars" sProp(4) = "StartupShowDBWindow" sProp(5) = "AllowFullMenus" sProp(6) = "AllowShortcutMenus" sProp(7) = "AllowToolbarChanges" i = PropRead(sProp(0)) Select Case i Case Is = True For iCount = 0 To 7 EigenschaftÄndern sProp(iCount), DB_BOOLEAN, False Next EigenschaftÄndern "StartupForm", DB_TEXT, "f_Menue" MsgBox "Zugriff ENTZOGEN." & vbCr & "Bitte NEU STARTEN.", , "Zugriffssteuerung" Case Is = False For iCount = 0 To 7 EigenschaftÄndern sProp(iCount), DB_BOOLEAN, True Next EigenschaftÄndern "StartupForm", DB_TEXT, "f_Menue" MsgBox "Zugriff ERTEILT." & vbCr & "Bitte NEU STARTEN.", , "Zugriffssteuerung" Case Is = 1 For iCount = 0 To 7 EigenschaftÄndern sProp(iCount), DB_BOOLEAN, False Next EigenschaftÄndern "StartupForm", DB_TEXT, "f_Menue" MsgBox "Eigenschaft hinzugefügt und auf 'FALSE' gesetzt.", , "Zugriffssteuerung" End Select End Sub Function PropRead(strEigenschaftname As String) As Integer Dim dbs As Object 'Dim prp As Property Const conEigenschaftNichtGefunden_Fehler = 3270 Set dbs = CurrentDb On Error GoTo Fehlerbehandlung If dbs.Properties(strEigenschaftname) Then PropRead = -1 Else PropRead = 0 End If Exit Function Fehlerbehandlung: PropRead = 1 End Function Function EigenschaftÄndern(strEigenschaftname As String, varEigenschafttyp As Variant, varEigenschaftwert As Variant) As Integer Dim dbs As Object Dim prp As Variant Const conEigenschaftNichtGefunden_Fehler = 3270 Set dbs = CurrentDb On Error GoTo Fehlerbehandlung dbs.Properties(strEigenschaftname) = varEigenschaftwert EigenschaftÄndern = True Beenden: Exit Function Fehlerbehandlung: If Err = conEigenschaftNichtGefunden_Fehler Then ' Eigenschaft wurde nicht gefunden. Set prp = dbs.CreateProperty(strEigenschaftname, _ varEigenschafttyp, varEigenschaftwert) dbs.Properties.Append prp Resume Next Else ' Unbekannter Fehler. EigenschaftÄndern = False Resume Beenden End If End Function

Hi, GWB! (hoffentlich war das richtig...?!) Ein Zusatz zu Hironimos Abfrage: Falls es vorkommt, daß einige Datensätze aus der externen Quelle kein Kriterium enthalten, werden diese auch nicht in der Abfrage ausgegeben! Dafür ist es notwendig, daß im Abfrageentwurf mit der rechten Maustaste auf die Verbindungslinie der Verknüfung geklickt wird uzm im Kontextmenü 'Verknüpfungseigenschaften' die Option gewählt wird die sinngemäß besagt: "Alle Datensätze aus 'externe Daten' und die zugehörigen aus der Tabelle 'hier stehen die SortierZiffern drin'. Im Abfrageergebnis sind dann zwar einige Kriterienfelder leer, aber das waren sie vorher auch schon. Jetzt erst werden aber diese Datensätze erst mit ausgegeben!

Hi, Garschdi! Wenn ich das alles richtig verstanden habe hast Du nicht nur ein Problem bei den Berichten, sondern mit Deiner Datenbankstruktur generell... Es ist so: Wenn eine Sache aus der einen Tabelle zu mehreren aus der anderen Tabelle gehören können (und umgekehrt), benötigst Du eine weitere Tabelle, in der Du jeweils in einem Datensatz die Schlüsselfelder-Werte der beiden Tabellen speichest (m:n-Verknüpfung). Für den Bericht kannst Du Dir dann über die (dann drei) Tabellen die benötigten Werte ziehen.

Hi, Wolle! Vielen Dank für die Hilfe. Und ein frohes neues Jahr...

Hi, Dragan! Eine mögliche Lösung: Entferne die Spaltenüberschriften aus dem Unterbericht und füge sie im Hauptbericht 'direkt' über den Unterbericht ein (Fummelkram beim Ausrichten...). Fertig. Nun werden die Überschriften in jedem Fall ausgegeben, auch wenn keine Daten im Unterbericht vorliegen!

Hi! Falls sich die Berichtsreihenfolge nicht schon erledigt hat: Um in einem Bericht das Datum sortiert auszugeben ist es (leider) notwendig, daß im Berichtsentwurf das Datumfeld 'sortiert und gruppiert' wird. Die Sortierreihenfolge einer zugrundeliegenden Anfrage wird in Berichten seit Version 2.0 standhaft ignoriert...

Hi! Es gibt noch die Möglichkeit der "laufenden Summe". Ich weiß nur im Moment nicht genau wo man diese Funktion in Access im Berichtsentwurf findet. Die Hilfe sollte da weiterhelfen. Ansonsten: Gehe ich recht in der Annahme, daß Du ALLE Datensätze in der Summe berücksichtigen willst? Lösung: Lege im BerichtsFUSS (!) (Nicht Seitenfuß; dort gibt es nur Fehlermeldungen!) ein Textfeld an (in der Toolbox: 'ab|'). 'Ungebunden' sollte (muß) jetzt dortdrin stehen. Du weißt wie Dein Feld heißt, dessen Werte aufsummiert werden sollen; ich nehme einmal den Feldnamen 'DeinFeld'. Rufe die Eigenschaften des 'ungebundenen' Textfeldes auf und trage dort in der Eigenschaft 'Steuerelement' folgendes ein: =summe(DeinFeld)

Hi, Sonic83! Irgendwie habe ich den Eindruck, Deine Lösung ist etwas leichter als meine Bastelanleitung!? Vielen Dank für die "Offenlegung"!

Hi, Jonathan! OHNE GEWÄHR: (Und wenn das überhaupt die Frage ist) Antwort kommt von meinen Teilnehmern im Seminar!!! Benutzer: sys Passwort: change_on_install

Hi, bugi b! Ohne VBA gibt es nur folgende Lösung: Im Formularentwurf aktivierst Du den Steuerlement-Assistenten (Der sterneschwingende Zauberstab) (aktiviert, wenn hell...). Dann klickst Du auf 'Befehlsschaltfläche', wählst 'Datensatzoperationen' und aus der rechten Liste 'Datensatz speichern'. Das löst aber nicht das Problem, daß vorher die aktuelle Uhrzeit in das Feld gesetzt wird. Hilft es weiter, wenn Du als Standardwert für das entsprechende Feld die aktuelle Uhrzeit einsetzt? Dann hast Du die Uhrzeit: wann wurde ein Feld in einem neuen Datensatz das erste Mal verändert. Ansonsten hilft meines Wisssens nur VBA. Aber zu diesem Thema würde ich mich auch gerne eines besseren belehren lassen!!!