Forums Neueste Beiträge
 

SQL Ergebnis in VBA über Funktion an Textfeld in Bericht übergeben

05/03/2009 - 20:18 von joergnews | Report spam
Hallo NG,

Access 2003.

Ich habe in einem Bericht ein Textfeld und möchte diesem einen Wert
aus einer Funktion in VBA zuweisen.

Function fktDatumMin()
Dim strSQL As String

strSQL = "SELECT Max([Tabelle1].BeginnDatum) AS MinvonBeginnDatum " &
_
"FROM Tabelle1 " & _
"GROUP BY [Tabelle1].Name;"

Debug.Print strSQL

fktDatumMin = strSQL

End Function

Dem Textfeld im Bericht würde ich als Steuerlementinhalt die Funktion
mit =fktDatumMin() übergeben.

a) Ist das richtig?

b) Nur wie weise ich nun der Funktion den Wert des Eregbnis des SQLŽs
zu?

So schreibt er mir ins Textfeld den String von strSQL und nicht das
Ergebnis.

Danke, Gruß Jörg

P.S.:
Ich muss aus verschiedenen Gründen dabei bleiben, den Wert in VBA zu
ermitteln und diesen dann darüber an das Textfeld im Bericht
übergeben.
 

Lesen sie die antworten

#1 André Minhorst
05/03/2009 - 20:28 | Warnen spam
Hi,

Am Thu, 5 Mar 2009 11:18:28 -0800 (PST) schrieb :
Access 2003.

Ich habe in einem Bericht ein Textfeld und möchte diesem einen Wert
aus einer Funktion in VBA zuweisen.

Function fktDatumMin()
Dim strSQL As String

strSQL = "SELECT Max([Tabelle1].BeginnDatum) AS MinvonBeginnDatum " &
_
"FROM Tabelle1 " & _
"GROUP BY [Tabelle1].Name;"

Debug.Print strSQL

fktDatumMin = strSQL

End Function

Dem Textfeld im Bericht würde ich als Steuerlementinhalt die Funktion
mit =fktDatumMin() übergeben.

a) Ist das richtig?



Nein. Du solltest das im Beim Formatieren oder Beim Drucken-Ereignis des
entsprechenden Bereichs zuweisen, etwa mit

Me.Steuerelementname = fktDatumMin

b) Nur wie weise ich nun der Funktion den Wert des Eregbnis des SQLŽs
zu?



fktDatumMin = currentdb.openrecordset(strSQL).fields(0)

Und sonst:

Dein SQL-Ausdruck liefert unter Umstànden mehrere Werte zurück, nàmlich für
jede Gruppierung einen, das ist Dir klar, oder?

Ciao
André

http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen