16/11/2011, 14:21
Sn BlackEagle size de teşekkür ederim.Değerli Yöneticiler Dosyamı gönderecektim.Dosya ekle butonunu göremedim.Sadece resim ekle butonu var.Bu aşamada nasıl dosya gönderecem Saygılar
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