Merhabalar,

Öğrenci Kayıt adli formdan ödemeler formunu yeni bir fom olarak açmak istiyorum. Açılan Ödemeler fomunda öğrenci kayıt formundaki öğrenci no, ad ve soyad gibi bilgilerin gelmesini istiyorum. Formlardaki örnekleri inceledim. Ancak ne yaptıysam olmadı. Hata veriyor. Rica etsem bilen arkadaşlar yardımcı olabilir mi?

Merhaba, örnek uygulamanızı eklerseniz ne yapmak istediğinizi anlayıp çözüm üretebiliriz.

(27/07/2020, 00:43)ozanakkaya yazdı: Merhaba, örnek uygulamanızı eklerseniz ne yapmak istediğinizi anlayıp çözüm üretebiliriz.

Dosya ektedir. İlginiz için çok teşekkür ederim.

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ı.

(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

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

Merhaba ilginiz için teşekkür ederim. Ancak 

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


satırında  "[Öğrenci No]='"   eksik imleç hatası alıyorum. 
nasıl düzeltilebilir?

Asıl kodda tırnak işareti yok oysa sizin yazdığınız da fazladan bir tırnak eklenmiş sorun ondan kaynaklanmış olabilir
  "[Öğrenci No]='"   
Yeşil tırnak işaretini silerek deneyebilirsiniz.