Mesaj Kutusuna Özel Formatlı Metin Kutusu Verisini Getirme Hk.

Merhabalar,

Tabloda otomatik numara olarak ayarlanmış field daki özel formatı msj kutusuna yazdıramıyorum. Örneğin , ID 1 ise msj kurusuna TS00000001 yazmasını istiyorum fakat sadece 1 yazıyor. Örnek ektedir. Bunu nasıl sağlayabilirim. Teşekkürler.

Erkan

Kodunuzu aşağıdaki gibi değiştiriniz...

Dim IDS As String

IDS = "TS" & Format(ID, "00000000")

DoCmd.Save

MsgBox ("You have successfully created a new record !" & Chr(13) & IDS), vbInformation

Verdiğiniz kod işe yaradı. Çok teşekkür ederim. İyi çalışmalar.