Merhaba, Bahsettiğiniz gibi A ve B tabloları için;

Modüle

Public Function GVeriBul(GAlan As String) As Variant



On Error Resume Next

   

GVeriBul = Dlookup ("W" & GAlan, "B")





End Function

Kodu ekle, 

Sorguya da;

Sonuc: GVeriBul([W_No])

kodu ekle. Bu şekilde A tablosundaki W_No alanında 13 yazıyor ise ve B tablosundaki w13 alanında 44 yazıyor ise Sonuc: 44 olarak dönecektir.