AccessTr.neT

Tam Versiyon: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
İ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.
Iyi çalışmalar.
Sayfalar: 1 2 3 4 5