Pittiplatsch

Hi Wolle, Funktioniert Prima, DANKE :uli Hab jetzt nur das Problem mit der laufenden Nummer. Wie kann ich mit VBA einen AutoWert erzeugen.

Hab jetzt ne Lösung und gleich ein neues Problem. Das Programm sagt mir jetzt zwar an, ob die Tabelle vorhanden ist, aber wie kann ich jetzt eine Tabelle mit mehreren Feldern erzeugen

Ich möchte in Access 2000 gerne per VBA prüfen, ob eine Tabelle bereits vorhanden ist oder nicht. In Excel läuft das über den Befehl if not TableExists(. . .) Dieser Befehl wird bei mir in Access aber nicht akzeptiert. Welchen Befehl muß ich in Access verwenden.

Hallo Wolle 'n bissel spät, aber trotzdem vielen Dank

Klasse, das wars dann auch, grummel. Danke für die schnelle Lösung

Hm, jetzt hab ich versucht das ganze über die Richtung RecordSet zu erstellen,doch da gibt es wieder ein Problem So frei nach der Art Das nimmt mir Access sogar ab, aber das nicht. Da bringt er mir dan folgende Meldung: Sobald ich "Dim db As" stehen habe, gibt mir Access ja die Möglichkeit, aus einer Liste zu wählen. In dieser Liste müsste jetzt rein theoretisch auch Database aufgeführt sein, ist es aber nicht. Kann mir mal jemand erklären,woran das liegen könnte, bei verschiedenen Beispieldatenbanken klappts doch auch ?????

Jetzt klappt das zwar mit der Selektion, aber nur wenn ich die Ergebnisse in einem DropDown-Feld ausgebe. So frei nach dem Motto Aber wie kann ich jetzt die gefilterten Daten auch in Textfelder ausgeben? Soll sone Art Suchmaske mit Ergebnisanzeige werden.

Dank an Wolle für den Tip mit dem not IsNull. Jetzt klappt's Hab doch in dem ersten Kombifeld 2 Spalten und hab dem Programm nicht gesagtmit welcher Spalte er vergleichen soll Habe den entsprechenden Select - Befehl jetzt angepasst. Case Not IsNull(sel_nachname) SqlStr = SqlStr & "WHERE Name='" & sel_nachname.Column(1) & "' "

Jetzt hab ich schon wieder ein Problem. Habe in einem Formular zwei Kombifelder, mit welchen ich Name und Vorname einzelner Personen filtern möchte. Hier vorab schon malden Quelltext: ------------------------------------------------------------------------- Private Sub sel_nachname_AfterUpdate() sel_vorname = Null End Sub Private Sub sel_vorname_Enter() On Error GoTo fehler Dim SqlStr As String SqlStr = "SELECT Vorname, Name FROM tbl_Personal " Select Case sel_nachname Case Is <> NULL SqlStr = SqlStr & "WHERE Name='" & sel_nachname & "' " Case Null, "" ' dieser Zweig ist nicht nötig und dient nur der besseren Lesbarkeit SqlStr = SqlStr & "" End Select sel_vorname.RowSource = SqlStr & "ORDER BY Vorname;" ende: Exit Sub fehler: Resume ende End Sub ------------------------------------------------------------------------- Jetzt ist es aber so, daß, egel wie ich dieses "case Is <> NUll" verändere, immer alle Vornamen gefiltert werden, die überhaupt da sind. Ich möchte aber nur die Vornamen, die zu dem gewählten Nachnamen gehören. Was mache ich falsch ????? :confused: :confused: :confused: :confused:

Es bleibt wirklich kein anderes übrig. Ist so 'ne Art Hauptmenü, in dem alles über Bezeichnungsfelder gesteuert wird. Der Optik halber habe ich diese zu Schaltflächen umfunktioniert. Aber mit dem Textfeld funktioniert es doch.

Klasse und Dank an Amstelchen. Genauso dachte ich mir das.

Mit 2 Formularen ist es ja auch nicht das Problem, das bekomme ich ja auch hin. Ich dachte halt nur, es geht auch mit einem einzigen Formular.

Und schon wieder ich; Wie kann ich mittels VBA folgendes realisieren? Ich habe 2 Schaltflächen, die im Endeffekt das gleiche Formular öffnen sollen. Schaltfläche 1 : Sie soll das Formular so öffnen, daß nur neue Datensätze eingegeben werden können, also das keine Bearbeitung vorhandener Daten möglich ist. Schaltfläche 2: Sie soll genau das Gegenteil machen. Im Formular sollen nur die vorhandenen Datensätze zur Bearbeitung angezeigt werden, also es soll kein Anfügen möglich sein Wie kann ich jetzt im VBA-Code bestimmen, wie die Formulare geöffnet werden sollen? PS.: Ich hoffe, ich hab diemal nicht so'ne konfuse Fragestellung, wie bei meiner letzten Frage

Alles klar, habs jetzt anders gelöst. Hab einfach ein Textfeld erstellt, wo Rahmen und Hintergrund tranparent sind.Dann hab ich diesem Textfeld 'ne Höhe von 0cm verpasst, um den Curser verstecken zu können. Zu guter Letzt hab ich in den einzelnen Click-Ereignissen den Focus auf dieses Textfeld gesetzt. Jetzt funzt alles so, wie ich das haben wollte. Hatte halt nur gedacht, es gehtirgenwie anders, ohne ein weiteres Element.

Aus VBA heraus. Einfach aus dem Grunde: Ich möcht bestimmte Schaltflächen auch ausblenden können. Das geht ja nicht, wenn die gerade den Focus besitzen. Jetzt möchte ich mittels VBA und einem Click-Ereignis den Focus auf eine Schaltfläche setzen, die sichbar bleiben soll, damit ich andere ausblenden kann.

Sorry, :confused: habe ein Access-Formular mit mehreren Bezeichnungsfeldern als Schaltflächen (wegen der Grafischen Darstellung), jetzt möchte ich den Focus auf eine dieser 'Schaltflächen' setzen, wie mache ich das ?

Wie kann ich den FOCUS auf ein einfaches Bezeichnungsfeld setzen ?

Hi, Dank an Manfred.Becker Dein Tipp war genau das was ich gebrauct hab, funktioniert ausgezeichnet. :uli :uli Dank auch an Firewalker... Hab zwar nichts in der Form gefunden (recalc oder refresh), aber trotzdem danke für den Hilfeversuch

Leider nur in sofern, daß die Eigenschaften der Formularfelder im Access als Standartwert vorbelegt sind. Beim Resetten, werden sie jedoch trotzdem gelehrt und nicht auf den Standartwert zurückgesetzt. Wenn das mit dem Datum nicht klappen sollte, kann man da eventuell per VBA den Standartwert ermitteln und diesen Feldern wieder zuweisen ???

Hi, Ich hab in Access ein Formular, bei dem Daten einzutragen sind, die danach per VBA in die entsprechenden Tabellen übertragen werden sollen. In diesem Formular befinden sich unter anderem 3 Felder für eine Datumsangabe (Feld1 = Tag, Feld2 = Monat, Feld3 = Jahr). Diese 3 Felder sind über ihre Eigenschaften bereits so formatiert, daß beim Öffnen des Formulars das aktuelle Datum in diese 3 Felder entsprechend aufgeteilt wird. Diese Datumsangaben sind allerdings noch veränderbar, um eventuelle nachträgliche Eintragungen zu ermöglichen. Im Formular befindet sich neben dem Speichern - Button auch ein Reset-Button, um alle eingaben zu löschen. Nun ist mein Problem folgendes: Wenn ich eben diesen Reset-Button betätige, werden alle Daten im Formular gelöscht. Ich möchte aber, daß in diesen Datumsfeldern die Daten des aktuellen Datums drinn stehen. Wie kann ich jetzt mittels VBA das aktuelle Datum so formatieren, daß in den Feldern 1 - 3 jeweils Tag, Monat, Jahr des aktuellen Tages drinnstehen.

Hi, Danke für den Tipp. Genau das war auch mein Fehler. Ich habe dummerweise versucht, den Focus auf das neue Registerelement zu setzen, bevor ich dieses auf sichtbar gesetzt hab. Ich hab jetzt die Reihenfolge der Befehle geändert. 1. Neues Registerelement auf sichtbar setzen 2. Focus auf neues Registerelement setzen 3. Altes Registerelement auf unsichtbar setzen Dadurch brauch ich dann aber auch kein weiteres transparentes Element

Hi, wer kann mir helfen ? Ich habe ein Formular, in dem mehrere Registersteuerelement übereinander gelegt sind. Außerdem sind genauso viele Schaltflächen wie Register vorhanden. Die Register sollen jetzt bei der Betätigung der entsprechenden Schaltfläche eingeblendet werden. Im eingeblendeten Register soll ein Focus auf ein bestimmtes Textfeld gesetzt werden. Alle anderen Register sollen ausgeblendet werden. Schreibe ich jetzt im VBA-Code "me.Register1.visible=False" und "me.Register2.visible=True" bekomme ich die Fehlermeldung, daß das nicht möglich ist, solange in dem auszublendenden Register noch ein Focus gesetzt ist. Wie kann ich jetzt bestimmen, daß ddas Textfeld in Register1 den Focus verliert sobald ich das Register2 aufrufe ? :confused:

Folgendes Problem Ich suche eine Möglichkeit, Namen aus einer MySQL - Tabelle zu filtern. Mit dem Befehl "$sql="select *....." klappt das natürlich ganz einfach, ABER wenn ich mich jetzt verschreibe, z.B. statt nem v im Namen ein w schreibe soll er mir trotzdem ein ergebnis liefern. Hab es jetzt mit folgendem Script probiert: $laenge=strlen($suche); for($leng=$laenge;$leng>=1;$leng--) { $rest = substr("$suche", 0, $leng); echo $rest."<br>"; $sql="select * from $table_pe where pers_name like '$rest%' ORDER BY pers_name,pers_vname"; $persult=mysql_query($sql,$conn_id); $perszahl=mysql_num_rows($persult); if($perszahl>=1) { break; } }[/PHP][/color] wobei in $suche der zu suchende Name steht. Funktioniert soweit auch ganz gut, bei den meisten Namen. Wenn ich jetzt aber Lewo eingebe, der sich eigentlich Lewo schreibt, werden mir alle Datensätze ausgegeben, die sich am Anfang mit Lew schreiben, also nicht den gesuchten Levo.

Der IE bietet mir 'nen Dateidownload an wobei der Button "Öffnen" inaktiv ist, und wenn ich dann sage "Speichern" bringt er 'nen Spruch von wegen Datei von localhost kann nicht übertragen werden. Die Internetseite konnte nicht geöffnet werden. Sie ist entweder nicht verfügbar oder konnte nicht gefunden werden. Versuchen Sie es später erneut.

Hab immer noch 'n PDF-Problem. Jetztwird zwar die Seite, die ich im PDF-Format ausgeben lassen wollte, wunderbar angezeigt, aber nur im Mozilla. Im Internetexplorer gibt es Schwierigkeiten zwischen dem PDF-Grundgerüst und der Tatsache, daß ich Sessions benutzen muß. Anders ausgedrückt: <?php session_start(); pdf-Daten; ?> funktioniert nicht. sobald ich session_start() allerdings rausnehme, klappt es. nur daß in der session-Datei die Daten stehen, die im PDF-Dokument ausgegeben werden sollen. Kann ich dieses Problemirgendwie umgehen?