(24/04/2018, 10:32)ozanakkaya yazdı: 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?
Ozan bey
kodu değiştirdim fakat hata mesajı veriyor.