Klasifikacijska oznaka

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!!

Normalizuj podatke. Razbij tvoju sifru (342-33/05-01/1) na delove i za svaki deo uvedi po jedno polje.

:-)

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

Potpis

zxz