piomode1

Kein Kommentar...

Ist das "Main Menu"-Formular noch geöffnet? (Dürfte allersings nicht schädlich sein...) Hast Du die DB in eine Enlosschleife gekickt? (Gibt es ein "Open"-Ereignis für das "MM"-Frm?) Lasse die DB noch einmal laufen, und wenn das Formular "hängt" drücke [strg]+[Pause]. Wenn Du Glück hast, erscheint ein Fenster: "Die Ausführung des Codes wurde unterbrochen" (o.ä.). D.h. Access tut noch etwas und Du kannst mit der Schaltfläche [Debuggen] herausfinden, was so lange aufhält. Propier mal.

Loriot: Halt, halt, halt, halt... Verwechsel nicht die Lesezeichen (, die Dir beim Entwickeln helfen schnell durch den Code zu "springen") mit den Haltepunkten (, die Dir beim Debugging die Ausführung des Codes unterbrechen, so daß Du z.B. Variablenwerte überprüfen kannst). Du findest sie (die Haltepunkte) im Menü "Debuggen". Du kannst sie aber auch (einfacher) mit einem Linksklick in die graue Spalte links neben dem Code setzen und löschen. (F5, um den Ablauf fortzusetzen, F8 für schrittweise Ausführung. Die gelb hinterlegte Zeile ist noch nicht ausgeführt, und einige Zeilen lassen sich nicht mit einem Haltepunkt markieren (z.B. reine Deklarations- und Kommentarzeilen).) Der Absturz... Dann liegt es doch eher an dem "Start Menu"-Formular? Hast Du schon einmal die "Open"-Zeile auskommentiert? Stürzt die DB auch dann ab? Was passiert wenn Du das Formular direkt öffnest?

Hi, larryfilou! ' Sind die drei Recordsets (RecS) deklariert worden? 'Dim text, style, title, response ' Der Absturz wird mit Sicherheit nicht ' durch die nicht vorhandenen Typenangabe hervorgerufen. Dim text As String, style as Long, title As String, response As Long Dim rsCounter As Long text = "The partnumber entered ist not available." + Chr(13) + "* Retry to type in a correct partnumber" + Chr(13) + "* Cancel to return to Main Menu" style = vbRetryCancel + vbCritical title = "Partnumber not valid" 'Check if Data were retrieved rsCounter = rs.RecordCount If rsCounter<= 0 Then response = MsgBox(text, style, title) 'Die drei RecS werden doch auf jeden Fall geschlossen. ' Was spricht gegen das Auflösen an dieser Stelle? rs.Close rsCheck.Close rsReserve.Close If response = vbRetry Then 'rs.Close 'rsCheck.Close 'rsReserve.Close GoTo again Else DoCmd.OpenForm ("Start Menu") 'rs.Close 'rsCheck.Close 'rsReserve.Close Exit Sub End If End If Für mich ist der Code ansonsten zu sehr gekürzt. Kommt nach dem letzten "End If" noch etwas? (Sicherlich, denn sonst wäre das "Exit Sub" völlig überflüssig.) Werden die RecS überhaupt geSETtet? (Für das Auflösen ist das (kurioserweise) nicht nötig.) Ist es wirklich die "Exit Sub"-Zeile, die den Absturz auslöst? (Hast Du das schon mit Haltepunkten ausprobiert? (Oder verhält sich das Programm dann wieder anders? Alles schon erlebt...))) Hast Du an irgendeiner anderen Stelle die Fehlermeldungen mit "DoCmd.SetWarnings = False" deaktiviert und nicht wieder auf "True" gesetzt? Das sind die Dinge, die mir aus der Ferne spontan einfallen.

LHX Attack Chopper! Da ist keine Kuh und kein Schaf stehengeblieben...

Hi, droL! Ach ja... ich fühle mich gut 10 Jahre zurückversetzt... Damals, als ich nur ein Kompendium für die v2.0 und keine Software hatte... Was habe ich mich seinerzeit abgekämpft mit den heute einfachsten Dingen... --> Jede® hat mal klein angefangen! :bimei Du kannst noch folgendes probieren: Entferne in die Steuerelement-Eigenschaft des Formularfeldes mit dem zusammengesetzten Text den Formularnamen. =[Kürzel] & [inventarnummer] Ich versuche, eine kleine DB anzuhängen - mal sehen ob es klappt. [Edit: Es scheint geklappt zu haben.] Viel Spaß bei der Eroberung dieser Software! Und probiere auch mal das, von dem Du glaubst, daß es nieeeee funktionieren könnte... :beagolisc Inventur.zip

Hi, droL! Wenn Du den zusammengesetzten Text "erst" im Formular berechnest, mußt Du vor den Formularnamen das Wort "Forms" (ohne Anführungszeichen) schreiben. Ich empfehle Dir folgendes (und darum ist "erst" auch in "" geschrieben): Das Formular basiert doch "hoffentlich" auf einer Abfrage. ("hoffentlich" w/: Auch wenn die Abfrage anfangs nicht mehr macht, als die Daten von der Tabelle in das Formular (bzw. den Bericht) zu schleifen, kannst Du später leicht filtern, sortieren und vor allem Werte berechnen. (Und das hat wiederum folgenden Vorteil: Du kannst berechnete Felder in Berechnungen verwenden. (Berechnete Felder in Formularen sträuben sich manchmal.))) In der Abfrage kannst Du nun ein Feld berechnen lassen, indem Du folgendes in die obere Zeile des Zielbereiches in ein leeres Feld schreibst (im Abfrageentwurf): KüInv: [Kürzel] & [inventarnummer] Noch ein Vorteil: Du findest das Feld in der Formular-Feldliste und kannst es "ganz normal wie jedes andere" Tabellenfeld im Formular plazieren.

Hi! Ich antworte einfach mal ungefragt: Die Brücken sind einfach unverkennbar... Und das obligatorische: "Mist, zu spät!" Na gut, nach einer Woche sollte sich niemand darüber beschweren.

Ich sehe ihn. Ich sehe ihn. Ich sehe den blauen, fast wolkenlosen Himmel! Nichts wie ab nach Hause! Feierabend!! :marine

Hi, JCB! Ich sehe bisher nur "grau"... Aus welcher Himmelsrichtung rückt der Sommer an? *gier* Chipmunky, Du hast doch eine tolle Aussicht. Kannst Du was erkennen?

Hi, JCB! Sorry: Sollte nicht besserwisserisch klingen. :nett: Es war einfach nur als "Deutschland-Map" gedacht: Wintereinbruch in ... um... .

Es war gegen 12:15Uhr als es in Hamburg anfing. Eben gerade ist der Niederschlag wieder in Regen übergegangen. [Edit] Und nun scheint gar nichts mehr zu kommen. [/Edit]

Hi, ipu! Das war genau das, was ich gesucht habe! Super! Danke!

Hi, Leute! Eine Access-Datenbank soll Bilder anzeigen (Formular und Bericht). Dafür habe ich ein OLE-Feld in der Tabelle eingerichtet, das Feld im Formular eingefügt, in den Eigenschaften die "zugelassene OLE-Objektart" auf "Verknüpft" gesetzt und dann über die DB-Größe gestaunt... Irgendwo habe ich gelesen, daß das "normal" sei. :eek Ich kann den Pfad+Dateinamen auch als Hyperlink speichern; dann bleibt die DB schön klein. Problem: Die Bilder sollen ausgedruckt werden können. Wie kann ich die DB klein halten und trotzdem die Bilder anzeigen bzw. ausdrucken lassen? Gegen VBA-Möglichkeiten habe ich nichts einzuwenden. <Edit> Können tatsächlich nur Bitmaps verarbeitet werden? Oder auf JPGs mit Hilfe entsprechender Konverter aus der Office-Installation? </Edit> Vielen Dank schon einmal!

Oder einen kleinen Tip? Oder sind alle Fi's im Urlaub?

Hi, mme! Ihr habt zwar "aufgegeben", ein Lösungsansatz soll hier aber dennoch kommen. Zuerst einmal: Ohne VBA läuft hier imho gar nichts. Bsp.: strStrasse = "Weg 3a - 3f" Es ist eine Funktion zu entwickeln, die von rechts zeichenweise untersucht, ob eine Ziffer vorliegt (Im ASCII-Zeichensatz: 48 bis 57) und sich in einer Variablen (lngTrennenNach) die niedrigste Positions-Nummer merkt, nachdem sie mit der Gesamtlänge initialisiert worden ist für den Fall, daß keine Hausnummer vorliegt. Dann hast Du die Stelle, an der die Hausnummer beginnt und kannst "links davon" die Straße extrahieren. Soweit die Theorie. Die Praxis liefert Straßen die gem. dieser Funktion nur aus der Hausnummer bestehen. (1st Avenue) Wenn eine "echte" 3.NF angestrebt werden soll, müßte die "Str.+Nr." in fünf Felder aufgeteilt werden: Strasse HausnummerVon HausnummerVonZusatz HausnummerBis HausnummerBisZusatz Und spätestens dann fängt es wirklich an, "lustig" zu werden... Die Entscheidung, diese Daten nicht aufzuteilen, war bestimmt nicht die schlechteste.

"Guck mich doch an." "Und?" "Jeany, wer will denn soetwas tanzen sehen?" "Ich, Dave. Ich schon." Gandalf ist dran!

Bei diesem zu erkennenden Film ganz. Jepp. Denn "unsere Freunde sind besser". (Peace :eek : Das ist nur ein weiteres Zitat...! ) Aber wir können ihn uns heute abend gerne wieder mit "Original-Audio" anschauen... :e@sy

Hm... tja... mit den Hauptdarstellern ist das so eine Sache... Ich merke mir eher die Dialoge als die Darsteller. :floet: Aber damit ihr nicht 25 Jahre später eine Stahlkrise bekommt, esse ich ersteinmal mein in der Motorhaube warmgehaltenes chinesisches Essen (auch wenn ich es nicht mag), lege dann eine Schallplatte auf und versuche, mein T-Shirt nicht anzusengen. (Daß sich mein Kleingeld schon in der Halle verteilt hat, reicht.) "Ich brauche ein Publikum." "Du brauchst einen Arzt." Und sollte ich doch meine Kleidung zurücklassen müssen (Nicht immer sind Brandlöcher die Ursache!), kann Grandma mir neue stricken oder ich besorge mir frisch gewaschene von den Leinen aus den Gärten hinter den Häuserzeilen. Zur Not stellt mir ein netter Bobby auch eine graue Wolldecke zur Verfügung. Vor ihm bräuchte es mir auch nicht peinlich zu sein, wenn meine Initialen "G.A.C." lauten würden. Aber an die Versandabteilung für zwei-fünfzig die Stunde braucht man sich ja auch nicht gleich zu verkaufen - wofür hat Sohnemann denn ein Sparbuch? Gute Freunde sind nun mal dazu da, einen ohne zu zögern zu überfahren - wenn man Höhenangst hat und einen "Bungee-Sprung" ohne "Bungee" nicht wagt und "Ertrinken" auch nichts für einen ist, weil man nicht schwimmen kann. Um auf die Frage zurückzukommen, ob es den Film auf deutsch gibt: Oh ja! Ich habe ihn 1997 oder 1998 auf deutsch im Kino gesehen. 90 Minuten dauerte er dort, auf der DVD steht m.E. 88 Minuten. Und wenn ihr es jetzt immer noch nicht wißt, ist das egal, denn "wir sehen uns - bei der Arbeit".

Hi! Weil anscheinend gerade sehr viele OnLine sind: "Also gut, wir sind nicht jung, und wir sind nicht umwerfend hübsch, und wir sind auch nicht besonders gut. Aber wir sind hier."

"... Und mach die Zigarette aus. Dort hängt ein Schild 'Rauchen verboten'!" "Ja, und überm Eingang steht 'Job-Center'. Und wann hast du das letzte mal einen reinspazieren sehen?"

Sorry: Weil ich den Film sonst immer im Original genieße, korrigiere ich mein gestriges Zitat und füge noch eines an: "Alles paletti?? Alles paletti??? Sag mal, ist das Deine neue Übersetzung für 'SOS?" "Dein Vater tanzt also vor Dir?" " Nur wenn er übt..." Und nun werde ich erst einmal eine heiße Schokolade genießen.

"Alles klar? Alles klar??? Ist DAS deine Art 'SOS' zu sagen??"

Hi, Leute! Gibt es (ähnlich wie bei Excel ".BeforeClose") die Möglichkeit beim Beenden der Datenbank bzw. Access-Anwendung die Möglichkeit eine Prozedur ausführen zu lassen, bevor die Datenbank effektiv geschlossen wird? (Es nützt nichts, in einem Formular "beim Schließen" die gewünschte Prozedur zu hinterlegen, denn Access trifft nicht auf dieses Ereignis, wenn die DB bzw. Anwendung geschlossen wird. (Dafür aber jedesmal, wenn das Formular von der Formular- in die Entwurfsansicht wechselt...)) Vielen Dank schon einmal!

Oh, mixki... :e@sy es war alles wunderbar so wie es war! WH? Immer!