aşağıdaki yordamı altforma ekleyerek dener misiniz?
Private Sub ISNO_AfterUpdate()
Set rs = CurrentDb.OpenRecordset("select * from [urunler] where [URUNKODU]=" & ISNO)
Me.URUN = rs("URUNADI")
Me.FIYAT = rs("FIYATI")
Me.MIKTAR = rs("MIKTARI")
End Sub