Örneğinize çok detaylı bakamadım ama sorun hata mesajında belirttiği gibi formunuz ile ilgili işlemler daha bitmediğinden hata alıyorsunuz. Belki daha iyi bir yol vardır ancak benim aklıma ilk gelen Timer kullanmak oldu nedense. Şu şekilde çözüm üretebilirsiniz.

frm_Deneme isimli formun özelliklerinden Süreölçer Aralığını 100 yapın. Daha sonra yine frm_Deneme özelliklerinden Zaman Dolduğunda olayına bir kod yazın. kod şu şekilde olacak:

Private Sub Form_Timer()



    If (mesajVerildimi = False) Then

        

        Me.Caption = Nz(DLookup("adı", "tbl_Menu", "ID=" & Nz(Me.ID.Value, 0)), "Boş")

        

        If Me.Caption = "Boş" Then

    

            If MsgBox("kayıt yok, form kapatılacak", vbApplicationModal) = vbOK Then

            

                Me.Caption = "Boş"

                mesajVerildimi = True

                

            End If

            

       End If

       

    Else

    

        DoCmd.Close acForm, "frm_Deneme"

    

    End If

    

End Sub

Bu arada frm_Deneme formunun Geçerli Olduğunda olayındaki tüm kodları silmeniz lazım. Ayrıca form genelinde geçerli olması için bir değişken tanımlamalısınız. Şu şekilde olacak:

Dim mesajVerildimi As Boolean

bu değişkeni hemen satırların altına ekleyebilirsiniz:

Option Compare Database

Option Explicit

artık istediğiniz gibi bir sonuç elde edebilirsiniz.