+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birleşme ama birkaç istek daha (/konu-birlesme-ama-birkac-istek-daha.html)
Birleşme ama birkaç istek daha - accestr seven - 26/04/2011
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.
Cvp: Birleşme ama birkaç istek daha - C*e*l*o*y*c*e - 26/04/2011
Sorgu alanına şunu yaz
TÜMÜ: [Görev] & " - " & Date() & " - " & Time()
Cvp: Birleşme ama birkaç istek daha - accestr seven - 26/04/2011
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
Cvp: Birleşme ama birkaç istek daha - ayhan2122 - 29/04/2011
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