+- 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ığı: Duyuru Ekranı (/konu-duyuru-ekrani.html)
RE: Duyuru Ekranı - enginbeyy - 12/10/2020
hocam şimdiye kadar istediklerimin hepsi oldu çalışıyor.
size zahmet birde hep en son gönderileni en aşağıda gösterse iyi olur. çünkü bu haliyle yazılanları görmek için aşağı doğru kaydırmak gerekiyor
RE: Duyuru Ekranı - enginbeyy - 12/10/2020
(12/10/2020, 15:36)enginbeyy yazdı: hocam şimdiye kadar istediklerimin hepsi oldu çalışıyor.Hocam dosyayı ekledim yardımcı olur musunuz? Aşağıya sürüklemeden Gönderileni aşağıda direk görmek istiyorum.
size zahmet birde hep en son gönderileni en aşağıda gösterse iyi olur. çünkü bu haliyle yazılanları görmek için aşağı doğru kaydırmak gerekiyor
RE: Duyuru Ekranı - C*e*l*o*y*c*e - 12/10/2020
liste sorgusunu bunla değiştirin
SELECT tbl_duyuru.Kimlik, tbl_duyuru.duyurumetni FROM tbl_duyuru ORDER BY tbl_duyuru.Kimlik DESC;
RE: Duyuru Ekranı - enginbeyy - 12/10/2020
Hocam oldu. teşekkürler.
Bir ricam daha olacak bu duyuruyu girerken forma giriş yapan kullanıcının adını metin kutusundan çekebilir miyiz kimin duyuruyu yaptığı belli olsun diye. ekteki dosyaya forma giriş yapan kullanıcıyı ekledim. Saygılar.
RE: Duyuru Ekranı - enginbeyy - 12/10/2020
(12/10/2020, 21:16)enginbeyy yazdı: Hocam oldu. teşekkürler.
Bir ricam daha olacak bu duyuruyu girerken forma giriş yapan kullanıcının adını metin kutusundan çekebilir miyiz kimin duyuruyu yaptığı belli olsun diye. ekteki dosyaya forma giriş yapan kullanıcıyı ekledim. Saygılar.
RE: Duyuru Ekranı - enginbeyy - 12/10/2020
hocam aşağıdaki gibi güncelleme yaptım oldu teşekkürler.
konuyu kapatabilirsiniz.
Private Sub Gönder_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl_duyuru (duyurumetni) values ('" & Me.personel.Column(1) & ": '+'" & Me.yazım_alanı & "')"
SoundMe
DoCmd.SetWarnings True
yazım_alanı = ""
End Sub