#7
#8
#9
IFF_DENEME.rar
(Dosya Boyutu: 29,69 KB | İndirme Sayısı: 4)
#10
IFF_DENEME_Seruz.rar
(Dosya Boyutu: 32,84 KB | İndirme Sayısı: 16)
#11
Function Concatenate(pstrSQL As String, Optional pstrDelim As String = ";") As String
On Error GoTo hata
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(pstrSQL)
Dim strConcat As String 'build return string
With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
strConcat = strConcat & .Fields(0) & pstrDelim
.MoveNext
Loop
End If
.Close
End With
Set rs = Nothing
Set db = Nothing
If Len(strConcat) > 0 Then
strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim))
End If
Concatenate = strConcat
hata:
Exit Function
End Function
#12
