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

1 2 3 4 5
27/07/2020, 00:21

ahmet4343

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?
27/07/2020, 00:43

ozanakkaya

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

ahmet4343

(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.
27/07/2020, 09:25

ozanakkaya

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ı.
29/07/2020, 00:06

ahmet4343

(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

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?
29/07/2020, 10:23

berduş

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.
1 2 3 4 5