Office: (Office 2016) Datensatzquelle per VBA ändern

Hallo,

ich hab eine Frage. Ich hab ein Hauptformular (frmDaten) und ein Unterformular (ufoAuswertung) und ich möchte die Datensatzquelle des Unterformulars per VBA ändern. Die Datensatzquelle
ist eine Abfrage (qryDatenungruppiert) und soll auf die Abfrrage (qryDatengruppiert) geändert werden.

Wie kann man das bewerkstelligen? Jemand ne Idee?

Danke und Grüße,

Bobby

:)

 

Code:

Dabei musst Du statt UF den Namen des Steuerelementes im Hauptformular, in dem das Unterformular (ufoAuswertung) angezeigt wird, eintragen.

 

Okay. Jetzt wird mir bei 2 Feldern im UFO bei Anzahl und Preis der Fehler #Name? angezeigt. In der neuen GRUPPIERTEN Abfrage, die ich jetzt Dank deines Codes scheinbar zugewiesen habe, habe ich bei diesen beiden Feldern Summe stehen. Vorher waren das ungruppierte Felder. Ne Idee, wie ich da jetzt den Fehler #Name wegbekomme?

 

Sicher meinst Du, das es Felder aus der anderen Abfrage sind. Da die Feldnamen im Unterformular sich offenbar von den Feldnamen der Abfrage "qryDatenungruppiert" unterscheiden musst Du die entsprechenden Felder in das Unterformular einfügen.
Wird dem Unterformular wieder die Datenherkunft "qryDatengruppiert" zugewiesen sind die "alten" Felder betroffen, diese zeigen dann die Meldung "#Name" an, was so viel bedeutet, das der korrespondierende Feldname in der Datenherkunft fehlt.
Abhilfe für das Problem ist der Wechsel des Unterformulares; dazu benötigst Du 2 Unterformulare. Eines mit dem Namen "ufoAuswertung" und ein weiteres "ufoAuswertung_grp" - dieses UF hat die Datenherkunft "qryDatengruppiert" mit den dazu passenden Feldern.

 

Stimmt das eine Feld heißt dann SummevonAnzahl und das andere SummevonPreis. Und da gibt es kein anderen Weg die Controlsource dieser beiden Felder neu festzulegen?

 

Klar, genauso.
Code:

 

Am einfachsten ist es, mit 2 Unterformularen zu arbeiten. Diese können mit Code:

getauscht werden. Ein kleines Beispiel findest Du anliegend.

 

Super. Danke! Das Feld konnte ich zuweisen. Er summiert zwar nicht, aber weil an der Abfrage was nicht stimmt. Das muss ich mal checken, aber soweit funktioniert erstmal der Austausch der Abfrage.

 

Wenn Du in den beiden Abfragen diesen Felder einen identischen Namen gibst, sollte das Problem gelöst sein.