süz alnını 01122009 şekine getiren örnek
süz: Format(DatePart("d";[aşıtarihi]) & "" & DatePart("m";[aşıtarihi]) & "" & DatePart("yyyy";[aşıtarihi]);"00000000")

bunuda form üzerine yapı

Me.Metin192 = Format(Me.ActiveControl.Caption & Me!cmbMonth & Me!cmbYear, "00000000")

---

önce bir global mdül

Global tar As string

bu modüle
formun tıklama olayına
tar= sorguya attığımız tarihi kaydedin

onuda altformun ekleme öncesine
aşıtarihine
varsayılan verisine
tar
deyin