<\/p>\n
Es sind die kleinen Kniffe, die uns den Alltag beim Programmieren von Access-Anwendungen erleichtern. In dieser Ausgabe von Access im Unternehmen zeigen wir Ihnen zum Beispiel, wie Sie den Datensatzwechsel in Formularen steuern, bei Problemen mit DoCmd.OpenForms reagieren, oder einen kompletten Datensatz im Endlosformular markieren.<\/b><\/p>\n
DoCmd.Close und seine Tücken<\/b><\/p>\n
Die Anweisung DoCmd.Close <\/b>schließt ohne Parameter das aktuelle Objekt, und mit den beiden Parametern ObjectType <\/b>und ObjectName<\/b>, für die man den Objekttyp (meist acForm <\/b>oder acReport<\/b>) und den Objektnamen (etwa frmBeispiel <\/b>oder rptBeispiel<\/b>) eingibt, beendet es die Anzeige des angegebenen Objekts.<\/p>\n
Die in der Überschrift erwähnte Tücke bezieht sich ausschließlich auf Formulare, die an eine Datenherkunft, wie eine Tabelle oder eine Abfrage, gebunden sind. Dort sorgt das Schließen eines Formulars per DoCmd.Close <\/b>für das Speichern des aktuellen Datensatzes.<\/p>\n
Aber leider nicht immer, so zum Beispiel bei Datensätzen, denen Sie einen bereits vorhandenen Wert für ein Feld mit eindeutigem Index hinzugefügt haben. Die passende Tabelle sieht im Entwurf samt Indizes wie in Bild 1 aus. Die Fehlermeldung, die beim zweimaligen Wert des gleichen Datensatzes im eindeutigen Feld Beispielfeld <\/b>auftaucht, hat die Fehlernummer 3022 und besagt, dass man versucht, einen Wert hinzuzufügen, nachdem ein Index, ein Primärschlüssel oder eine Beziehung doppelte Werte enthalten würde.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2009_02\/TippsUndTricks-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Eindeutiger Index eines Tabellenfelds<\/span><\/b><\/p>\n Erstellen Sie nun ein Formular, das die beiden Felder der Beispieltabelle und eine Schaltfläche mit dem Namen cmdOK <\/b>enthält (siehe Bild 2), und legen Sie die folgende Ereignisprozedur für diese Schaltfläche an:<\/p>\n Bild 2: Formular zum Testen des Verhaltens von DoCmd.Close<\/span><\/b><\/p>\n Geben Sie in den ersten Datensatz einen Wert für das Feld Beispielfeld <\/b>ein und klicken Sie auf OK<\/b>. Wenn Sie in der Tabelle tblBeispiel <\/b>nachsehen, finden Sie den neu angelegten Datensatz dort vor. Öffnen Sie das Formular erneut, wechseln Sie zum zweiten Datensatz und geben Sie den gleichen Wert wie zuvor in das Feld Beispielfeld <\/b>ein.<\/p>\n Klicken Sie auf OK<\/b>, ohne vorher den Datensatz per Klick auf den Datensatzmarkierer oder durch Wechseln zu einem anderen Datensatz zu speichern. Die erste Überraschung: Es erscheint keine Fehlermeldung. Die zweite Überraschung: Ein Blick in die Tabelle tblBeispiel <\/b>zeigt, dass der Datensatz kommentarlos überhaupt nicht angelegt wurde.<\/p>\n Ein Blick in die Online-Hilfe der Close<\/b>-Methode zeigt, dass dieses Verhalten zumindest nicht dokumentiert ist: Dort ist lediglich die Rede davon, dass Felder, für die Sie die Required<\/b>-Eigenschaft auf True <\/b>eingestellt haben, für einen kommentarlosen Abbruch des Speichervorgangs sorgen können, wenn diese keinen Wert enthalten.<\/p>\n Probleme können hier beispielsweise entstehen, wenn ein Unternehmen seine Mitarbeiter mit Access verwaltet.<\/p>\n Trägt man einen neuen Mitarbeiter, dessen Name bereits vorhanden ist, mit einem Formular wie oben beschrieben in die Mitarbeitertabelle ein, bricht Access den Speichervorgang bei alleiniger Anwendung von DoCmd.Close <\/b>kommentarlos ab.<\/p>\n Wenn man dann nach dem frisch eingegebenen Mitarbeiter sucht, stößt man vermutlich auf den bereits vorhandenen Mitarbeiter und reibt sich die Augen, da sein Datensatz ganz andere Detailinformationen aufweisen dürfte als der des soeben eingegebenen Mitarbeiters.<\/p>\n Das größte Problem ist, dieses Fehlverhalten zu erkennen. Seine Behebung ist einfach: Sie brauchen den Datensatz einfach nur vor dem Schließen des Formulars zu speichern, und zwar mit der folgenden Anweisung:<\/p>\n <\/p>\n Wenn der neue Datensatz wegen bestehender eindeutiger Indizes nicht angelegt werden kann, meldet Access Fehler 3022, den Sie etwa wie folgt abfangen können:<\/p>\n Dateien schreiben ohne Hindernisse<\/b><\/p>\n Hier und da schreiben Access-Anwendungen mal Daten oder sonstige Informationen in Textdateien. Ein ganz einfaches Beispiel sieht so aus:<\/p>\n Der Ausdruck #1 <\/b>dient dabei als Dateinummer, wobei Sie auch jede andere Zahl zwischen 1 und 255 wählen können.<\/p>\n Wenn Sie mehrere Dateien gleichzeitig beschreiben oder auch auf unterschiedliche Art auf verschiedene Dateien zugreifen möchten, verwenden Sie einfach mehrere Dateinummern wie in folgendem Beispiel:<\/p>\n Warum wir Ihnen das zeigen Nun: Wenn Sie mal nicht nur eine Datei mit Open<\/b> öffnen, sollten Sie die Dateinummern im Blick behalten. Es könnte sonst zum Beispiel sein, dass Sie nach dem Öffnen einer Datei mit der Nummer #1 <\/b>eine Routine aufrufen, deren genauen Ablauf Sie gar nicht mehr so genau im Kopf haben, die aber ebenfalls auf eine Datei mit dieser Nummer zugreift. Dies löst dann den Laufzeitfehler 55, Datei bereits geöffnet <\/b>aus.<\/p>\n Vielleicht vergessen Sie auch einfach, die Close<\/b>-Methode für eine soeben geöffnete Datei aufzurufen, oder diese wird wegen eines vorher auftretenden Abbruchs nicht mehr erreicht: Beim nächsten Zugriff mit der gleichen Dateinummer tritt trotzdem ein Fehler auf.<\/p>\n In diesem Fall würde die Holzhammermethode helfen, bei der man vor dem Öffnen einfach eine eventuell unter dieser Dateinummer geöffnete Datei schließt.<\/p>\n Wenn jedoch tatsächlich zwischendurch eine andere Datei geöffnet wurde, würde man diese damit schließen und gegebenenfalls unerklärliche Verhaltensweisen hervorrufen, weil Daten in die falschen Dateien geschrieben werden.<\/p>\n Abhilfe schafft die FreeFile<\/b>-Methode von VBA: Sie ermittelt die nächste nicht benutzte Dateinummer, die Sie ganz einfach einer Variablen zuweisen. Diese verwenden Sie dann im folgenden Verlauf statt eines Ausdrucks wie #1<\/b>, wobei die Variable in der Print<\/b>-, Input<\/b>– und Get<\/b>-Anweisung gegenüber dem Open<\/b>– und Close<\/b>-Befehl jeweils um eine führende # <\/b>ergänzt werden muss:<\/p>\n Bei 255 Dateien ist übrigens noch nicht Schluss: Wenn Sie der FreeFile<\/b>-Methode den Wert 1 <\/b>als Parameter übergeben, liefert diese die nächste freie Dateinummer ab der Zahl 256<\/b>.<\/p>\n Welches Kontextmenü hätten's denn gern<\/b><\/p>\n Wenn Sie schon mal ein eingebautes Kontextmenü um einen Befehl erweitern wollten, haben Sie vermutlich erstmal eine Menge Zeit damit verbracht, den Namen des gewünschten Kontextmenüs herauszufinden.<\/p>\n Namen werden nämlich beim Anzeigen des Kontextmenüs nicht angezeigt und die Bezeichnungen lassen sich unter VBA auch nur auf Englisch ausgeben.<\/p>\n Es gibt jedoch eine ganz einfache Möglichkeit, bei der Sie lediglich jedem einzelnen Kontextmenü ein neues, temporäres Steuerelement hinzufügen müssen, das für die Eigenschaft Caption <\/b>die englische Bezeichnung der Kontextmenüleiste erhält.<\/p>\n Die folgende Routine erledigt diese Aufgabe, indem sie alle CommandBar<\/b>-Elemente von Access durchläuft und für alle eingebauten Kontextmenüs ein CommandBarControl <\/b>mit der entsprechenden Beschriftung hinzufügt.<\/p>\n Der schwierigste Teil der Arbeit ist bereits erledigt. Sie brauchen nur noch das Kontextmenü aufzurufen, dessen englische Bezeichnung Sie ermitteln wollen. Diese wird einfach am Ende des Kontextmenüs angezeigt, wie Bild 3 zeigt.<\/p>\n Bild 3: Ermitteln des Kontextmenünamens mit einem kleinen Trick<\/span><\/b><\/p>\n Hochkommata verdoppeln und Fehler verhindern<\/b><\/p>\n Wer gelegentlich Daten per SQL-Aktionsabfrage zu einer Tabelle hinzufügt oder bestehende Daten ändert, ist vielleicht schon auf folgenden Fehler gestoßen.<\/p>\n Sie möchten einem Textfeld einen Wert hinzufügen, der irgendwo her kommt – beispielsweise aus einer Excel- oder XML-Datei, vielleicht aber auch aus einer Benutzereingabe -, und verwenden dazu Anweisungen wie die folgende.<\/p>\n Grundlage dafür ist eine Tabelle namens tblTest <\/b>mit den zwei Feldern ID <\/b>(Autowert und Primärschlüssel) und Teststring <\/b>(Text), und der einzufügende Wert stammt hier einfach aus einer Variablen:<\/p>\n Dies löst den Fehler mit der Nummer 3075 <\/b>und der Fehlermeldung Syntaxfehler (fehlender Operator) in Abfrageausdruck ''lala'lala')'. <\/b>aus.<\/p>\n Worin genau liegt hier der Fehler Nun: Der hier dynamisch zusammengesetzte Abfrageausdruck lautet wie folgt:<\/p>\n Beim Auswerten dieses Ausdrucks denkt Access, dass der einzufügende Wert nach dem zweiten Hochkomma abgeschlossen ist, und kann das unmittelbar folgende lala' <\/b>nicht interpretieren, weil es hier normalerweise direkt die schließende Klammer erwartet.<\/p>\n Damit dieser Fehler nicht auftritt, müssen Sie einfach nur die innerhalb einzufügender Werte auftretenden Hochkommata verdoppeln, das heißt, dass Sie jedes Hochkomma durch zwei aufeinanderfolgende Hochkommata ersetzen. Das erledigt die Replace<\/b>-Anweisung wie in der folgenden neuen Version der obigen fehlerhaften Zeile:<\/p>\n Der besseren Übersicht halber können Sie das Ersetzen eventuell vorkommender Hochkommata auch vorab erledigen:<\/p>\n Diese Maßnahme sollten Sie übrigens überall ergreifen, wo Hochkommata in einzufügenden oder zu aktualisierenden Daten auftauchen könnten.<\/p>\n","protected":false},"excerpt":{"rendered":" Es sind die kleinen Kniffe, die uns den Alltag beim Programmieren von Access-Anwendungen erleichtern. In dieser Ausgabe von Access im Unternehmen zeigen wir Ihnen zum Beispiel, wie Sie den Datensatzwechsel in Formularen steuern, bei Problemen mit DoCmd.OpenForms reagieren, oder einen kompletten Datensatz im Endlosformular markieren.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022009,662009,44000004],"tags":[],"class_list":["post-55000663","post","type-post","status-publish","format-standard","hentry","category-66022009","category-662009","category-Tipps_und_Tricks"],"yoast_head":"\n![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2009_02\/TippsUndTricks-web-images\/pic002_opt.jpeg\")
<\/p>\nPrivate Sub cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\n End Sub<\/pre>\n
Me.Dirty = False<\/pre>\n
Private Sub cmdOK_Click()\r\n On Error Resume Next\r\n Me.Dirty = False\r\n If Err.Number = 3022 Then\r\n MsgBox Err.Number & " " & Err.Description\r\n Exit Sub\r\n End If\r\n On Error GoTo 0\r\n DoCmd.Close acForm, Me.Name\r\n End Sub<\/pre>\n
Open "c:\\test.txt" For Output As #1\r\nPrint #1, "Beispielzeile"\r\nPrint #1, "Noch eine Beispielzeile"\r\nClose #1<\/pre>\n
Open "c:\\test1.txt" For Output As #1\r\nOpen "c:\\test2.txt" For Output As #2\r\nPrint #1, "Beispielzeile in Datei 1"\r\nPrint #2, "Beispielzeile in Datei 2"\r\nClose #1\r\nClose #2<\/pre>\n
Dim intFile As Integer\r\nintFile = FreeFile\r\nOpen "c:\\test.txt" For Output As intFile\r\nPrint #intFile, "Test"<\/pre>\n
Public Sub TestCommandbars()\r\nDim cbr As CommandBar\r\nDim cbc As CommandBarControl\r\nOn Error Resume Next\r\nFor Each cbr In CommandBars\r\n If cbr.BuiltIn = True And _\r\n cbr.Type = msoBarTypePopup Then\r\n Set cbc = _\r\n cbr.Controls.Add(1, , , , True)\r\n With cbc\r\n .Caption = cbr.name\r\n End With\r\nEnd If\r\nNext cbr\r\nEnd Sub<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_02\/TippsUndTricks-web-images\/pic003_opt.jpeg\")
<\/p>\nDim strTest As String\r\nDim db As DAO.Database\r\nSet db = CurrentDb\r\nstrTest = "lala'lala"\r\ndb.Execute "INSERT INTO tblTest(Teststring) µ\r\nVALUES('" & strTest & "')", dbFailOnError<\/pre>\nINSERT INTO tblTest(Teststring) VALUES('lala'lala')<\/pre>\ndb.Execute "INSERT INTO tblTest(Teststring) µ\r\nVALUES('" & Replace(strTest, "'", "''") µ\r\n& "')", dbFailOnError<\/pre>\nstrTest = Replace(strTest, "'", "''")\r\ndb.Execute "INSERT INTO tblTest(Teststring) µ\r\nVALUES('" & strTest & "')", dbFailOnError<\/pre>\n