Merhaba
programa girişte dolar ve euro kurlarını güncelleme butonu koydum.. Buton tıklanınca isteğim. malzeme veri tabanındaki Her kayıt için dolar ve euro kuru son girilen değer olsun. Ama bir Türlü başaramadım.... yardımlarınızı bekliyorum..
ilk girişteki kaydet butonu kur veri tabanına yeni değeri güncelliyor.
İyi çalışmalar.
görüldüğü gini veri tabanının sonuna ekliyor.
bu ekranda a parametresini göstermesini istemiyorum ama kod bilgisi eksikliğinden başaramadım...
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?
(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.
Merhaba, resimde sarı işaretlenen kısmı aşağıdaki ile değiştiriniz.
DoCmd.RunSQL "UPDATE malzeme SET malzeme.dolarkur = '" & Me.Metin9 & "', malzeme.eurokur = '" & Me.Metin11 & "'"
(24/04/2018, 10:44)ozanakkaya yazdı: Merhaba, resimde sarı işaretlenen kısmı aşağıdaki ile değiştiriniz.
DoCmd.RunSQL "UPDATE malzeme SET malzeme.dolarkur = '" & Me.Metin9 & "', malzeme.eurokur = '" & Me.Metin11 & "'"
bu kodu eklersem,
DoCmd.RunSQL "UPDATE malzeme SEMalzeme.dolarkur * FiyatT malzeme.fiyatusd = '" & Malzeme.dolarkur * Fiyat & "', malzeme.fiyateuro = '" & Malzeme.eurokur * Fiyat & "'"
kura bağlı olarak alım fiyatlarını dolar ve euroya güncellermi dedim ama olmadı (Fazlakurnazlık iyi değil sanırım)