Skip to main content

AccessTr.neT


Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu

Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu

#26
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - Yazar: ahmet4343 - 02/08/2020, 00:28