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