Mrfivejunior

Hab aber nun mein Problem schon gelöst. Hab nun einfach "beim Drucken" des Berichtskopf nochmals den VBA-Code hinterlegt. Das einzige Problem besteht jetzt nur noch, dass das so bei 7 von 8 Berichten funktioniert nur beim 8 Bericht druckt mir der Pc nun gar nichts mehr aus. Ich komm in die Druckeroberfläche und bestätige diese. Jedoch geschieht nun nichts mehr. Der Bericht wird nicht ausgedruckt und taucht auch nicht in der Warteschleife des Druckers auf. Woran kann das liegen? Was muss ich ändern, dass ich den Bericht wieder drucken kann??

Hallo zusammen, ich hab folgendes Problem: Ich hab einen Bericht, auf dem im Berichtskopf mehrere Steuerelemente und Kontrollkästchen sind. Diese Objekte sprechen ich nun über einen VBA-CODE an und befülle sie bzw. setze sie auf "true". Wenn ich nun den Bericht in der Seitenansicht anschau sehe ich das gewünschte Ergebnis. Wenn ich nun aber diesen Bericht ausdrucken will, steht nichts mehr in den Steuerelementfeldern bzw. die Kontrollkästchen zeigen nichts an. Kann mir vielleicht jemand weiterhelfen warum das der Fall ist?? Kann ich was daran ändern, dass nun auch Werte in den Steuerelementen stehen, wenn ich den Bericht ausdrucke?? Bitte um Hilfe. Mit freundlichen Grüßen Tobias PS: Ich verwende Access07

Hallo zusammen, ich hab folgendes Problem: Ich hab ein Formular mit einem Unterformular. Auf dem Formular erzeuge ich einen Filter. Wie kann ich nun zeitgleich den Filter an mein Unterformular weitergeben. Bis jetzt klappt das nur wenn ich beim Unterformular folgendes Ereignis mache: Private Sub Form_Click() If sFilterbedingung2 = "" Then Me.FilterOn = False Else Me.Filter = sFilterbedingung2 Me.FilterOn = True End If End Sub Ich habs auch schon mit form_current() und mit form_load() versucht, aber es geht weder beim anderen noch beim anderen. Außerdem wechselt bei mir das Unterformular die Ansicht je nachdem welches Kontrollkästchen aktiviert wurde. Me![frmAnalyseBearbeiterTest].SourceObject = "frmAnalyseBearbeiterTest" Den Filter auf dem Hauptformular erzeug ich so:Dim Filterbedingung2 As String If Not IsNull(Me!Bearbeiter) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "Bearbeiter = " _ & Chr(34) & Me!Bearbeiter & Chr(34) End If If IsDate(Me!DatVon) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "Auftragseingang >= " & Format(Me!DatVon, "\#yyyy\-mm\-dd\ hh:nn:ss#") End If If IsDate(Me!DatBis) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "Auftragseingang <= " & Format(Me!DatBis, "\#yyyy\-mm\-dd\ hh:nn:ss#") End If Me.Filter = Filterbedingung2 Me.FilterOn = True sFilterbedingung2 = Filterbedingung2 frmAnalyseBearbeiterTest.Requery Daneben hab ich dann „sFilterbedingung2“ als globale Variable deklariert: Global sFilterbedingung2 As String Kann mir bei meinem Problem vielleicht einer weiterhelfen?? Schon mal danke. PS:Ich verwende Access07.

Danke. Habs so gemacht und funktioniert auch.

Hallo zusammen, ich bins nochmal zum gleichen Thema. Es ist ein weiteres Problem in diesem Zusammenhang aufgetreten. Es besteht folgendes Problem: Wenn der Ordner Name "08015 Pleuel" heißt funktioniert alles wunderbar, wenn nun aber der Ordner den Namen "08015 Pleuel, Oberschalle" hat geht die Funktion nicht mehr. Es kommt dann der Fehler: Der Pfad Oberschalle ist nicht vorhanden oder verweist auf kein Verzeichnis. Muss ich folglich alle Ordner umbennen und alle Ordnernamen ohne "Komma" schreiben, oder gibt es da einen anderen Weg um mein Problem zu lösen. Alle Ordner umzubenennen würde für mich einen sehr großen Aufwand bedeuten, da es um die 2000 Ordner gibt, die fast alle ein Komma in ihrem Ordnernamen haben. Bitte um Hilfe.

Hallo Reinhold, danke für die deine Lösung. Ich hab nun folgenden Code geschrieben: Public Function BilderOrdnerSuchenOeffnen() Dim Pfad As String Dim PfadUndOrdner As String Dim Ordner As String Pfad = DLookup("pfad", "aageji_pfade", "pfadid = 60") PfadUndOrdner = Pfad & Forms!frmstammdaten![QM-Nr] & "*" If Dir(PfadUndOrdner, vbDirectory) <> "" Then Ordner = Dir(PfadUndOrdner, vbDirectory) Shell "explorer.exe " & Pfad & Ordner, vbNormalFocus Else MkDir (Pfad & Forms!frmstammdaten.[QM-Nr]) Forms!frmstammdaten.Application.FollowHyperlink (Pfad & Forms!frmstammdaten.[QM-Nr]) End If End Function Und den Pfad hab ich in einer Tabelle hinterlegt, da ich mehere Pfade haben werden. Nochmals Danke für deine Hilfe. Gruß Tobias

Hi, Wenn ich nun aber deinen Code verwende kommt, dass ein Sicherheitsrisiko besteht. Ich hab da mal ein screenshot angefügt: Wenn ich dann auf "Ja" geh, kommt der gleiche Fehler wie oben: Laufzeitfehler 490. Wenn ich auf "Nein" geh, kommt: "Laufzeitfehler 16388: Der Hyperlink kann nicht zum Ziel verfolgt werden."

Aso, aber ich hab definitiv immer nur einen Ordner, der zur entsprechenden QM-Nr. passen würde. Kann man dem Computer nicht den Befehl geben, dass er einfach den ersten passenden Ordener nimmt??

Hi Reinhold, des hab ich auch schon ausprobiert, aber so funktiert es irgendwie nicht. Er erzeugt trotzem den neuen Ordner "08112" und geht nicht in den schon vorhandenen Ordner "08112 Pleuel". Ich habs auch schon mit Pfad = "D:\Tobias\" & left(Me.QM_Nr, 5) & "*" versucht, aber da kommt dann der folgende Fehler: "Laufzeitfehler 490: Die angegebene Datei konnte nicht geöffnet werden."

Hallo zusammen, ich brauch wieder einmal eure Hilfe. Ich habe ein Formular, über das ich über einen Button in einen Windows-Ordner springen und dort dann Bilder abzuspeichern bzw. anzusehen kann. Der Computer springt automatisch in den Ordner, der den gleichen Namen des Datensatz hat. Der Datensatz besitzt eine QM-Nr. und der Ordner wird gleich genannt. Die QM-Nr. ist wie folgt aufgebaut: Zuerst die „08“ für das aktuelle Jahr und dann die „001“, „002“, „003“… für den Auftrag; Folglich also „08001“, „08002“, 08003“ Bis jetzt funktioniert auch alles wunderbar, doch nun soll ich einen Altbestand von ca. 1000 Ordnern einbinden, deren Namen zwar mit der QM-Nr. beginnen aber danach noch etwas folgt (z.B. „01005 Pleuel“ ). Mein jetziger Code ist: Private Sub Befehl37_Click() Dim Pfad As String Pfad = "D:\Tobias\" & Me.QM_Nr If Dir(Pfad, vbDirectory) <> "" Then Me.Application.FollowHyperlink Pfad Else MkDir (Pfad) Me.Application.FollowHyperlink Pfad End If End Sub Gibt es eine Möglichkeit, dass der Computer nicht den kompletten Ordnernamen vergleicht sondern nur die ersten fünf Stellen heranzieht?? Bitte um eure Hilfe. Schon mal Danke. Gruß Tobias PS:Ich verwende Access 07

Hallo Amstelchen, bist du sicher, dass es daran liegt?? Für mich ist es nämlich ein größerer bürokratischer Aufwand ein System DSN einzurichten, da ich die Adminrechte dazu nicht habe. Gibt es für mein Problem keine andere Lösung?? Aber trotzdem schon mal Danke. Gruß Tobias

Hallo zusammen, Ich hab folgendes Problem: Ich hab eine .accdb – Datenbank möchte diese nun aber in eine .adp – Datenbank umwandeln. Ich hab die Tabellen auf einen SQL-Server verschoben und eine Verbindung zwischen SQL-Server und .adp-Datenbank erstellt. Außerdem hab ich die Abfrage aus Access ebenfalls auf dem SQL-Server erstellt und alle Beziehungen zwischen den Tabellen, gleich wie sie in der .accdb - Datenbank waren, erzeugt. Es funktionieren nun fast alle Formulare, bis auf das Problem, dass einige Formulare Buttons besitzen über die andere Formulare geöffnet werden können. Das Öffnen eines anderen Formulars hängt aber oft mit einer „where“-Bedingung zusammen. Zum Beispiel ist hinter einem Button folgender Code hinterlegt: DoCmd.OpenForm "frmRechnungFuerStammdaten", acNormal, , " (((Stammdaten.[Stammdaten-ID])=" & Me.[Stammdaten-ID] & "))" Beim ausführen dieses Buttons kommt nun folgender Fehler: „Laufzeitfehler 30025: Ungültige SQL-Anweisung. Überprüfen sie die Serverfilter der Datenquelle des Formulars.“ Was muss ich nun machen, dass ich die Formulare mit einer Bedingung öffnen kann, ohne dass dieser Fehler auftritt. Bitte um eure Hilfe. Schon mal Danke. PS: Ich verwende Access 07

Hallo zusammen, ich habe folgendes Problem: Ich habe eine Datenbank mit mehreren ODBC verknüpften Tabellen. Die Datenbank soll von mehreren Benutzern verwendet werden. Ich hab nun aber die Verknüpfung zu den Tabellen erstellt, so kann der andere Benutzer nicht mehr auf die Verknüpfung zugereifen. Es kommt der Fehler „ODBC-Verbindung zum `Server` fehlgeschlagen!“; „MS Access kann die Tabelle nicht in der Datenblattansicht anzeigen.“ Wenn ich nun aber vom anderen Benutzer aus die Verknüpfungen anlege, kann ich selber nicht mehr auf die Tabellen zugreifen und es besteht keine Verbindung. Der andere Benutzer soll die gleiche Datenbank wie ich verwenden und keine neue erstellen. Warum kann immer nur der Benutzer der die Verknüpfung um SQL Server erstellt hat die Tabelle auslesen? Ihr sein meine letzte Hoffnung. Ich brauch unbedingt eure Hilfe um weiter zu kommen. Schon mal Danke PS: Ich verwende Access 07

Hallo zusammen, Danke für eure Hilfe. Hab mein Problem schon gelöst. Hab nun folgenden Code verwendet: Dim Filterbedingung2 As String If Not IsNull(Me!Bearbeiter) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "Bearbeiter = " _ & Chr(34) & Me!Bearbeiter & Chr(34) End If If IsDate(Me!DatVon) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "eingangsdatum >= " & Format(Me!DatVon, "\#yyyy\-mm\-dd\ hh:nn:ss#") End If If IsDate(Me!DatBis) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "eingangsdatum <= " & Format(Me!DatBis, "\#yyyy\-mm\-dd\ hh:nn:ss#") End If Gruß Tobias

Hallo Reinhold, ich habs ausprobiert aber an dem liegt es glaub ich nicht. Es kommt nämlich immernoch der gleiche Fehler. P.S.: ja ich verwende Access.....sorry, dass ichs nicht erwähnt hab