Function Ispis() As String
Dim rst As New ADODB.Recordset
rst.Open "SELECT DOKUM FROM qryDokumtoTxt WHERE SIFRA = '" & [Reports]![rptZbirnaLista]![SIFRA] & "'", CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.RecordCount > 0 Then Ispis = rst.GetString(adClipString, , , " ")
rst.Close
Ispis = Left(Ispis, Len(Ispis) - 1)
End Function
Gore navedena funkcija super radi na reportima i formama, ali meni sad treba to isto da funkcioniše i nad poljem u queriju, radi izvoza podataka u Excel, a to mi ne polazi za rukom da izvedem.
Kada zamenim referencu sa reporta [Reports]![rptZbirnaLista]![SIFRA] sa poljem qryZbirnaLista.SIFRA, to ne fercera. Probao sam sve što mi je padalo na pamet, ali bez uspeha...
Da li grešim u sintaksi ili u pristupu?