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.