Listeye aktar isimli butonun tıklandığında olayına
If DCount("Kimlik", "[gunluk ortalama arsivi]", "[aktarildigi_tarih]=[Metin1308]") = 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [gunluk ortalama arsivi] (aktarildigi_tarih, gunluk_hedef_k1, gunluk_hedef_k2, gunluk_hedef_k3) VALUES ('" & Metin1308 & "', '" & Metin1297 & "', '" & Metin1300 & "', '" & Metin1301 & "')"
DoCmd.SetWarnings True
MsgBox (Metin1308 & " Tarihine ait ortalama aktarıldı.")
Else
MsgBox (Metin1308 & " Tarihine ait veri girişi daha önce yapılmış")
End If
Kodu eklerseniz formdaki verileri gunluk ortalama arsivi tablosuna aktarırsınız. Ancak istediğiniz bu işlem mi çözemedim. Bu problemi gidermiyorsa hangi alanın nereye aktarılacağını yazınız.
Ayrıca, Yapılmaması Gereken Ölümcül Hatalar
konusunu muhakkak inceleyiniz.
