Prikazi cijelu temu 11.07.2013 06:56
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Funkcija SUM uz uvijet
Ako misliÅ¡ na IDtransakcije u tblTransakcije onda ću to rijeÅ¡iti sa kodom:
PreuzmiIzvorni kôd (vbnet):
  1. Function SifraTrans()
  2. Dim db As Database
  3. Dim SQL As String
  4. Dim rs As Recordset
  5. Dim I As Integer
  6.  
  7. Set db = CurrentDb
  8. SQL = "SELECT Max(Right(TransakcijaID,4)) FROM tblTransakcije"
  9. Set rs = db.OpenRecordset(SQL)
  10. If Format$(rs.Fields(0)) <> "" Then
  11. I = Val(rs.Fields(0))
  12. End If
  13. I = I + 1
  14. SifraTrans = Right(Year(Date),2) & Format(I, "0000")
  15. rs.Close
  16. Set db = Nothing
  17. Kraj:
  18. 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 07:05 od strane pmiroslav.