Özgür kardeşim eline ve emeğine sağlık kendi projeme Oda no olarak uyguladım,ancak oda no 0 olduğu zaman "0 numaralı odanın kaydı tamamlanmıştır" diye bilgi msj. veriyor oysa 0 olduğunda "Kayıt işlemi tamamlanamamıştır,Lütfen Oda no giriniz"şeklinde olması gerekiyor.Kodlar eklidir,saygılarımla.
Private Sub Komut33_Click()
If IsNull(Me.odano) Or Me.odano = "" Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub
On Error GoTo Err_Komut33_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
GoTo 111
Exit_Komut33_Click:
Exit Sub

Err_Komut33_Click:
MsgBox Err.Description
Resume Exit_Komut33_Click
111
MsgBox "" & Me.odano & " " & "Numaralı Odanın Rezervasyon Kaydı Tamamlanmıştır.", , "Bilgi"
End Sub