Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Izrada izvestaja finansijskih dužnika

[es] :: Access :: Izrada izvestaja finansijskih dužnika

[ Pregleda: 2028 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

goran.c
nezaposlen
Kragujevac

Član broj: 247909
Poruke: 106
*.dynamic.sbb.rs.



+3 Profil

icon Izrada izvestaja finansijskih dužnika02.01.2016. u 13:40 - pre 100 meseci
U izradi sam programa za finansijsko vođenje klubova jednog saveza. Napravio sam zbirna dugovanja po klubu kao i uplate pa sam zapeo kao prikaza svih klubova KOJI IMAJU DUGOVANJA ( a po mogućsstvu i svih klubova koji su imali promet), naime trebalo bi napraviti izveštaj koji će sadržati šifru kluba, naziv kluba, zbir uplata kluba, zbir zaduženja kluba i njegov saldo.
Ja sam uradio analiticke kartivce klubova , i funkcioniše ok
Fajl je nešto veći pa sam ga zipovao. Ako neko ima ideju neka doradi program...........
Prikačeni fajlovi
 
Odgovor na temu

goran.c
nezaposlen
Kragujevac

Član broj: 247909
Poruke: 106
*.static.sbb.rs.



+3 Profil

icon Re: Izrada izvestaja finansijskih dužnika05.01.2016. u 08:01 - pre 100 meseci
Rešeno- postavio sam ga kao QryDugKlubova pa ako je nekom od koristi može ga preuzeti.Javlja mi se drugi problem koji nije u okviru ove teme ali ako neko hoće da pomogne dobro bi mi došlo jer više ne znam šta bih radio. Problem je što u frmKupacKlub pritiskom na dugme za Upis novog sam napisao proceduru automatskog dodavanja nove šifre u polje Šifra kluba i to je sve funkcionisalo ok dok nije došlo do broja 10 od tada samo njega ponavlja... MOLIM ZA POMOĆ
Prikačeni fajlovi
 
Odgovor na temu

DudaD

Član broj: 331840
Poruke: 13
91.143.216.*



Profil

icon Re: Izrada izvestaja finansijskih dužnika05.01.2016. u 08:59 - pre 100 meseci
Podatak Šifra kluba ti je tipa tekst pa je 9 najveđa vrednost, posle toga uvek daje sledeću, 9+1. VB i Access različito "vide" podatak pa VB sabira dobijeni broj iz tabele, nije deklarisan tip podatka.
 
Odgovor na temu

goran.c
nezaposlen
Kragujevac

Član broj: 247909
Poruke: 106
*.dynamic.sbb.rs.



+3 Profil

icon Re: Izrada izvestaja finansijskih dužnika05.01.2016. u 18:37 - pre 100 meseci
Hvala puno ispravio sam ali sad se javlja i greška kada u frm izveštaji u event procedure na analitičkoj kartici koja ne otvara izvestaj rptAnalitickaKartica..( problem sa kodom) ako neko zna neka ga ispravi. Imam još jednu stvar koju nisam rešio a to je da upisom naziva kluba u frm uplate access sam unese šifru.........
Prikačeni fajlovi
 
Odgovor na temu

DudaD

Član broj: 331840
Poruke: 13
91.143.216.*



Profil

icon Re: Izrada izvestaja finansijskih dužnika06.01.2016. u 06:00 - pre 100 meseci
U kodu si deklarisao ulazni argument kao string
Code:
Dim bi As String
bi = InputBox("Unesite smer : Fudbal ili Menadzer", "provera smera", 0)    
If IsNull(DLookup("Smer", "QueryStudentiSmerGeneracija", "Smer = '" & bi & "'")) Then
....


posle promene da ulazni argument bi bude tipa long, procedura radi.

Code:

Dim bi As Long
bi = InputBox("Unesite šifru kluba", "provera šifre", 0)    
If IsNull(DLookup("Sifrakluba", "QryAnalitickaKlub", "Sifrakluba = " & bi)) Then
....


Isto vredi za sve procedure gde se šifra kluba koristi u uslovu za otvaranje izveštaja ili forme. Treba promeniti deklaraciju u skladu sa promenom tipa podatka u tabeli.


 
Odgovor na temu

goran.c
nezaposlen
Kragujevac

Član broj: 247909
Poruke: 106
*.static.sbb.rs.



+3 Profil

icon Re: Izrada izvestaja finansijskih dužnika06.01.2016. u 06:43 - pre 100 meseci
Hvala DudaD opet sam napravio popus ali evo izmenio sam ga i opet ne radi, da li ima još neke greške u kodu koji sam napisao..........ovo se odnosi na dugme analitička kartica u frmIzveštaji
Prikačeni fajlovi
 
Odgovor na temu

DudaD

Član broj: 331840
Poruke: 13
91.143.216.*



Profil

icon Re: Izrada izvestaja finansijskih dužnika06.01.2016. u 06:54 - pre 100 meseci
Vidim da si promenio i deklaraciju za StringName u long, ona treba da ostane string.
Ovako:
Code:

...
Dim bi As Long

bi = InputBox("Unesite šifru kluba", "provera šifre", 0)
    
If IsNull(DLookup("Sifrakluba", "QryAnalitickaKlub", "Sifrakluba = " & bi)) Then
MsgBox "Klub sa šifrom " & bi & " ne postoji ili nije imao zaduženja u 2016 godini", vbCritical, "NEPOSTOJEĆI PODATAK"
Else

    Dim stDocName As String

    stDocName = "RptAnalitickaKlub"
    DoCmd.OpenReport stDocName, acPreview, , "Sifrakluba = " & bi
DoCmd.Maximize


End If
....

Kod mene to radi, otvara izveštaj.

 
Odgovor na temu

goran.c
nezaposlen
Kragujevac

Član broj: 247909
Poruke: 106
*.static.sbb.rs.



+3 Profil

icon Re: Izrada izvestaja finansijskih dužnika06.01.2016. u 07:45 - pre 100 meseci
OK sad radi i kod mene. DudaD kada si mi već do sada pomogao da li bi mi još ukazao koji kod ( ili bilo šta bi trebalo ) da se uradi da u frmUplate kada se unese naziv kluba on sam unosi šifru u polje sifre. ...............................Sada u frm uplate i nisu složeni po redu to ću već uraditi da ide naziv kluba pa šifra , samo je bitno da neko ko ne zna šifru otkuca ceo naziv ( ili njegov deo koji bi bio prepoznat ) i da izbaci šifr...Pozdrav i hvala na dosadašnjoj pomoći. Ima još dosta toga što ću uraditi ali sam u početku pri planiranju napravio greške koje se sada reflektuju
 
Odgovor na temu

goran.c
nezaposlen
Kragujevac

Član broj: 247909
Poruke: 106
*.dynamic.sbb.rs.



+3 Profil

icon Re: Izrada izvestaja finansijskih dužnika09.01.2016. u 11:32 - pre 100 meseci
Evo u medjuvremenu sam napisao kod u frmUplateKlubova u nazivkluba (combobox) proceduru afterupdate koja sama ispisuje sifru u polju sifrakluba i sve dobro radi.Ako je nekom potrebno zakacio sam datoteku

[Ovu poruku je menjao goran.c dana 09.01.2016. u 12:46 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Access :: Izrada izvestaja finansijskih dužnika

[ Pregleda: 2028 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.