Office: (Office 2000) besondere Berichtserstellung

Helfe beim Thema besondere Berichtserstellung in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Erich. mein Problem ist das ich "in der alten Version" eine tab Stoerungen hatte, nun habe ich doch mehrere. Und welche wären das? Ich sehe da... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 27. September 2008.

Seite 5 von 6

ANNE BERG

Anne Berg

besondere Berichtserstellung

Hallo Erich.

mein Problem ist das ich "in der alten Version" eine tab Stoerungen hatte, nun habe ich doch mehrere.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und welche wären das? Ich sehe da nur eine "tblStoerungen".

Anne Berg, 14. November 2008

#61
ERICH290607

Erich290607

Hallo Anne,

schau mal die Grafik, hier habe ich einen Knoten mit der SQL-Anweisung erstelle ich eine Tabelle.

nur im VBA funktioniert das nicht weil ich zu blöd bin

Code:

Dim strsql As String
strsql = "SELECT DISTINCT Bezeichnung AS Maschine, year(StörDatum) AS Jahr, NrWoche, StoerZeitM, Arbeitsfolge, MStandort, Bereich " & _
"INTO [Stoerdauerverlauf_gesamt_Testen] FROM tblStoerungen "
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 14. November 2008

#62
ERICH290607

Erich290607

Hallo Anne, @Alle

nun habe ich diesen Code gebastelt er funktioniert! so weit nur sehr langsam
wenn ich die noch fehlenden Tabellen tblArbeitsfolge, tblBereiche hinzufüge

hier wird nun immer die Parameterabfrage angezeigt

Code:

Sub tabStoerdauerverlauf_gesamt_erstellen()
Dim strsql As String
'strsql = "SELECT DISTINCT Bezeichnung AS Maschine, year(StörDatum) AS Jahr, NrWoche as Woche, StoerZeitM, ArbeitsfolgeID_F, MStandort, BereichID_F " & _
"INTO [Stoerdauerverlauf_gesamt_Test] FROM tblStoerungen "
strsql = "SELECT DISTINCT tblMaschine.Bezeichnung AS Maschine, tblStoerungen.NrWoche AS Woche, tblStoerungen.NrJahr AS Jahr, tblStoerungen.StoerZeitM, tblArbeitsfolge.Arbeitsfolge as Arbeitsfolge, tblStoerungen.MStandort,tblBereiche.Bereich as Bereich " & _
"INTO [Stoerdauerverlauf_gesamt_Test] FROM tblMaschine, tblStoerungen "

'// Optionsfelder im Formular Auswertungen zum Test der Tabellenerstellungsabfrage auskommentiert
'Select Case Me.Optionsfeld
'Case 1
'strsql = strsql & "WHERE (year(StörDatum) =2008)"
'strJahr = 2008: intKW = 1
'Case 2 'Ausgewählte Woche
strsql = strsql & "WHERE (NrWoche = 45) and (year(StörDatum) =2008)"
strJahr = 2008: intKW = 45 '???? 'Case 3 '53 Woche
' strsql = strsql & "WHERE ((year(StörDatum) = txtJahr.Value) or (year(StörDatum) = txtJahr.Value-1))"
' strJahr = Me.txtJahr: intKW = Me.txtWoche
'End Select
'Debug.Print strSQL
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
DoCmd.SetWarnings True
'End If
'Hilfstabelle tblKW erstellen
strsql = "Delete * from tblKW;"
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
DoCmd.SetWarnings True

strsql = "Select * from tblKW;"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strsql)
GoTo Neuer_Weg
'Alter Weg
For i = 1 To 53
rst.AddNew
rst!Jahr = strJahr
rst!KW = intKW
rst.Update
If intKW = 53 Then
intKW = 1
strJahr = strJahr - 1
Else
intKW = intKW + 1
End If
Next i
'Ende alter Weg
Neuer_Weg:
'Rückwärtsdarstellung
For i = 1 To 53
rst.AddNew
rst!Jahr = strJahr
rst!KW = intKW
'rst!MA_Soll = Me.txtSoll
rst.Update
'If Me.Optionsfeld = 1 Then 'ganzes Jahr
' intKW = intKW + 1
'Else
intKW = intKW - 1
If intKW = 0 Then
'Kalenderwoche ermitteln
strJahr = strJahr - 1
intTag = 31
Do Until intKW > 50
intKW = fktKalenderwoche(DateSerial(CInt(strJahr), 12, intTag))
intTag = intTag - 1
Loop
'End If
End If
Next i
rst.Close
Set dbs = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg @Alle
Erich

Erich290607, 15. November 2008

#63
ERICH290607

Erich290607

besondere Berichtserstellung

ON Top

@Alle kann jemand helfen?

habe noch ein Problem mit der Tabellenerstellungsabfrage für das Diagramm, sonst funktioniert ja soweit wieder die Auswertung in der neuen DB.

wie bkomme ich auch die richtigen Parameter tblArbeitsfolge und tblBereiche
in meine Tabellen? wenn ich die im Code hinzufüge, dann läuft die Eieruhr unendlich ich muss Access dann Zwangsweise beenden.

Code:

Private Sub Stoerdauerverlauf_Auswerten_Click()
Dim strsql As String, dbs As DAO.Database, rst As DAO.Recordset
Dim strJahr As String, intKW As Integer, intTag As Integer
Dim Pausenlänge, Start, Ende, Gesamtdauer
Dim intz As Integer

Me!ProgressBar6.Min = 0
Me!ProgressBar6.Max = 1000
For intz = Me!ProgressBar6.Min To Me!ProgressBar6.Max
Me!ProgressBar6.Value = intz
intz = intz + 1
Next
Me!ProgressBar6.Value = 0

On Error GoTo ErrorHandling
Me.SF_Diagramm.Enabled = False
If Me.txtAnlage = "?" Then
MsgBox "Bitte Suchbegriff eintragen"
Exit Sub
Else
Me.Text6.Visible = True
Me.Text6 = "Suche und schreibe Daten..."
strsql = "SELECT DISTINCT tblMaschine.Bezeichnung AS Maschine, tblStoerungen.NrWoche AS Woche, tblStoerungen.NrJahr AS Jahr, tblStoerungen.StoerZeitM, tblArbeitsfolge.Arbeitsfolge as Arbeitsfolge, tblStoerungen.MStandort,tblBereiche.Bereich as Bereich " & _
"INTO [Stoerdauerverlauf_gesamt_Test] FROM tblMaschine, tblStoerungen " ;)
'// Optionsfelder auswerten
Select Case Me.Optionsfeld
Case 1
strsql = strsql & "WHERE (Bezeichnung = txtAnlage.Value) And (year(StörDatum) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = 1
Case 2 'Ausgewählte Woche
strsql = strsql & "WHERE (Bezeichnung = txtAnlage.Value) And (NrWoche = txtWoche.Value) and (year(StörDatum) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = Me.txtWoche '????
Case 3 '53 Woche
strsql = strsql & "WHERE (Bezeichnung = txtAnlage.Value) And ((year(StörDatum) = txtJahr.Value) or (year(StörDatum) = txtJahr.Value-1))"
strJahr = Me.txtJahr: intKW = Me.txtWoche
End Select
'Debug.Print strSQL
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
DoCmd.SetWarnings True
End If
'Hilfstabelle tblKW erstellen
strsql = "Delete * from tblKW;"
DoCmd.SetWarnings False
DoCmd.RunSQL strsql
DoCmd.SetWarnings True

strsql = "Select * from tblKW;"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strsql)
GoTo Neuer_Weg
'Alter Weg
For i = 1 To 53
rst.AddNew
rst!Jahr = strJahr
rst!KW = intKW
rst.Update
If intKW = 53 Then
intKW = 1
strJahr = strJahr - 1
Else
intKW = intKW + 1
End If
Next i
'Ende alter Weg
Neuer_Weg:
'Rückwärtsdarstellung
For i = 1 To 53
rst.AddNew
rst!Jahr = strJahr
rst!KW = intKW
'rst!MA_Soll = Me.txtSoll
rst.Update
If Me.Optionsfeld = 1 Then 'ganzes Jahr
intKW = intKW + 1
Else
intKW = intKW - 1
If intKW = 0 Then
'Kalenderwoche ermitteln
strJahr = strJahr - 1
intTag = 31
Do Until intKW > 50
intKW = fktKalenderwoche(DateSerial(CInt(strJahr), 12, intTag))
intTag = intTag - 1
Loop
End If
End If
Next i
rst.Close
Set dbs = Nothing
'If (MsgBox("5 Sekunden Pause?", 4)) = vbYes Then
Pausenlänge = 1 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
Do While Timer < Start + Pausenlänge
DoEvents ' Steuerung an andere Prozesse abgeben.
Loop
Ende = Timer ' Ende festlegen.
Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.

Me!ProgressBar6.Visible = True

'eine Visualiierung anzeigen in Form einer Progressbar

Me!ProgressBar6.Min = 0
Me!ProgressBar6.Max = 1000

For intz = Me!ProgressBar6.Min To Me!ProgressBar6.Max
Me!ProgressBar6.Value = intz
intz = intz + 1
Next
Me!ProgressBar6.Value = 0
Me.Text6 = "Bitte warten..."
'Montageort eintragen
DoCmd.SetWarnings False
'DoCmd.RunSQL _
'"UPDATE Stoerdauerverlauf SET Stoerdauerverlauf.F20 = Formulare!frmStoerdauerverlauf.txtOrt.Value"
'DoCmd.SetWarnings True
'Me!ProgressBar6.Visible = False

'If (MsgBox("5 Sekunden Pause?", 4)) = vbYes Then
Pausenlänge = 2 ' Dauer festlegen.
Start = Timer ' Anfangszeit setzen.
Do While Timer < Start + Pausenlänge
DoEvents ' Steuerung an andere Prozesse abgeben.
Loop
Ende = Timer ' Ende festlegen.
Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.
'MsgBox "Die Pause dauerte " & Gesamtdauer & " Sekunden"
'Else
'End If
Me.Text6.Value = "Auswertung beendet..."
Me!ProgressBar6.Visible = True
'eine Visualiierung anzeigen in Form einer Progressbar

Me!ProgressBar6.Min = 0
Me!ProgressBar6.Max = 2000

For intz = Me!ProgressBar6.Min To Me!ProgressBar6.Max
Me!ProgressBar6.Value = intz
intz = intz + 1
Next
Me!ProgressBar6.Value = 0
Me.SF_Start.Caption = "> Starten
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 16. November 2008

#64
ERICH290607

Erich290607

Hallo wer ist in der nähe, und kann hier helfen
komme mit der sql Anweisung bzw. Inner Join, Join nicht klar

Roter sql Anweisung

Danke

Erich290607, 17. November 2008

#65
ANNE BERG

Anne Berg

Hallo Erich,

du musst die Tabellen miteinander verknüpfen, wenn du ein sinnvolles Ergebnis haben möchtest.

mein Tipp: erstelle die Abfrage im Entwurfsfenster und schau dir das Ergebnis im SQL-Fenster an. Dann siehst du wie es geht.

Anne Berg, 17. November 2008

#66
ERICH290607

Erich290607

mein erster Versuch, zwar ohne Problem bzw. Fehlermeldung gelaufen jedoch bleiben meine Tabellen damit leer

Code:

strsql = "SELECT DISTINCT tblMaschine.Bezeichnung AS Maschine, tblStoerungen.NrWoche AS Woche, tblStoerungen.NrJahr AS Jahr, tblStoerungen.StoerZeitM, tblArbeitsfolge.Arbeitsfolge as Arbeitsfolge, tblStoerungen.MStandort,tblBereiche.Bereich as Bereich " & _
"INTO [Stoerdauerverlauf_gesamt] FROM tblMaschine INNER JOIN (tblBereiche INNER JOIN (tblArbeitsfolge INNER JOIN tblStoerungen ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F) ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F) ON tblMaschine.MaschineID_P = tblArbeitsfolge.MaschineID_F "
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 17. November 2008

#67
ANNE BERG

Anne Berg

besondere Berichtserstellung

Dann schau dir die Daten dazu an, ob alle Beziehungen auch erfüllt werden können.

Andernfalls musst du vielleicht den Beziehungstyp ändern. Schau dir mal die Möglichkeiten an (Verknüpfungseigenschaften).

Anne Berg, 17. November 2008

#68
ERICH290607

Erich290607

Versteh ich nicht, im SQL - Fenster funktioniert das, Tabelle erhält Daten

im VBA hinter meiner Schaltfläche als String Anweisung nicht, Tabelle bleibt hier ohne Daten

was habe ich übersehen? oder gar falsch gemacht?

Code:

strsql = "SELECT DISTINCT tblMaschine.Bezeichnung AS Maschine, tblStoerungen.NrWoche AS Woche, tblStoerungen.NrJahr AS Jahr, tblStoerungen.StoerZeitM, tblArbeitsfolge.Arbeitsfolge as Arbeitsfolge, tblStoerungen.MStandort,tblBereiche.Bereich as Bereich " & _
"INTO [Stoerdauerverlauf_gesamt] FROM tblMaschine INNER JOIN (tblBereiche INNER JOIN (tblArbeitsfolge INNER JOIN tblStoerungen ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F) ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F) ON tblMaschine.MaschineID_P = tblArbeitsfolge.MaschineID_F "
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 17. November 2008

#69
ANNE BERG

Anne Berg

Wird der Bericht (welcher?) nach Ausführung der Abfrage automatisch geöffnet? Wie lautet die Datenherkunft des Berichts?

Bist du sicher, dass der Code erwartungsgemäß durchlaufen wird? (teste dies im Unterbrechungsmodus)

Anne Berg, 17. November 2008

#70
ANNE BERG

Anne Berg

Autsch!
Ich dachte, du hättest den Code rot gefärbt, aber offensichtlich tut dies der Compiler (und du hast das einfach so weitergegeben?) - und du hast die Fehlermeldung einfach ignoriert?!
Das geht doch gar nicht... *confused.gif*

Anne Berg, 17. November 2008

#71
ERICH290607

Erich290607

Ich glaube ich spin.. mit dieser SQL - Anweisung habe ich ebenfalls Probleme

im sql Fenster OK im VBA Fenster ??

Code:

strsql = "SELECT year(StörDatum) as Jahr,tblStoerungen.NrWoche as Woche,tblStoerungen.StoerZeitM,tblArbeitsfolge.Arbeitsfolge as Arbeitsfolge,tblMaschine.Bezeichnung AS Maschine,tblBereiche.Bereich as Bereich " & _
"INTO [Stoerdauerverlauf] FROM tblMaschine INNER JOIN (tblArbeitsfolge INNER JOIN (tblBereiche INNER JOIN tblStoerungen ON tblBereiche.BereichID_P = tblStoerungen.BereichID_F) ON tblArbeitsfolge.ArbeitsfolgeID = tblStoerungen.ArbeitsfolgeID_F) ON tblMaschine.MaschineID_P = tblArbeitsfolge.MaschineID_F"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fehler 3135
Syntaxfehler in Join Operation

Erich290607, 17. November 2008

#72
ERICH290607

Erich290607

besondere Berichtserstellung

Wird der Bericht (welcher?) nach Ausführung der Abfrage automatisch geöffnet?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ja MsgBox Ja Nein

das mit dem Bericht hatten wir schon die Herkunft ist in Ordnung da bastel ich nicht mehr herum, dh. Ist Stoerdauerverlauf_gesamt

Erich290607, 17. November 2008

#73
ANNE BERG

Anne Berg

'// Optionsfelder auswerten
Select Case Me.Optionsfeld
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welchen Wert hat denn da Me!Optionsfeld??

Anne Berg, 17. November 2008

#74
ERICH290607

Erich290607

Value

Code:

'// Optionsfelder auswerten
Select Case Me.Optionsfeld
Case 1
strsql = strsql & "WHERE (Bezeichnung = txtAnlage.Value) And (year(StörDatum) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = 1
Case 2 'Ausgewählte Woche
strsql = strsql & "WHERE (Bezeichnung = txtAnlage.Value) And (NrWoche = txtWoche.Value) and (year(StörDatum) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = Me.txtWoche '????
Case 3 '53 Woche
strsql = strsql & "WHERE (Bezeichnung = txtAnlage.Value) And ((year(StörDatum) = txtJahr.Value) or (year(StörDatum) = txtJahr.Value-1))"
strJahr = Me.txtJahr: intKW = Me.txtWoche
End Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 17. November 2008

#75

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 5 von 6

Thema:

besondere Berichtserstellung

Die Seite wird geladen...

besondere Berichtserstellung - Similar Threads - besondere Berichtserstellung
Besondere Kennzeichnung von Werten ausserhalb Toleranzbereich in Diagramm
in Microsoft Excel Hilfe
Besondere Kennzeichnung von Werten ausserhalb Toleranzbereich in Diagramm: Hallo, nach tagelanger erfolglosen Recherche versuche in nun hier mein Glueck ;) mein Problem laesst sich durch die beigefuegte Skizze am Besten erklaeren. Die roten senkrechten Linien...
VBA - wenn neuer Eintrag, dann (besondere) Spalte hinzufügen
in Microsoft Excel Hilfe
VBA - wenn neuer Eintrag, dann (besondere) Spalte hinzufügen: Hallo Excel Freaks! Hab eine wiedermal eine kleine Herausforderung im Excel. Ich habe einen Fragebogen der von bestimmten Leuten ausgefüllt werden muss. In diesem Excel Fragebogen gibt es...
Frage zu Besonderheit in VBA
in Microsoft Excel Hilfe
Frage zu Besonderheit in VBA: Hallo zusammen! Oft finde ich Formulierungen die aus meiner Sicht das Gleiche meinen aber dennoch beide unterscheidlich genutzt werden. If Left$(strPath, 2) = "\\" Then If Left(strPath, 2) =...
Serienbrief mit Excel liste (besondere Adressenwahl)
in Microsoft Word Hilfe
Serienbrief mit Excel liste (besondere Adressenwahl): Hallo ihr lieben! Ich habe folgende frage: Ich habe eine excel datei mit vielen adressen als grundlage für meinen serienbrief in word, die adressen sind allerdings nach kategorie 1 2 und 3...
doppelte Einträge Filtern oder besonders Kennzeichnen
in Microsoft Excel Hilfe
doppelte Einträge Filtern oder besonders Kennzeichnen: Hallo, habe ein mittelschweres Problem. Ich habe Excel 2003 und dort eine Datei mit ca. 65555 Zeilen die gefüllt sind mit Kunden Daten. Kunden Nr Anrede Titel Name Vorname Postleitzahl...
Monatsübersicht, besondere Tage hervorheben
in Microsoft Excel Hilfe
Monatsübersicht, besondere Tage hervorheben: Hallo, ich habe hier eine Monatsübersicht. Mein Problem ist, ich möchte gerne das er mir die Wochenden makiert sowie jeden Donnerstag. Ich brauche das leider und bin schon leicht am...
Tabellenblatt kopieren auf besondere Art
in Microsoft Excel Hilfe
Tabellenblatt kopieren auf besondere Art: Hallo! Ich möchte gerne ein bestehendes tabellenblatt kopieren indem sich ein diagramm befindet welches sich auf einen wert in dem tabellenblatt bezieht. nun möchte ich dieses tabellenblatt...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden