AccessTr.neT

Tam Versiyon: istenilen son kaydı gösterme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
=DLookUp("Last(pno_protokolno)";"[tbl_protokolno]")

kodunu deneyiniz.
Teşekkürler ve iyi geceler..
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]")
Örneği İnceleyebilirsiniz.Sizin Verdiğiniz Kod'a Göre Düzenledim.
=DLookUp("Last(r_protokolno)";"[tbl_reçete_arşiv]")
kodu tablodaki son kayıttaki değeri yani 211 değerini veriyor.

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
Sayfalar: 1 2