AccessTr.neT

Bul · 26/04/2011, 14:29

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.

Bul · 26/04/2011, 18:41

Sorgu alanına şunu yaz
TÜMÜ: [Görev] & " - " & Date() & " - " & Time()

Bul · 26/04/2011, 20:10

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

Bul · 29/04/2011, 15:08

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

AccessTr.neT

Birleşme ama birkaç istek daha

Birleşme ama birkaç istek daha

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri