title image


Smiley So ähnlich habe ich es auch gelöst:
Das OLE-Feld hat jetzt die feste RowSource "Abfrage1". Und so geht's weiter:



On Error Resume Next

Dim db As Database, qry As QueryDef

Set db = CurrentDb

db.QueryDefs.Delete "Abfrage1"

Set qry = db.CreateQueryDef("Abfrage1", Diagramm.RowSource)

DoCmd.OpenReport "rptStatistik_Intervall_Diagramm", acViewPreview



Das funktioniert.



Vielen Dank für Deine Hinweise!



Maxel







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: