+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu (/konu-alt-formu-yeni-bir-form-sayfasi-olarak-acma-sorunu.html)
Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - ahmet4343 - 27/07/2020
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?
RE: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - ozanakkaya - 27/07/2020
Merhaba, örnek uygulamanızı eklerseniz ne yapmak istediğinizi anlayıp çözüm üretebiliriz.
RE: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - ahmet4343 - 27/07/2020
(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.
RE: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - ozanakkaya - 27/07/2020
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ı.
RE: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - ahmet4343 - 29/07/2020
(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?
RE: Alt Formu Yeni Bir Form Sayfası Olarak Açma Sorunu - berduş - 29/07/2020
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.