آدرس دهی فیلد جدول در محیط VBA

[G.hemati]

با سلام
چطوری میتونم کد زیر رو اصلاح کنم
میخوام فیلد Pass درجدول TbiPass رو در محیط کد نویسی آدرس دهی کنم و اگر برابر با InputBox شد عملیات بعدی رو برام انجام بده
ممنون

Private Sub Command0_Click()
If [TblPass]![pass] = InputBox("توجه", "رمز عبور را وارد کنید","") Then
MsgBox "Hello"
End If
End Sub

[Abbas Amiri]

از کد زیر استفاده کنید


dim pw
pw=InputMax(.....

if pw=DLookup("pass","tblPass") then
msgBox "Hello"
end if