Getir buton kodunu aşağıdaki kod ile değiştirin.

If MsgBox("Verilebilecek Defter Numarası " & sondeftersayisi + 1 & "'dir. Belirtilen Numarayı vermek istiyor musunuz", vbYesNo) = vbYes Then

Me.defterno = sondeftersayisi + 1

Else

Exit Sub

End If