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

Hallo, mal wieder ne Frage! Ist es möglich Daten aus einer Word-Vorlage (.dot) auszulesen und als Datensatz in meine Datenbank bestimmten Steuerelementen zuzuweisen?? Es sollte so ein, dass über ein Botten die ausgefüllten Word-Vorlagen ausgewählt und automatisch ein Datensatz erstellt werden soll. Ist das überhaupt möglich? Wenn ja bitte ich um Hilfe! Ich bin in Access 07 leider kein Pro, sondern nur jemand der sich ab und zu damit befasst. Gruß Tobias

Hallo zusammen, ich habe wiedermal ein Problem. Ich habe einen Filter kreiert, der sich durch die Eingabe in mehrere Textfelder auf einem Formular zusammenbauen lässt. Wenn ich nun aber den Filter anwenden möchte kommt die Fehlermeldung: Laufzeitfehler 3464: Datentypen in Kriterienausdruck unverträglich. Mein code ist: Option Compare Database Private Sub Filter2_setzen() Dim DatVon As Date Dim DatBis As Date 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 Not IsNull(Me!DatVon) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "eingangsdatum >= " _ & Chr(34) & Me!DatVon & Chr(34) End If If Not IsNull(Me!DatBis) Then If Filterbedingung2 <> "" Then Filterbedingung2 = Filterbedingung2 & " AND " End If Filterbedingung2 = Filterbedingung2 & "eingangsdatum <= " _ & Chr(34) & Me!DatBis & Chr(34) End If Me.Filter = Filterbedingung2 Me.FilterOn = True End Sub Private Sub Bearbeiter_AfterUpdate() Call Filter2_setzen End Sub Private Sub DatVon_AfterUpdate() Call Filter2_setzen End Sub Private Sub DatBis_AfterUpdate() Call Filter2_setzen End Sub Ich denk mal man muss die Textfelder als Datum deklarieren. Aber ich hab da keine Ahnung wie des funktioniert. Ich bin im VBA ein rechter Anfänger. Der Filter soll durch die beiden Textfelder DatVon bzw. DatBis mehrerer Daten(Datums) vergleichen. Das Steuerelement ist in der Tabelle als Datum/Uhrzeit definiert. Tobias

Hallo zusammen, kann man einen Bericht erstellen, bei dem ich durch Kontrollkästchen verschiedene Spalten anzeigen bzw. ausblenden lassen kann? Bis jetzt hab ich mein Problem mit dem Befehl ME!Typ.Visibel=True und einer IF-Schleife versucht zu lösen. Leider ab ich so mein gewünschtes Ergebnis nicht erreicht. Es sollte so sein, dass immer 4 Spalten fest im Bericht stehen und die anderen Spalten wie schon erwähnt durch Kontrollkästchen eingeblendet werden können. Die hinzu schaltbaren Spalten sollen direkt an den 4 festen Spalten angefügt werden. Bitte um Hilfe. Schon mal Danke. Tobias PS: Ich verwende Access 07

Hallo zusammen, Ich habe ein Formular auf dem ein Unterformular ist. Das Unterformular wird in Datenblattansicht dargestellt. Auf dem Formular gibt es drei Textfelder, aus denen ich einen Filter für das Unterformular erzeuge. Des Weiteren habe ich ein Kontrollkästchen auf dem Formular, mit dem man zwei Spalten auf dem Unterformular ein- bzw. ausblenden kann. Nun mein Problem. Wenn nun in einer der beiden Spalten kein Wert steht, dann soll die Spalte trotz aktivem Kontrollkästchen ausgeblendet werden. Bis jetzt funktioniert es bei mir aber nur so, dass der PC nur den aktuellen Datensatz prüft ob in dem zugehörigen Steuerelement ein Wert steht oder nicht und davon das Ein- bzw. Ausblenden der Spalte abhängig macht. Es sollte aber so sein, dass er das Steuerelement aller gefilterten Datensätze überprüft ob ein Wert vorhanden ist. Sobald nur ein Datensatz im entsprechenden Steuerelement einen Wert besitzt soll die Spalte angezeigt werden. Gibt es nun eine Möglichkeit alle gefilterten Datensätze zu überprüfen und nicht nur den aktuellen? Mein aktueller Code dafür ist: Private Sub chkGefuege_Click() If Me!chkGefuege = True Then If Not IsNull(Me!UF_Formular2!Schlifflage) Then Me!UF_Formular2!Schlifflage.ColumnHidden = False Else Me!UF_Formular2!Schlifflage.ColumnHidden = True End If If Not IsNull(Me!UF_Formular2!Reinheitsgrad) Then Me!UF_Formular2!Reinheitsgrad.ColumnHidden = False Else Me!UF_Formular2!Reinheitsgrad.ColumnHidden = True End If Else Me!UF_Formular2!Schlifflage.ColumnHidden = True Me!UF_Formular2!Reinheitsgrad.ColumnHidden = True End If End Sub Bitte um Hilfe. Schon mal Danke. Tobias P.S.: Ich verwende Access 2007

Hallo, ich hab mal von meinem Problem ein Screenshot gemacht, um dass mein Problem vielleicht verständlicher wird. Einfach mal das Word Dokument anschauen. Danke Mfg Tobias Screenshot.doc

Danke, habs gefunden und hat auch funktioniert.:D

Hallo zusammen, Ich habe ein geteiltes Formular mit drei Textfeldern. Nun ist meine Frage, ob es funktioniert, dass ich im Formular festlegen kann welche Textfelder in der Dattenblattansicht dargestellt werden soll. Es soll über ein Kontrollkästchen geschehen. Wenn das Kästchen aktiviert ist soll das Textfeld angezeigt werden. Es muss nicht unbedingt ein geteiltes Formular sein, es wär auch möglich ein neues Formular/Tabelle usw. zu öffnen. Kann man das überhaupt realisieren, wenn ja wie??? PS: Ich verwende Access 2007 Bitte um Hilfe Schon mal Danke. Tobias

Ja des weiß ich schon, aber irgedwie hab ich da nix gefunden. Was genau muss ich da dann umstellen????

Hallo, Kann man in einem Formular die Scrollbar ausschalten. Ich habe ein Formular mit 2 Unterformularen, wenn ich nun dieses Formular öffnen spricht aber nur die Scrollbar des ersten Unterformulars an. Es soll aber so sein, dass nur die Scrollbar des Hauptformulars funktioniert und für die beiden anderen Scrollbars ausgeschaltet sind. Was muss ich da machen??? Bitte um Hilfe. Schonmal Danke. Mfg Tobias

Hallo Reinhold, Danke für den Filter. Er fuktioniert auch, aber irgendwie kann ich den Filter nicht an ein anderes Formular bzw Bericht weitergeben. Über einen Button soll ein weiteres Formular geöffent werden. Folgendes hab ich da geschrieben: DoCmd.OpenForm "stammdaten", acNormal, Me.Filter Es kommt jedoch folgender Laufzeitfehler 3011: Das Mocrosoft Office Access Datenbankmodul konnte das Objekt 'Gegenstand="XY" AND Typ="YZ"' nicht finden. Stellen Sie sicher, dass das Objekt vorhanden und dass die Namens- und Pfadangaben richtig eingegeben wurden. Das komische ist, dass wenn ich ein geteiltes Formular hab, dann filtert er mir die Datensätze in der Datenblattansicht. Wenn ich jedoch das gleiche Formular über den button öffnen möchte geht es schon nicht mehr. PS: Das Textfeld im Sucheformular hat den gleichen Namen wie im zweiten. Weiß vielleicht dafür jemand eine Lösung. Bitte um Hilfe. Schonmal Danke