Geçerlilik Süresini Güncelle komut butonunun tıklandığında olayına aşağıdaki kodu ekleyiniz.
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE dosya INNER JOIN [kimlik alanlar] ON dosya.tcno = [kimlik alanlar].tcno SET dosya.kimlikgecerliliktarihi = [kimlik alanlar].[kimlikgecerliliktarihi] WHERE (((dosya.tcno)=[Forms]![veri_girişi]![tc no]))"
DoCmd.SetWarnings True
Me.Metin33.Requery