(27/07/2020, 09:25)ozanakkaya yazdı: Merhaba, öğrenci kayıt formundaki komut9'un tıklandığında olayına aşağıdaki kodu yazarak deneyin.Sanırım bu koddan bahsediyorsunuz.
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
Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu
Konuyu Okuyanlar: 1 Ziyaretçi