Skip to main content

AccessTr.neT


Birleşme ama birkaç istek daha

accestr seven
accestr seven
3
2421

Birleşme ama birkaç istek daha

Çözüldü #1
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.
.rar PLAN tafsilatlı birleşmee.rar (Dosya Boyutu: 36,69 KB | İndirme Sayısı: 5)
accestr seven, 26-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Sorgu alanına şunu yaz
TÜMÜ: [Görev] & " - " & Date() & " - " & Time()
Cevapla
Çözüldü #3
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
accestr seven, 26-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task