AccessTr.neT
İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı (/konu-insrt-into-ile-kayit-icin-alt-form-yazim-kurali.html)

Sayfalar: 1 2 3

İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - SeferŞANLI - 24/03/2020

Çalışma eklemeye gerek var mı? bilmiyorum ama şöyle bir durum var

rs!yetistigicevre = Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(0)

yukarıda verilen örnekte;

Ana form: frm_öğrenciler
Alt form: frmalt1

altformdaki nesne ismi= txtcevre

ilişkili tablodaki alan adı= yetistigicevre

olan durumda


"INSERT INTO ........... (.............) VALUES ('" & ........... & "')"


ifadesi nasıl yazılır.

Cvp: İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - berduş - 24/03/2020

rs!yetistigicevre = Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(0) bu kodun hangi kodun devamı olduğunu bilmediğimden gerekip gerekmediğini de söyleyemem ama insert komutunun kullanımı
" INSERT INTO TabloAdı " _ 

            & "(yetistigicevre ) VALUES " _ 

            & "('" &  Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(0)  & "');"


Cvp: İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - SeferŞANLI - 24/03/2020 

Private Sub btnAkaydet_Click()

 If IsNull(Me.txtkimlikno) Or Me.txtkimlikno = "" Then

   MsgBox "Lütfen Öğrencinin TC Kimlik Numarasını Giriniz!", , "Kayıt İşlemi"

   Me.txtkimlikno.SetFocus

   Exit Sub

End If



If IsNull(Me.txtadsoyad) Or Me.txtadsoyad = "" Then

   MsgBox "Lütfen Öğrencinin Adını ve Soyadını Giriniz!", , "Kayıt İşlemi"

   Me.txtadsoyad.SetFocus

   Exit Sub

End If

Dim rs As New ADODB.Recordset

If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kayıt Ediliyor") = vbYes Then

rs.Open "tbl_ogrenci", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew

   



rs!tckimlik = Me.txtkimlikno

rs!adi_soyadi = Me.txtadsoyad

rs!okulu = Me.txtokl

rs!sinifi = Me.txtsınıf

rs!okul_no = Me.txtokulno

rs!dogum_tarihi = Me.txtdtarih

rs!dogum_yeri = Me.txtdyeri

rs!cinsiyeti = Me.txtcinsiyet

rs!ogrenci_telefonu = Me.txtcep





rs!yetistigicevre = Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(1)

rs!basaridurumu = Forms!frm_ogrenciler!frmalt1.Form!txtbasari

rs!yatılı_gündüzlü = Forms!frm_ogrenciler!frmalt1.Form!txtdrm

rs!ekdurum = Forms!frm_ogrenciler!frmalt1.Form!txtekdrm

rs!annebabasag = Forms!frm_ogrenciler!frmalt1.Form!txtsag

rs!annebabaöz = Forms!frm_ogrenciler!frmalt1.Form!txtoz

rs!nerdeokuyor = Forms!frm_ogrenciler!frmalt1.Form!txtokdrmyer

rs!saglikdurumu = Forms!frm_ogrenciler!frmalt1.Form!txtsaglik



rs!veli_adi_soyadi = Forms!frm_ogrenciler!frmalt2.Form!txtveliadsoyad

rs!veli_telefonu = Forms!frm_ogrenciler!frmalt2.Form!txtelitel

rs!yakinligi = Forms!frm_ogrenciler!frmalt2.Form!txtyakinlik

rs!veli_adresi = Forms!frm_ogrenciler!frmalt2.Form!txtdadres

rs!anneadi = Forms!frm_ogrenciler!frmalt2.Form!txtanneadi

rs!babaadi = Forms!frm_ogrenciler!frmalt2.Form!txtbaba

rs.Update

rs.Close

Set rs = Nothing

MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"

GoTo 777

Else

MsgBox "Kayıt İşleminden Vazgeçtiniz. Bilgileriniz Kaydedilmedi!", 64, "Kayıt İşlemi"

End If

777

Me.listeogrenci.Requery

   End Sub

Sayın hocam: Bu kaydetme olayını insert intoyla yapmak istiyorum.
Yada daha kola bir yolu var mı?
rs!yetistigicevre = Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(1)

Çünkü bu yordam çalışmamda hata veriyor. Nedense

Cvp: İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - berduş - 24/03/2020

ne hatası veriyor?

Cvp: İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - SeferŞANLI - 24/03/2020

[Resim: ECsRDy.jpg]


[Resim: kz9PhU.jpg]
referanslarda tamam sanki

Hocam: Örneklerden ve öğrendiklerimden faydalanarak çalışmamı tekrar oluşturmaya çalışıyorum. Ama böyle bir durumla karşı karşıyayım.

Cvp: İnsrt İnto İle Kayıt İçin Alt Form Yazım Kuralı - berduş - 24/03/2020

me.frmalt1.Form!txtcevre.Column(1)
şeklinde denediniz mi?