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

Çözüldü #1
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?
Cevapla
#2
Merhaba, örnek uygulamanızı eklerseniz ne yapmak istediğinizi anlayıp çözüm üretebiliriz.
Cevapla
#3
(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.
.rar Deneme1.rar (Dosya Boyutu: 27,93 KB | İndirme Sayısı: 9)
Cevapla
#4
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 HatalarURL'ye Git konusunu da mutlaka incelemeniz gerekli. Uygulamanızın tasarımı hatalı.
Cevapla
#5
(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 HatalarURL'ye Git 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?
Cevapla
#6
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da