Metin38 isimli Metin kutusunun yanına komut butonu ekle, tıklandığında olayına
Metin38.InputMask = ""
Metin38.SetFocus
DoCmd.RunCommand acCmdShowDatePicker
Metin38.InputMask = "00,00,0000;0;_"
kodu ekle. butonu tıkladığında Metin38 için tarih seçici açılacaktır.