İstediğim  sonucu bu şekilde aldım. Mesaj Verdirip Numarayı değiştirmek isterse gerçekleştirsin diye düşünüyordum ama iyice düşününce numara değiştirilebilmesi sakınca doğuracaktır diye vazgeçtim. Teşekkürler.

Private Sub MakbuzNo_TXT_Exit(Cancel As Integer)





If IsNull(Me.MakbuzNo_TXT) Or Me.MakbuzNo_TXT = "" Then



MakbuzNo_TXT = "GM-" & Nz(DMax("clng(mid(MakbuzNo,4))", "T_HesapHareketleri"), 0) + 1



Else

 

'MsgBox("Makbuz Numarasi Deðiþtirilecek , Onaylýyormusunuz ", vbExclamation + vbYesNo, "Dikkat") = vbNo

 

End If

End Sub