+- 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ığı: istenilen son kaydı gösterme (/konu-istenilen-son-kaydi-gosterme.html)
Sayfalar:
1
2
istenilen son kaydı gösterme - kesoka - 08/02/2011
sayın hocalarım bi noktada daha yardıma ihtiyacım var. eklediğim formda reçete kayıt yapıyorum. kaydettiğim reçeteler tbl_reçete_arşiv tablosuna kayıt oluyor. yapmaya çalıştığım ise frm_personel formunda bulunan son protokol kutusuna tbl_reçete_arşiv deki en son kaydedilmiş r_protokolno değerini yazdırmaya çalışmak. bunu en büyük değer olarakda düşünebiliriz aslında. çünki protokol numarası artan değer olarak gidiyor. yani dmax ile gibi. son protokolün varsaılan değerine =DLAST değer ile yapmaya çalıştım fakat sonuç alamadım. farklı bi fikri olan hocalarımdan yardım bekliyorum tşkler
Cvp: istenilen son kaydı gösterme - ozanakkaya - 08/02/2011
=DLookUp("Last(pno_protokolno)";"[tbl_protokolno]")kodunu deneyiniz.
Cvp: istenilen son kaydı gösterme - assenucler - 08/02/2011
Teşekkürler ve iyi geceler..
Cvp: istenilen son kaydı gösterme - kesoka - 08/02/2011
hocam doğru yaklaşım fakat bu numarayı tbl_reçete_arşiv deki r_protokolno dan alması lazım gönderdiğiniz kodu şöyle değiştirdim ama vermedi.
=DLookUp("Last(r_protokolno)";"[tbl_reçete_arşiv]")
Cvp: istenilen son kaydı gösterme - life_exciting - 08/02/2011
Örneği İnceleyebilirsiniz.Sizin Verdiğiniz Kod'a Göre Düzenledim.
Cvp: istenilen son kaydı gösterme - ozanakkaya - 08/02/2011
=DLookUp("Last(r_protokolno)";"[tbl_reçete_arşiv]")Yeni sorgu oluştur, r_protokolno alanını Azalan olarak sırala ve üstteki [tbl_reçete_arşiv] yerine oluşturduğun sorgu adını yaz
veya,
Metin96 metin kutusunu ilişkisiz yapıp formun geçerli olduğunda olayına aşağıdaki kodu yaz.
Dim db As Database
Dim Sorgu As String
Set db = CurrentDb()
Sorgu = "SELECT tbl_reçete_arşiv.r_protokolno FROM tbl_reçete_arşiv ORDER BY tbl_reçete_arşiv.r_protokolno DESC;"
Set Deger = db.OpenRecordset(Sorgu)
Metin96 = Deger!r_protokolno