Private Sub AKBlokNo_AfterUpdate()

Me.AKDaire = ""

Me.AKDaire.Requery

End Sub

üsteki tüm kodlar, formdan da AKDaire açılan kutusunu ve sol tarafındaki açıklamasını silin.


alttaki kodları, mevcut kodlarınızla değiştirin.

Private Sub Komut5_Click()

If IsNull(Me.AKBlokNo) Then

MsgBox "Blok No seçmediniz", vbCritical, "Admin"

Exit Sub

Else

DoCmd.OpenReport "rprDeneme", acViewPreview

End If

End Sub