Office: (Office 2000) besondere Berichtserstellung

Helfe beim Thema besondere Berichtserstellung in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; ich tu mir noch sehr schwer damit Datenherkunft Bericht=: Code: SELECT M.MaschineID_P, M.Bezeichnung AS Maschine, M.Inventarnum AS Inventarnummer,... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Erich290607, 27. September 2008.

Seite 4 von 6

ERICH290607

Erich290607

besondere Berichtserstellung

ich tu mir noch sehr schwer damit

Datenherkunft Bericht=:

Code:

SELECT M.MaschineID_P, M.Bezeichnung AS Maschine, M.Inventarnum AS Inventarnummer, M.Standort_Maschine AS Ort
FROM tblMaschine AS M INNER JOIN Stoerdauerverlauf_gesamt AS S ON M.Bezeichnung = S.Maschine;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Tabellenerstellung für Stoerdauerverlauf_gesamt=:

Code:

SELECT DISTINCT Bezeichnung AS Maschine, Year([StörDatum]) & " " & Format(DatePart("ww",[StörDatum]),"00") AS Woche, Year(StörDatum) AS Jahr, tblStoerungen.StoerZeitM, tblArbeitsfolge.Arbeitsfolge, tblStoerungen.MStandort, tblBereiche.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
WHERE (((tblStoerungen.StoerZeitM)>0));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie bekomme ich das Format in die tblKW ?

Code:

Select Case Me.Optionsfeld
Case 1
strSQL = strSQL & "WHERE (year(F3) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = 1
Case 2 'Ausgewählte Woche
strSQL = strSQL & "WHERE (F5 = txtWoche.Value) and (year(F3) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = Me.txtWoche '????
Case 3 '53 Woche
strSQL = strSQL & "WHERE ((year(F3) = txtJahr.Value) or (year(F3) = 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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und wieder hinter eine Schaltfläche?

Datenherkunft Diagramm=:

Code:

PARAMETERS [Reports]!rpt_stoerdauerverlauf_gesamt![Montageanlage] Text ( 255 );
TRANSFORM Sum(Stoerdauerverlauf_gesamt.StoerZeitM) AS SummevonStoerZeitM
SELECT Format([KW],"00") & ' ' & Right([tblKW]![Jahr],2) AS xAchse
FROM tblKW INNER JOIN Stoerdauerverlauf_gesamt ON tblKW.Jahr = Stoerdauerverlauf_gesamt.Jahr
WHERE (((Stoerdauerverlauf_gesamt.Maschine)=[Reports]![rpt_stoerdauerverlauf_gesamt]![Montageanlage]))
GROUP BY Format([KW],"00") & ' ' & Right([tblKW]![Jahr],2), tblKW.Jahr, tblKW.KW, tblKW.KW
ORDER BY tblKW.Jahr, tblKW.KW, IIf([Bereich] In ("Mechanik","SPS","EDV","Transfersystem","Zulieferteile","Bedienfehler","n. Zugeordnet","System"),"Mechanik,Software","Elektrik,Qualität,Logistik") DESC
PIVOT IIf([Bereich] In ("Mechanik","SPS","EDV","Transfersystem","Zulieferteile","Bedienfehler","n. Zugeordnet","System"),"Mechanik,Software","Elektrik,Qualität,Logistik");
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

erstes Ergebnis siehe Bild! mit vielzuvielen Maschinen

seht ihr noch etwas was falsch ist? Bitte, Bitte

Erich290607, 12. November 2008

#46
ANNE BERG

Anne Berg

wie bekomme ich das Format in die tblKW ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist die falsche Frage, Erich. Vielmehr würde ich fragen: Warum hast du den Aufbau der Tabelle Stoerdauerverlauf_gesamt geändert, so dass du jetzt die alten Abfragen und Verknüpfungen nicht mehr einsetzen kannst?!

Der sortierfähige Ausdruck "JJJJ MM" mag ja seine Berechtigung haben, zusätzlich brauchst du aber wie bisher die Einzelwerte von Jahr und Monat. Warum die tblKW ändern und nicht die Abfrage?

Was hast du denn am Bericht geändert, dass er jetzt so falsche Diagramme liefert?

Anne Berg, 12. November 2008

#47
ERICH290607

Erich290607

Liebe Anne,

habe noch ein wenig gebastelt in der hochgeladenen TestDB

es gibt noch zwei Probleme beim öffnen des Berichts

1. Parameterwert Montageanlage
2. im Ausdruck stimmt ein Datentyp nicht

hier wollte ich zunächst nicht rumbasteln, da die Hilfe nicht gerade hilfreich ist

mfg
Erich, schaust du bitte mal rein?

PS noch alles ohne Form *wink.gif*

Erich290607, 12. November 2008

#48
ANNE BERG

Anne Berg

besondere Berichtserstellung

Meine Antworten zu deinen Fragen findest du hier

wenn du den Berichtsentwurf öffnest, siehst eine Fehlermarkierung (grünes Dreieck).
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und hier

zusätzlich brauchst du aber wie bisher die Einzelwerte von Jahr und Monat.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.

Ich hätte schon erwartet, dass du auch liest was man dir schreibt... *frown.gif*

Was die Datenherkunft des Diagramms betrifft, so ist hier der Bezug auf das Steuerelement "Montageanlage" entgegen meiner Vermutung in #45 durchaus korrekt, da du das Berichtsfeld ja nicht umbenannt hast, lediglich der Steuerelementinhalt ist ein anderer.
(was natürlich auch wieder seinen Beitrag zur Selbstverwirrung liefert! *wink.gif*)

Anne Berg, 12. November 2008

#49
ERICH290607

Erich290607

Nun habe ich es beinahe geschafft, doch erhalte ich immer noch den Fehler
und damit immer die gleichen Werte im Diagramm.

Wo an welcher Stelle mach ich mir das denn so schwer?

habe nun auch die Einzelwerte Jahr, Woche wieder eingebaut und verglichen

mfg
Erich

Erich290607, 13. November 2008

#50
ANNE BERG

Anne Berg

Hast du das Steuerelement umbenannt, so musst du das auch in der Abfrage berücksichtigen.

Anne Berg, 13. November 2008

#51
ERICH290607

Erich290607

ich habe das Steuerelement hin und her umbenannt und über den Zauberstab
das Kriterium gesetzt

ich erhalte immer kein gültiger Feldname

Bitte wer hat den da eine Lösung?

Erich290607, 13. November 2008

#52
ANNE BERG

Anne Berg

besondere Berichtserstellung

mein Tipp: Zeig einen Screenshot mit einem Ausschnitt vom Berichtsentwurf mit Position auf dem Feld und eingeblendeten Eigenschaften. Vielleicht sehen wir mehr als du. *wink.gif*

Anne Berg, 13. November 2008

#53
ERICH290607

Erich290607

ich werde noch wahn..........

Erich290607, 13. November 2008

#54
ANNE BERG

Anne Berg

Tja, Erich, dich wird's nicht wundern, aber da habe ich jetzt auch keine Erkärung für.
Vorausgesetzt, alles passt so zusammen wie du es beschrieben hast...

...kann ich mal in deine aktiuelle DB-Version reinschauen?

Anne Berg, 13. November 2008

#55
ERICH290607

Erich290607

Aktuell ist schwierig, viel zu groß

hoffe der kleine tuts auch, sind recht wenig Daten.

wenn ich Bockmist gebaut habe, bitte schimpfen!!!!!!!!!!!!!

Erich290607, 13. November 2008

#56
ANNE BERG

Anne Berg

Hallo Erich,

1. Fehler (s. Anhang-1): ändere den Eintrag im Menü "Sortieren und Gruppieren" von Montageanlage auf Maschine
weil: in der Datenherkunft des Berichts gibt es kein Datenfeld "Montageanlage"!

2. Fehler (s. Anhang-2): In der Tabelle "Stoerdauerverlauf_gesamt" gibt es kein Datenfeld "Maschine", hier heißt es "Bezeichnung"!

Wie schon gesagt: Bemühe dich um eine einheitliche Benennung gleichbedeutender Datenfelder, sonst kommt du nie auf einen grünen Ast.

Anne Berg, 13. November 2008

#57
ERICH290607

Erich290607

besondere Berichtserstellung

Liebe Anne, tausend mal sorry und Danke

bin der Meinungdas ich das in der aktuellen Version probiert habe und doch einen Fehler eingebaut hatte, nun funktioniert es.

Oh Gott, mag kaum fragen da ich mich hier so bl... anstelle.
Nun möchte ich das ganze wie in der alten Version in VBA schreiben um die Hilfstabelle mit den entsprechenden Wochen für das Jahr zu füllen.

ich weiß nun nicht wie ich den sql String der neuen Abfrage schreiben muss

so lief es in der alten Version:

Code:

strSQL = "SELECT DISTINCT F15 As Anlage, year(F3) as Jahr,F15,F5,F6,F7,F8,F20,F14 " & _
"INTO [Stoerdauerverlauf_gesamt] FROM Stoerungen "
'dabei geht es um diesen sql String die Optionsfelder sind glaube ich nicht das Problem!
Select Case Me.Optionsfeld
Case 1
strSQL = strSQL & "WHERE (year(F3) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = 1
Case 2 'Ausgewählte Woche
strSQL = strSQL & "WHERE (F5 = txtWoche.Value) and (year(F3) =txtJahr.Value)"
strJahr = Me.txtJahr: intKW = Me.txtWoche '????
Case 3 '53 Woche
strSQL = strSQL & "WHERE ((year(F3) = txtJahr.Value) or (year(F3) = 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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dieser Code macht mir Bauchschmerzen, so wird die Tabelle "Stördauerverlauf_gesamt" jetzt erstellt

Code:

SELECT DISTINCT tblMaschine.Bezeichnung AS Maschine, tblStoerungen.NrWoche AS Woche, tblStoerungen.NrJahr AS Jahr, tblStoerungen.StoerZeitM, tblArbeitsfolge.Arbeitsfolge, tblStoerungen.MStandort, tblBereiche.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
WHERE (((tblStoerungen.StoerZeitM)>0));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Erich290607, 13. November 2008

#58
ANNE BERG

Anne Berg

Erich, nur du kannst wissen, welche Feldbezeichnungen du wie geändert hast.
Wie gesagt, erstell dir eine Tabelle (in Excel *wink.gif*) mit den Spalten "alt" und "neu", das sollte die Arbeit erleichtern.

Anne Berg, 13. November 2008

#59
ERICH290607

Erich290607

Habe mir das mal in Excel eingebaut, komm aber nicht mit dem Code klar.
Bevor ich mich hier wieder die DB kaputt schieße hier mal eine Code Ansicht im Anhang.

Du siehst bestimmt eher die Fehler als ich!
mein Problem ist das ich "in der alten Version" eine tab Stoerungen hatte, nun habe ich doch mehrere.

mfg
Erich

Erich290607, 14. November 2008

#60

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

Seite 4 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