aşağıdaki fonksiyonu ekleyin
Kod:
Private Function DegerAta()
Dim txtUrunAdi As String
Dim CurUrunFiyati As Currency
txtUrunAdi = Me.ActiveControl.Caption
CurUrunFiyati = DLookup("Fiyati", "T_03_UrunListesi", "UrunAdi='" & txtUrunAdi & "'")
MsgBox (txtUrunAdi & " - " & CurUrunFiyati) 'şişmdilik sadece mesaj gösteriyor
End Function
tıklandığında =DegerAta()
![[Resim: do.php?imgf=154626035936021.jpg]](https://accesstr.net/resim/do.php?imgf=154626035936021.jpg)
çalışır şimdilik sadece mesaj olarak gösteriyor ama yerine oturttuğunuzda yapmak istediğin işlemi yapar