Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

es klappt nicht
Autor: Redo
Datum: 12.06.02 11:20
Hallo zusammen ,ich habe ein großes Probleme:Ich habe eine Abfrage deren Ergebnis aus mehreren Zeilen und Spalten besteht.Dazu habe ich ein Bericht mit einem Textfeld(name=text100).Ich habe eine Funktion die die Standardabweichung eines eindimensionale Array berrechnt Function Standardabweichung(ParamArray Werte() As Variant) Nun will ich die Zeilen der 7 Spalte (mwMittelgewicht) des Abfrageergebnisses auslesen und in einem eindimensionalen Array speichern um dieses Array als Parameter der Funktion Standardabweichung zu übergeben .Der Rückgabewert diese Funktion soll im Text(name=Text100)ausgegeben werden.Ich habe folgendess probiert aber im Bericht ist nichts zu sehen. Private Sub Test() Dim db As Database Dim rs As String rs = "qryMesswerteAlle" Set db = CurrentDb DoCmd.OpenQuery "rs", , acReadOnly Dim lCount As Long Dim lCur As Long rs.MoveLast lCount = rs.RecordCount ReDim sResult(lCount) rs.MoveFirst Do Until rs.EOF lCur = lCur + 1 sResult(lCur) = rs("mwMittelgewicht") rs.MoveNext Loop Me.Text100 = Standardabweichung(sResult()) End Sub Danke im voraus. Gruß redo

Abfrageergenis Auslesen	197	redo	11.06.02 18:19
Re: Abfrageergenis Auslesen	236	Dieter	11.06.02 18:27
Vielen Dank	81	redo	11.06.02 18:34
es klappt nicht	36	Redo	12.06.02 11:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen