Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
24/04/2018 09:54
Konu Sahibi
cevahir1
Yorumlar
10
Okunma
785
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
cevahir1

cevahir1

Aktif Üye
84843
mu.... ne.... kö....
 49
 13
 60
 09/10/2016
0
 Adana
 Öğretmen
 Ofis 2013 64 Bit
 10/04/2019,11:19
Çözüldü 
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.




cevahir1

cevahir1

Aktif Üye
84843
mu.... ne.... kö....
 49
 13
 60
 09/10/2016
0
 Adana
 Öğretmen
 Ofis 2013 64 Bit
 10/04/2019,11:19
[Resim: do.php?imgf=152455293773031.jpg]

görüldüğü gini veri tabanının sonuna ekliyor.

[Resim: do.php?imgf=152455293790612.jpg]


[Resim: do.php?imgf=15245529379793.jpg]

bu ekranda a parametresini göstermesini istemiyorum ama kod bilgisi eksikliğinden başaramadım...



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:23
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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?


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

cevahir1

cevahir1

Aktif Üye
84843
mu.... ne.... kö....
 49
 13
 60
 09/10/2016
0
 Adana
 Öğretmen
 Ofis 2013 64 Bit
 10/04/2019,11:19
(24/04/2018 10:32)ozanakkaya Adlı Kullanıcıdan Alıntı: 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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.

[Resim: do.php?imgf=152455567305081.jpg]




...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:23
Merhaba, resimde sarı işaretlenen kısmı aşağıdaki ile değiştiriniz.


Visual Basic Code
DoCmd.RunSQL "UPDATE malzeme SET malzeme.dolarkur = '" & Me.Metin9 & "', malzeme.eurokur = '" & Me.Metin11 & "'"


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

cevahir1

cevahir1

Aktif Üye
84843
mu.... ne.... kö....
 49
 13
 60
 09/10/2016
0
 Adana
 Öğretmen
 Ofis 2013 64 Bit
 10/04/2019,11:19
(24/04/2018 10:44)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, resimde sarı işaretlenen kısmı aşağıdaki ile değiştiriniz.


Visual Basic Code
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)



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü İki Liste Kutusundan Aynı Tablo Üzerinde Güncelleme Yapmak Yunus Bozkurt 14 463 10/06/2019, 16:31
Son Yorum: Yunus Bozkurt
Çözüldü Toplu Veri Girişi Yunus Bozkurt 9 327 07/06/2019, 14:22
Son Yorum: halily
Çözüldü Alt Form Kayıt most 6 200 31/05/2019, 09:12
Son Yorum: most
Çözüldü İlişkilendirilmiş Formlardan Veri Çekmek, İlişkilendirmeyi Çoğaltmak sabotaj06 2 204 28/05/2019, 15:39
Son Yorum: sabotaj06
Çözüldü Access İle Basit Kayıt Programı musti35 4 180 27/05/2019, 17:07
Son Yorum: musti35

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.