Merhaba, tablodaki verileri güncelleştirmek istiyorsanız ekleme sorgusu değil güncelleştirme sorgusu kullanmalısınız.

butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Private Sub kguncelle_Click()

Dim a As Integer



If MsgBox("Malzeme tablosuna Kur Bilgilerini aktarmak istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then



'DoCmd.GoToRecord , , acFirst         'ilk kayda getirdik imleci



'For a = 1 To acLast           ' 1 den son kayda kadar döngü kurduk



DoCmd.SetWarnings False



DoCmd.RunSQL "UPDATE malzeme SET malzeme.dolarkur = " & Me.Metin9 & ", malzeme.eurokur = " & Me.Metin11 & ";"





'DoCmd.RunSQL "INSERT INTO malzeme (dolarkur,eurokur) SELECT dolarkur,eurokur FROM kur WHERE a=" & Me.Kimlik ' 1 den son kayda kadar (tabi isteğim bu ama olmadı) kur veritabanındaki dolar ve euro kurunu malzeme veritabanına ekle



DoCmd.SetWarnings True



'Me.Requery

'Next a



Else



Me.Undo



End If



End Sub

Ayrıca, hali hazırda kur tablosunda veri var iken, niye malzeme tablosuna kur alanı eklediniz?