jak za pomocą vba uruchomić kwerende
Robert Ch
obliczeń
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Piotr Lipski
> jak za pomocą vba uruchomić kwerende aby na jej zestawie rekordów dokonać
> obliczeń
Jakiego typu jest ta kwerenda? Wybierająca? Aktualizująca? Tworząca tabelę?
Pass-through?
--
PL
Robert Ch
Jest to kwerenda sumująca z której chcę pobrać wartości
Konkretnie z pola w wyższym rekordzie pobrać wartość i odjąc od pola w
niższym i tak poprzez wszystkie rekordy kwerendy
Robert Ch
> Dodam jeszcze że kwerenda sumuje wartości po polu data
Piotr Chlabicz
>> > jak za pomocą vba uruchomić kwerende aby na jej zestawie rekordów
> dokonać
>> > obliczeń
>>
>> Jakiego typu jest ta kwerenda? Wybierająca? Aktualizująca? Tworząca
>> tabelę?
>> Pass-through?
>> Dodam jeszcze że kwerenda sumuje wartości po polu data
Poczytaj o Recordset'ach
--
Piotr Chlabicz
http://groups.google.pl/groups?as_ugroup=pl.comp.bazy-danych.msaccess
Robert Ch
ktos by mógł podrzucić mi jakąś składnie
Grzegorz Danowski
news:el1fod$l55$1...@inews.gazeta.pl...
> Dzięki ale to juz przerabiam z 4 książek i nic mi z tego nie wychodzi moze
> ktos by mógł podrzucić mi jakąś składnie
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("NazwaTwojejKwerendy")
lub ADO:
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.Execute("NazwaTwojejKwerendy")
Pozdrawiam
Grzegorz
Robert Ch
To spowoduje wykonanie kwerendy a ja chce dokonać operacji na rekordach przez
nią zwroconych chyba ze jest jakis inny sposób zeby od pola znajdującego się
we wczesniejszym wierszu zwroconym przez kwerende pobrac wartosc i odjac od
pola w następnym rekordzie
Hubert Schwarz
Ależ Robercie, żeby otrzymać jakiekolwiek rekordy (wiersze), MUSISZ wykonać
kwerendę.
Rekordy bez kwerendy to tabela.
>a ja chce dokonać operacji na rekordach przez
No i OK, kwerenda świetnie się tu sprawdzi.
Do kodu Grzegorza Danowskiego:
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("NazwaTwojejKwerendy")
możesz dodać coś takiego:
dim i as long ' sprawdź, czy Twoje dane to long czy inny format
if rst.EOF then goto koniec
rst.movefirst
i=rst!pole_z_liczbą
rst.movenext
Do until rst.eof
i=i-rst!pole_z_liczbą
rst.movenext
loop
rst.close
set rst=nothing
Czy dobrze rozumiem, że potrzebne Ci są też wyniki po przeliczeniu każdego
rekordu? Czy tylko różnica pierwszego rekordu i sumy pozostałych?
--
pozdrawiam,
Hubert Schwarz
Robert Ch
pobieram wartość z wyższego i odejmuję od wartości niższego itd
A czy da się za pomoćą kodu wstawić kolejne pole tekstowe zeby w nim została
wyswietlona liczba w ten sposób obliczona?
I dzięki za pomoc
Hubert Schwarz
> została
> wyswietlona liczba w ten sposób obliczona?
> I dzięki za pomoc
Oczywiście, że można (w formie lub raporcie), ale jeszcze lepiej utworzyć na
formularzu pole tekstowe ze źródłem danych: funkcją obliczającą dla każdego
rekordu z osobna.
Przy dużej ilości rekordów zastanowiłbym się jednak nad tymczasową tabelą.
--
pozdrawiam,
Hubert Schwarz
Robert Ch
bedzie wiele problem jest w tym że do wykonania określonego zadania potrzebne
mi są pewne zasoby i jeżeli nie wykorzystam całych zasobów przy zadaniu z
pierwszej daty czyli np zadanie 400 godzin zasoby 600 to 200 godzin pozostaje
mi do wykożystania więc bedzie realizowało następne zadanie z kolejnej daty i
nie potrafię pobrać wartości tej która mi pozostaje do następnego zadania
(czyli do rekordu określającego czas potrzebny do realizacji kolejnego
zadania) gdy wstawię pole nie związane to te wartości mi się wyliczą lecz w
ostatnia wartość zostaje wstawiona do wszystkich rekordów ale to juz chyba
maksymaklnie zagmatwałem ale jak do tej pory Jesteś cierpliwy za co dzięki
Przemysław Rachwał
> Dzięki ale to juz przerabiam z 4 książek i nic mi z tego nie wychodzi moze
> ktos by mógł podrzucić mi jakąś składnie
>
dmax
dsum
etc.
prymitywne, ale dla ciebie wystarczy