JayN

Hallo, ich habe unter Access 97 ein Tool geschrieben, das ein Mail-Postfach mit einigen Protokollen abgleicht und zum Schluß eine Mail mit "Alles in Ordnung" oder mit den Fehlern schickt. Dieses Programm soll auf dem Rechner von einem meiner Kollegen laufen. Nun haben wir es heute getestet und es kommt folgender Fehler (frei zitiert): "Fehler 2046: Der Befehl AusgabeIn steht Ihnen im Moment nicht zur Verfügung! - Sie benutzen entweder eine schreibgeschütze oder eine nicht konvertierte Datenbank" Schreibgeschützt ist die Datenbank nicht! Auch muß sie nicht konvertiert werden, weil mein Kollege auch Access 97 hat! Das einzige, was sich bei uns unterscheidet, ist, dass bei mir "Access 97 - SR2" und bei ihm "Access 97 - SR1" installiert ist. Wie kann ich diesen Fehler beheben? Was bedeuten diese SRs? JayN

Beim ersten Versuch 202.... JayN

Erstell eine Verknüpfung und gib die zu öffnende Datenbank als Parameter ein. JayN

Dazu mußt Du ein Makro mit dem Namen "Autoexec" erstellen und damit das Formular laden. Außerdem kannst Du unter Extras-> Start in der Menüleiste noch notwendige Sicherheitseinstellungen hinsichtlich der "Innereien" durchführen. Hoffe geholfen zu haben. Poste, obs das war. JayN

So wie ich's gehört habe, eher zweiteres. Oft werden sie wohl auch nur sporadisch überflogen. JayN

Jetzt bin ich auch mal dran: Die FIFA-Reihe (insbesondere das allerallererste Game und 98) Die NHL-Reihe Simon the Sorcerer 1+2 (Warum hat das keiner erwähnt?) Monkey Island 1-3 X-COM (beide Teile) Maniac Mansion + Day of the Tentacle Transport Tycoon Pizza Connection Syndicate Sensible World of Soccer Anstoss 1-3 Supaplex (Kennt das einer? Eine Art Pacman, aber sehr gute Grafik (für ein Pacmanspiel) und sehr viel Denkarbeit) Gruß JayN

Noch eine Frage: Wie setze ich den Cursor auf eine Zelle? bzw. Wie kann ich den Wert einer Zelle ansprechen? Mir ist klar, dass das mit Value geschehen muß, aber was steht davor? JayN

So, die Postings haben mir schon einen entscheidenden Schritt vorangeholfen. Wenn noch was ist, melde ich mich wieder in diesem Thread. Danke! JayN

Entwurfsansicht wovon? Drucken per Script oder per Hand? JayN

Ist schon mal nicht schlecht zu wissen. Wie ist es aber, wenn der Bereich nicht klar abgegrenzt ist? Wenn ich z.B. von B3 bis B??? alle Zellen durchgehen will, die einen Wert haben? Kann ich dann irgendwie sowas schreiben: Dim x as Integer x = 1 While NOT isNull (Range ("B" & Str(x)).Value) MsgBox Range ("B" & Str(x)).Value x = x + 1 Wend JayN [edit] Ups, da hat schon jemand was gepostet.... dieses Posting bezieht sich auf die erste Antwort. [/edit]

Hallo, leider bin ich nicht sehr bewandert in VBA unter Excel, hatte VBA bisher nur unter Access kennengelernt. Ich möchte in einer Schleife alle gefüllten Felder in einer bestimmten Spalte durchgehen und den Wert jedesmal in einer MessageBox ausgeben. Wie muß das aussehen? Wie kann ich gezielt eine Zelle unter VBA ansprechen? Kann mir einer helfen? Gruß JayN

Dann versuch's stattdessen mit ComboBox.Text. Wahrscheinlich denke ich zuviel in VBA. JayN

Deine zuständige IHK wird Dir die Termine schon rechtzeitig mitteilen. Für die Prüfung jetzt im Winter ist die Antragszeitspanne bei mir von 26.08.2002 bis 26.09.2002. D.h. die IHK beginnt auch erst am 26.08 mit den Genehmigungen, den Antrag lange vorher zu stellen wäre unsinnig. JayN

Ich glaube, Dein Problem verstanden zu haben, wenn nicht dann schreib. Also Du willst in einer ComboBox etwas auswählen und den passenden Datensatz dazu suchen. Versuch's mal so. Dim db as Database Dim rst as Recordset Set db = CurrentDb Set rst = db.OpenRecordset ("Tabellenname",dbOpenDynaset) Do While cmbComboBox.Value <> rst![Spaltenname] 'Der Wert nach dem Du suchst rst.Movenext Loop txtText.Value = rst![Spaltenname] 'Der Wert den Du ausgeben möchtest. In ComboBox suchst zunächst den gesuchten Wert aus, dann wird er in der Tabelle gesucht und in txtText angezeigt. Gruß JayN

Entschuldigung. Kommt nicht wieder vor. JayN

Andererseits kann ich mir vorstellen, dass er das nicht vergessen hat und alles bedacht hat.... JayN

Also, mir hat mein Chef mitgeteilt, dass er mich zur Übernahme empfohlen hat, aber der Etat für die Abteilung und somit auch die Übernahme muß noch von oben bewilligt werden. Was mir aber Kopfzerbrechen bereitet, ist die Tatsache, dass ich meinen Zivildienst noch nachholen muß. Und mir scheint es so, als ob mein Chef dieses vergessen hat. Jetzt weiß ich nicht, was ich tun soll. Soll ich ihn darauf ansprechen, bevor der Etat bewilligt ist? Dann mache ich mir die Chancen zur Übernahme kaputt. Soll ich es erst beim Gespräch, wenn die Übernahme durch ist, sagen. Soll ich bis zur Einberufung warten, denn vielleicht muß ich gar nicht hin, weil ich in 2 Wochen heirate, und wie ich es mitbekommen habe, ist der Staat derzeit nicht so sehr auf verheiratete Zivis aus. Ratet mir mal, was ich machen soll! Bei mir sieht es so aus, dass ich gerne im Unternehmen bleiben würde, zumindest für die erste Zeit, denn auch angesichts der Heirat zählt für mich im Moment Sicherheit. Mich neu beruflich orientieren kann ich mich immer. Gruß JayN

Also Subnetting, SQL und Struktogramme oder PAPs sollte man schon beherrschen. In irgendeiner Form kommen die Sachen oft dran. Bei Struktogrammen ist die Wahrscheinlichkeit, meiner Meinung nach, sehr hoch, dass es drankommt. JayN

Das Problem ist immer noch nicht gelöst....

Wenn es entsprechende Funktionen hat, dann schon. Hatte das Problem auch schon mal mit einem Antivirusprogramm. Kann es sein, dass Du da bestimmte Programme, die auf das Internet zugreifen, freigeben mußt? JayN

Ich ziehe auch demnächst um und kriege 2 Tage Sonderurlaub. Müßte alles im Tarifvertrag oder in den Betriebsvereinbarungen geregelt sein. JayN

Weiß das denn keiner?

Ganz einfach: Dim Gebdat as Date Dim Alter as Integer If Year (now) > Year (Gebdat) Then If Month (now) > Month (Gebdat) Then Alter = Year (now) - Year (Gebdat) Elseif Month (now) = Month (Gebdat) Then If Day (now) >= Day (Gebdat) Then Alter = Year (now) - Year (Gebdat) Elseif Day(now) < Day (Gebdat) Then Alter = Year (now) - Year (Gebdat) - 1 End if Elseif Month (now) < Month (Gebdat) Then Alter = Year (now) - Year (Gebdat) - 1 End if Elseif Year (now) = Year (Gebdat) Then .... dann ist das Alter unter 1 und muß in Monaten angegeben werden... ich denke, den Rest kannst Du selber coden. JayN

Könntest Du vielleicht die Tabellen-/Datenbankstruktur mit den jeweiligen Datentypen mal posten? JayN

Hallo, ich möchte aus einem VBA-Modul in Access, Outlook starten und dann beenden. Habe folgenden Code dazu geschrieben: taskID = Shell("C:\winapp32\office97\office\outlook.exe", 0) AppActivate taskID SendKeys "%{F4}", True Nun, startet das Programm Outlook, bleibt aber in der zweiten Zeile stehen und meldet folgendes: "Laufzeitfehler '5': Unzulässiger Prozeduraufruf oder ungültiges Argument" Was habe ich falsch gemacht? Wie kann ich das Problem anders lösen? Danke im Voraus für die Hilfe JayN