6453 modul bazy w accesie- rozbudowac

[login to view URL] kwerende oplata za wode wedlug ryczaltu, obliczajaca koszty zuzycia wody dla mieszkan ktore nieposiadaja wodomierza. 2. utworzyc modul poprawka w tym module zdefiniowac funkcje ile_dni ktorej wynikiem jest liczba dni jaka minela od daty bedacej jej argumentem do obecnej [login to view URL] argument ma wartosc null to wynikiem funkcji rownej jest wartosc null. podac typ Variant jako typ argumentu funkcji. 3. Do modulu poprawka dolaczyc procedure Input [login to view URL] za pomoca funkcji inputBox pobiera od uzytkownika identyfikator mieszkania i wyswietla maksymalna wartosc wplaty jakom poczynil w spoldzielni jego glowny [login to view URL] agregat domeny Dmax. Sub InputBox_AgregatDomeny() Dim id_m, id_b As Integer Dim wplata_max As Single Dim osoba As String,id_osoby As Integer Dim Mieszkanie As Integer ,ulica_blok As String id_m=InputBox(\'podaj identyfikator mieszkania\',\'SM Szczescie\',\'12\') \'wplata_max=dmax(\'\'[kwota]\',\'[rejestr wplat ]\',\'[id mieszkania]=\'&id_m) \'MsgBox \'\'Mksymalna wplata:\'\'&CStr(wplata_max) End Sub Uzupelnic procedure tak aby wyznaczone wartosci: -dla zadanego numeru mieszkania sumaryczne wplaty (DSum) -ile usterek zglosila osoba lub mieszkanie o podanym numerze (DCount)