İyi de keşke bu açıklamayı en başında yapsaydınız. Bu durumda 2. mesajdaki kod işinizi görür, tek yapmanız gereken kodda kullanılan tablo, alan ve metin kutularının adını çalışmanızda bulunanlarla değiştirmek.
Mesela kodda tablo adı olarak ÖDEMELER kullnılmış ama çalışmanızda tablo adı T_ÖDEMELER
Metin kutusu adı olarak ögrencino kullanılmış ama çalışmanızda metin kutusunun adı txtögrencino
Bu tür ufak tefek değişiklikleri yaparsanız sorun kalmaz bence.
(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.
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
Sanırım bu koddan bahsediyorsunuz.
Evet.
@
ozanakkaya hocamın kodunu eklediğiniz ilk çalışmada denedim sorunsuz çalışıyor.
(02/08/2020, 00:48)berduş yazdı: [ -> ]Evet.
@ozanakkaya hocamın kodunu eklediğiniz ilk çalışmada denedim sorunsuz çalışıyor.
@
ozanakkaya ve @
berduş hocalarım çok teşekkür ederim. Uzun uğraşlar sonunda sayenizde sorun halloldu. @
ozanakkaya hocamın kodunu değiştirerek uyguladım. Sorun kalmadı. Çok teşekkür ederim.