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()
çalışır şimdilik sadece mesaj olarak gösteriyor ama yerine oturttuğunuzda yapmak istediğin işlemi yapar