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

Klasifikacijska oznaka

[es] :: Access :: Klasifikacijska oznaka

[ Pregleda: 2375 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Mina7

Član broj: 35436
Poruke: 112
*.net.globalnet.hr.



Profil

icon Klasifikacijska oznaka05.01.2005. u 07:05 - pre 207 meseci
Hi!

Imam naravno, pitanje: imam mini aplikaciju za upis clanova, no oni bi morali imati svoju klasu, jedan dio iste je fiksan,godina se mijenja jednom godišnje,ali se zadnji broj mijenja za svakog clana; evo primjera 342-33/05-01/1 05-je godina,a 1 je broj clana koji se za svakog clana mijenja;ostali brojevi su fiksni. Kako to izvesti, ja iskreno receno nemam ni natuknicu u glavi samo ??? ! Unaprijed hvala na svakoj pomoci!!
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.



+79 Profil

icon Re: Klasifikacijska oznaka05.01.2005. u 17:39 - pre 207 meseci
Normalizuj podatke. Razbij tvoju sifru (342-33/05-01/1) na delove i za svaki deo uvedi po jedno polje.

:-)
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Klasifikacijska oznaka05.01.2005. u 20:12 - pre 207 meseci
Mislim da ce ti ovo pomoci

Function Broj() As String
Dim Db As Database
Dim SQL As String
Dim Rs As Recordset
Dim Br As Integer
Dim Datum As String
Dim Duz As Integer
Dim I As Integer
Dim Nule As String

Set Db = CurrentDb()
SQL = "SELECT Racuni.DatumRacuna, Racuni.RacBR FROM Racuni;"
Set Rs = Db.OpenRecordset(SQL)
Rs.MoveLast
Br = Rs.Fields(1)
Datum = Format(Rs.Fields(0), "dd.mm.yyyy")
Datum = Left(Datum, 2) & Mid(Datum, 4, 2)
Rs.Close
Set Db = Nothing
Duz = Len(Format$(Br))
Duz = 6 - Duz
For I = 1 To Duz
Nule = Nule & "0"
Next I
Broj = Datum & "/" & Nule & Format$(Br)
End Function
zxz
 
Odgovor na temu

[es] :: Access :: Klasifikacijska oznaka

[ Pregleda: 2375 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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