+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablodan Tablolara Veri Aktarımı (/konu-tablodan-tablolara-veri-aktarimi.html)
Tablodan Tablolara Veri Aktarımı - ahmetsan - 27/08/2022
merhaba, sitede cevaplanmış sorular içinde böyle bir şey buldum. Biraz karıştırmış olabilirim ve az bir bilgi ile yeniden yorumlanmasını sizden rica edeceğim. aktar a tıkladığımda tablo 1de olan yemek fiyatlarının tablo2 ve 3 e aktarılmasını ve mükerrer kayıt yapmamasını istedim. Tablo 2 ve 3 sabit kalacak, fiyatlar tablo 1 den çekicelecek şekilde, yardımlarınız için şimdiden teşekkürler
RE: Tablodan Tablolara Veri Aktarımı - atoykan - 28/08/2022
Tablo 2 ve 3'de sabit kalacak verilerin fiyatları değişmiyor mu? Değiştiğinde ne olacak?
RE: Tablodan Tablolara Veri Aktarımı - atoykan - 29/08/2022
Sizden cevap gelmemiş ama yine de ben cevaben yazayım.
Örneğinizdeki tablo alanları ve form kontrollerinin adları uyumsuz ve yapılmaması gereken hatalar diye altını çizdiğimiz hatalar dolu. Tablonuzda alanlarınız yemek ve fiyat formda alanlarınız adı soyadı. Düzeltmekle uğraşmadım siz gerekli düzenlemelerinizi yaparsınız.
Command19 adlı butonunuzun tıklanma olayına aşağıdaki kodu eklerseniz 2. ve 3. tablolarınızda formdaki yemek kayıtlı mı değil mi kontrol ederek mükerrer kaydı engeller ve kayıt var ise fiyat güncellemesi yapıp yapmayacağınızı denetler, kayıt yok ise tablolara ekleme yapar. Arzu ederseniz kodlara SetWarnings metodunu ekleyerek sorgu uyarılarını kapatabilirsiniz.
If Dlookup ("yemek", "tbl_2", "yemek = '" & Forms!frm_1!Adı & "'") > 0 Then
If MsgBox("BU YEMEK İÇİN tbl_2'DE KAYIT BULUNMAKTADIR." & vbCrLf & _
"DEVAM EDİLMESİ HALİNDE MEVCUT KAYITTA GÜNCELLEME YAPILACAKTIR." & vbCrLf & _
"DEVAM ETMEK İSTİYOR MUSUNUZ?", vbYesNo) = vbNo Then
Me.Undo
Me.Command19.SetFocus
Else
DoCmd.RunSQL "UPDATE tbl_2 SET tbl_2.fiyat = [Formlar]![frm_1]![Soyadı].value" & _
"WHERE tbl_2.yemek = [Formlar]![frm_1]![Adı].value"
End If
Else
DoCmd.RunSQL "INSERT INTO tbl_2 ( yemek, fiyat ) VALUES ('" & Me.Adı & "','" & Me.Soyadı & "')"
End If
If Dlookup ("yemek", "tbl_3", "yemek = '" & Forms!frm_1!Adı & "'") > 0 Then
If MsgBox("BU YEMEK İÇİN tbl_3'DE KAYIT BULUNMAKTADIR." & vbCrLf & _
"DEVAM EDİLMESİ HALİNDE MEVCUT KAYITTA GÜNCELLEME YAPILACAKTIR." & vbCrLf & _
"DEVAM ETMEK İSTİYOR MUSUNUZ?", vbYesNo) = vbNo Then
Me.Undo
Me.Command19.SetFocus
Else
DoCmd.RunSQL "UPDATE tbl_3 SET tbl_3.fiyat = [Formlar]![frm_1]![Soyadı].value" & _
"WHERE tbl_3.yemek = [Formlar]![frm_1]![Adı].value"
End If
Else
DoCmd.RunSQL "INSERT INTO tbl_3 ( yemek, fiyat ) VALUES ('" & Me.Adı & "','" & Me.Soyadı & "')"
End If
Me.RequeryRE: Tablodan Tablolara Veri Aktarımı - ahmetsan - 02/09/2022
Merhaba kusura bakmayın, sitede sorun var galiba cevap yazıldığını fark etmedim, tavsiyenizi kısa zamanda uygulayacağım, dönüş yaparım, çok teşekkürler