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

Tablo 2 ve 3'de sabit kalacak verilerin fiyatları değişmiyor mu? Değiştiğinde ne olacak?

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.Requery

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