Abfrage+Bericht konvertieren Access 2003 zu 2007
eagle
Gesendet: 28.11.11 17:57
Betreff: RE: Abfrage+Bericht konvertieren Access 2003 zu 2007


Hallo Peter,

danke für Deine Nachricht und den Hinweis, ich werde das hier mal mit den Entwicklern diskutieren. Ich bin nämlich nicht der Crack, sondern der 'Azubi' in Sachen Programmcode, der die Vorarbeit bei der Analyse leisten muss. Mal sehen, ob ich mich da durchsetzen kann, mit Deiner Information als Stärkung im Rücken.

Ja, Du hast recht, es war nicht der Ampersand, es war nicht die Where Bedingung - es waren schlicht und ergreifend ein paar Zeilen Code, die aus der alten Version fehlten und zwar exakt 4 Zeilen ('111128 CBL Import aus 4.x), die aus der Vorgänger Version geholt wurden. Ob das jetzt menschliches Versagen war, oder bei der Releaseumstellung von Access 2003 auf 2007, genau diese Zeilen einfach so verschwunden sind - who knows. Fröhlich hat mich das nicht gemacht. Doch entscheidend ist, dass der Kunde jetzt wieder seinen Bericht so hat, wie er ihn geordert hatte vor vielen Jahren.

Das Stück Programm Code heißt OpenYY - und so sieht es aus - Dir noch einmal vielen Dank für die Unterstützung - und Grüße von eagle/Gitta
quote
If bView Then
'ok = SetIcon(Nothing, "1B")
OK = DBChgProtFix("Report", szReport, "WHERE " + szWhere, SZ_TXT_ACTION_SCR)
If AddWhereToQuerydef(szQuery, szWhere) Then
'111128 CBL Import aus 4.x
GL_szReportWhere = szQuery
DoCmd.OpenReport szReport, A_PREVIEW, szQuery
Else
'111128 CBL Import aus 4.x
GL_szReportWhere = szWhere
DoCmd.OpenReport szReport, A_PREVIEW, , szWhere
End If
OK = SetIcon(Nothing, "1B")
Reports(szReport).RibbonName = "POSY_ReportPreview"
Else
OK = DBChgProtFix("Report", szReport, "WHERE " + szWhere, SZ_TXT_ACTION_PRN)
If AddWhereToQuerydef(szQuery, szWhere) Then
'111128 CBL Import aus 4.x
GL_szReportWhere = szWhere
DoCmd.OpenReport szReport, A_NORMAL, szQuery
Else
'111128 CBL Import aus 4.x
GL_szReportWhere = szWhere
DoCmd.OpenReport szReport, A_NORMAL, , szWhere
End If
End If
Exit Function
OpenYY920:
If Err = 2501 Then
OK = Eval(Mid$(Forms(Forms.Count - 1).OnActivate, 2))
Resume Next
End If

DoCmd.Echo True
If ErrMsg(Err, szFun) Then Resume Next
Exit Function
End Function
unquote
Top of the page Bottom of the page