AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Birleşme ama birkaç istek daha

26/04/2011, 14:29

accestr seven

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.
26/04/2011, 18:41

C*e*l*o*y*c*e

Sorgu alanına şunu yaz
TÜMÜ: [Görev] & " - " & Date() & " - " & Time()
26/04/2011, 20:10

accestr seven

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
29/04/2011, 15:08

ayhan2122

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