Private Sub Ödemeler_Click()
On Error GoTo Err_Ödemeler_Click
DoCmd.OpenForm "Ödemeler"
DoCmd.GoToRecord , , acNewRec 'Yeni kayıt ekleme kodu
Form_Ödemeler.Öğrenci_No = Me.Öğrenci_No 'yeni kayda veri atama kodu
Exit_Ödemeler_Click:
Exit Sub
Err_Ödemeler_Click:
MsgBox Err.Description
Resume Exit_Ödemeler_Click
End Sub
amacınız tam olarak ne? düğmeye bastığınızda var olan bir kayın gelmesi mi yoksa Ödemeler tablosunda yeni bir kayıt oluşturup oraya Öğrenci Kayıt tablosundaki verilerin eklenmesi mi? eğer amacınız Ödemeler tablosuna diğer tablodaki verilerin gelmesiyse aşağıdaki kod işinize yarayabilir ben sadece öğrenci noya göre yaptım siz diğer 2 bilgiyi de aynı yöntemle ekleyebilirsiniz ama bence ödemeler tablosunda ad/soyad alanlarına gerek yok zaten ad ve soyadı öğrenci no alanına göre alabilir tekrar ödemelertablosuna eklemeye gerek yok