[ goran.c @ 02.01.2016. 13:40 ] @
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...........
[ goran.c @ 05.01.2016. 08:01 ] @
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Ć
[ DudaD @ 05.01.2016. 08:59 ] @
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.
[ goran.c @ 05.01.2016. 18:37 ] @
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.........
[ DudaD @ 06.01.2016. 06:00 ] @
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.


[ goran.c @ 06.01.2016. 06:43 ] @
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
[ DudaD @ 06.01.2016. 06:54 ] @
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.

[ goran.c @ 06.01.2016. 07:45 ] @
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
[ goran.c @ 09.01.2016. 11:32 ] @
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]