Merhaba, öğrenci kayıt formundaki komut9'un tıklandığında olayına aşağıdaki kodu yazarak deneyin.

On Error GoTo Err_Ödemeler_Click



Dim VarMi As Integer



VarMi = DCount("[Öğrenci No]", "Ödemeler", "[Öğrenci No]=" & Me.Öğrenci_No)



If VarMi = 0 Then

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Ödemeler ([Öğrenci No], Adı, Soyadı) VALUES (" & Me.Öğrenci_No & ", '" & Me.Adı & "', '" & Me.Soyadı & "')"

DoCmd.SetWarnings True

End If



DoCmd.OpenForm "Ödemeler", acNormal, , "[Öğrenci No]=" & Me.Öğrenci_No, acFormEdit, acWindowNormal





Exit_Ödemeler_Click:

    Exit Sub



Err_Ödemeler_Click:

    MsgBox Err.Description

    Resume Exit_Ödemeler_Click

Ayrıca Yapılmaması Gereken Ölümcül Hatalar konusunu da mutlaka incelemeniz gerekli. Uygulamanızın tasarımı hatalı.