FMesaj isimli formdaki metin4'ü görünür yap,
Kullanıcı girişi yapıp FMesaj formunu açtığında metin4'de kullanıcı id numaran yazıyor ise;
SMesaj isimli sorgunun YedekSMesaj adında kopyasını oluştur,
SMesaj sorgusunun Sql kodunu aşağıdaki ile değiştir.
SELECT TMesaj.Kimlik, Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [gonderen]) AS gon, TMesaj.mesaj, Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [alici]) AS kime, Format([zaman],"hh:nn:ss") AS zmn, TMesaj.zaman, Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [gonderen]) & " ==> " & Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [alici]) AS detay, TMesaj.okundumu, TMesaj.gonderen, TMesaj.alici
FROM TMesaj
WHERE (((TMesaj.mesaj) Is Not Null) AND ((TMesaj.gonderen)=[Forms]![FMesaj]![Metin4]))
ORDER BY Format([zaman],"hh:nn:ss") DESC
UNION SELECT TMesaj.Kimlik, Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [gonderen]) AS gon, TMesaj.mesaj, Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [alici]) AS kime, Format([zaman],"hh:nn:ss") AS zmn, TMesaj.zaman, Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [gonderen]) & " ==> " & Dlookup ("kulanici_adi","TKullanicilar","kul_id=" & [alici]) AS detay, TMesaj.okundumu, TMesaj.gonderen, TMesaj.alici
FROM TMesaj
WHERE (((TMesaj.mesaj) Is Not Null) AND ((TMesaj.alici)=[Forms]![FMesaj]![Metin4]))