AccessTr.neT

Tam Versiyon: Birleşme ama birkaç istek daha
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
DEĞERLİ ÜSTADLAR
Acceste istekler bitmiyor.Bir şey yaptıktan sonra şuda olsa diye 2.bir isteğimiz ortaya çıkıyor.Umarım beni anlayışla karşılarsınız.Sizler varsınız ki , sizler sayesinde sorunlarımız çözülüyor.Mutlu oluyoruz.
İSTEĞİM ŞUDUR
Mesaj Gönderi Eksiler sorgusunda Sonuc alanına,tarih saat ve yer alanlarıda eklenecek,ama isimler yine gruplama halinde kalmak şartıyla.
ÖZETLE İSTEĞİM: Bir alanda Görev tarih saat yer bir araya gelsin istiyorum.Bu mümkün müdür.? Amacım kişiye , bir sms gönderisi içerisinde görevleri, tarih, saat ,yer notları bir araya gelsin.
Yardımlarınız için şimdiden teşekkürler.
Sorgu alanına şunu yaz
TÜMÜ: [Görev] & " - " & Date() & " - " & Time()
Sn C*e*l*o*y*c*e
Denedim olmadı.Bunu yaptığımda .Şahıslar satırlarda alt alta çoğalıyor.İstiyorum ki 1 şahsın bilgileri tek satırda toplansın.Gruplama yöntemi bozuluyor.Siz yada düzenleyiverin.Saygılar
Fonksiyondaki ufak bir değişiklikle işlem tamamdır.
Kod:
Function YanYanaAHLATDER(ADSO As String) As String
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim D1 As String
    Set db = CurrentDb()
    strSQL = "SELECT  * FROM PLAN ORDER BY PLAN.AdiSoyadi, PLAN.Tarih, PLAN.Saat, PLAN.Yer, PLAN.Birim;"
    Set rs = db.OpenRecordset(strSQL)
    D1 = "["
    If rs.EOF = True Then GoTo 90
    rs.MoveFirst
    Do Until rs.EOF
    
        If rs!İşlem <> "AHLATDER" Then GoTo 200
        If rs!AdiSoyadi = ADSO Then D1 = D1 & rs!Görev & ">" & rs!Tarih & "-" & rs!saat & "-" & rs!Yer & "] + ["
200
        rs.MoveNext
    Loop
90
    If Len(D1) = 0 Then YanYana = "": GoTo 100
    YanYanaAHLATDER = Left(D1, Len(D1) - 3)
100
End Function