Tbl_menu'ye bağlı Frm_menu adında formum var. Bu formun üzerindeki komut düğmesi ile frm_deneme adlı formu açıyorum. Frm_menu formunun üzerindeki adı alanındaki veriyi frm_deneme formunun Caption na yazıyıyor. Eğer Frm_menu adındaki formun adı alanı boşsa Caption na "Boş" yazıyor. Sorum eğer frm_Deneme adlı formun Caption'u "Boş" ise msgbox tamam tıklayınca frm_deneme adlı form kapatılsın. Bunun için bir kod yazmaya çalıştım hata veriyor. Bu konuda yardımlarınızı rica ediyorum.
Saygılarımla.
frm_deneme formunun kodları
Kod:
Private Sub Form_Current()
On Error Resume Next
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ş"
DoCmd.Close
End If
End If
End Sub
