güncel tarihi tabloya kaydetme

slm ben bilgisarın güncel tarihini ve saatini alıp metin kutusuna yazdırabildim fakat onu tabloya benim istediğim şekilde yazdırmak istiyorum mesela taih 17 EKi 11 saat 15:30 farzedelim bunu tabloya şu şeki kaydetsin 171530 EKİ 11 yani (günsaatdakika ay yıl) ve bunuda yaptım ama sorun şu tarihi bu şekilde yazdırdığım metin kutusuna denetim kaynağı seçince kod hata veriyor
Kod:
Dim gün
Dim ay
Dim yıl
Dim saat
Dim dakika
Dim metin

gün = format(date,"dd")
ay = format(date,"mmm")
yıl = format(date,"yy")
saat=format(now,"hh")
dakika=format(now,"nn")

metin= gün & saat & dakika & " " & ay & " " & yıl
metin_kutusu.value = metin ' hata veren kısım burası

HATA :

2113

girdiğiniz değer bu alan için geçerli değil mesajını veriyor

slm hatayı buldum tablodan kaydetmeye çalıştığım alanı tarih/saat olarak ayarlamışım değiştirdim metin kutusu yaptım ama şimdide istediğim şekil metin kutusuna getirmiyor metin kutusunun özelliklerinden denetim kaynağını kaldırınca getiriyor denetim kaynağı varken getirmiyor

Dosyanızı eklerseniz daha iyi olur.

bu şekil yazmıyo metin kutusu boş geliyor

metin_kutusu.value = metin ' hata veren kısım burası

kodunuzun yerine deneme amaçlı

msgbox metin ' hata veren kısım burası

yazın hatayı inceleyin.

tablonuzdaki metin_kutusu isimli alanın VeriTürünün metin olarak ayarlanmış olduğundan emin olunuz.