Predmet:Re: Funkcija SUM uz uvijet
Ako misliÅ¡ na IDtransakcije u tblTransakcije onda ću to rijeÅ¡iti sa kodom:
PreuzmiIzvorni kôd (vbnet):Function SifraTrans()
Dim db As Database
Dim SQL As String
Dim rs As Recordset
Dim I As Integer
Set db = CurrentDb
SQL = "SELECT Max(Right(TransakcijaID,4)) FROM tblTransakcije"
Set rs = db.OpenRecordset(SQL)
If Format$(rs.Fields(0)) <> "" Then
I = Val(rs.Fields(0))
End If
I = I + 1
SifraTrans = Right(Year(Date),2) & Format(I, "0000")
rs.Close
Set db = Nothing
Kraj:
End Function
Tako da će idTransakcije onda biti u obliku
130001; 130002 itd.
Samo dali mi ti onda možeš napraviti neki Kod koji bi mi automatski promjenio ID u tablici tblTransakcije i tblUlazIzlaz jer su ta dva polja vezana relacijom jedan prema više.
U tblTransakcije imam oko 4000 zapisa, a u tblUlazIzlaz oko 16000.
Pozdrav
Ovaj post je ureden
1
puta. Posljednja izmjena 11.07.2013 08:05 od strane pmiroslav.