Predmet:Re: dva polja u jedno po odredjenim uslovima

---

imao sam jedan makro koji sti ti postavio ovdje al mi ne radi kako ja hocu izgleda ovako
Dim Db As Database
Dim Rs As Recordset
Dim Tmp As String

Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT * FROM FR_Produkt")

Do While Not Rs.EOF
Tmp = Tmp & Rs.Fields(1) & " "
Tmp = Tmp & Rs.Fields(2) & "-"
Rs.MoveNext
Loop

Tmp = Left(Tmp, Len(Tmp) - 1)
Tmp = Left(Tmp, Len(Tmp) - 2)
Rs.Close
Set Db = Nothing
TextKolumn = Tmp

---