Kod:
Dim kayit As String
kayit = InputBox("firma adını giriniz")
DoCmd.RunSQL ("SELECT kmtportfoy.ncst, kmtportfoy.frmadrres, kmtportfoy.frmirt, tblyetkili.yetkili, tblyetkili.irttel, tblyetkili.mail, tblyetkili.nprd INTO a FROM kmtportfoy INNER JOIN tblyetkili ON kmtportfoy.kimlik = tblyetkili.baglanti where firma= '" & kayit & "'")
Buna birde if kayit ="" then şeklinde kontrol eklerseniz sanırım istediğiniz olacaktır.