AccessTr.neT
Alt Formsuz Veri Girişi - Baskı Önizleme

+- 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 Formsuz Veri Girişi (/konu-alt-formsuz-veri-girisi.html)

Sayfalar: 1 2

Alt Formsuz Veri Girişi - notrino - 07/10/2018

Selamlar,

Ekli örneğimdeki tablolar bire-bir ilişkili. Form açıldığında, alan1'e manuel değer girmek istiyorum. Formda gördüğünüz Metin8 isimli ilişkisiz metin kutusunu da Tablo2'ye veri girmek için kullanmak istiyorum. Normalde altform yaratarak bunu yapabilirim. Ama ben aynı form üzerindeki bu metin kutusuna veri girerek Tablo2 ye veri girmek istiyorum. Formun altındaki kayıt gezintisinden yeni form açıldığında tabiki alan1 ve metin8'in içi yeni veriler için boşalmalı. Metin8'i bu bağlamda nasıl ilişkilendirebilirim Tablo2 ile? Tşk.

Cvp: Alt Formsuz Veri Girişi - ozanakkaya - 07/10/2018

Metin8'in güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Dim GSorgum As String

Dim dbs As DAO.Database

Dim rs As DAO.Recordset



GSorgum = "SELECT * FROM Tablo2;"

Set dbs = CurrentDb

Set rs = dbs.OpenRecordset(GSorgum, dbOpenDynaset)



rs.FindFirst "[Kimlik] = " & Kimlik

    If rs.NoMatch Then

        rs.AddNew

        rs!Kimlik = Me.Kimlik

        rs!alan2 = Me.Metin8

        rs.Update

    Else

        rs.Edit

        rs!alan2 = Me.Metin8

        rs.Update

    

    End If

        rs.Close

        Set rs = Nothing

        Set dbs = Nothing


Cvp: Alt Formsuz Veri Girişi - notrino - 07/10/2018

(07/10/2018, 19:15)ozanakkaya yazdı: Metin8'in güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Dim GSorgum As String

Dim dbs As DAO.Database

Dim rs As DAO.Recordset



GSorgum = "SELECT * FROM Tablo2;"

Set dbs = CurrentDb

Set rs = dbs.OpenRecordset(GSorgum, dbOpenDynaset)



rs.FindFirst "[Kimlik] = " & Kimlik

    If rs.NoMatch Then

        rs.AddNew

        rs!Kimlik = Me.Kimlik

        rs!alan2 = Me.Metin8

        rs.Update

    Else

        rs.Edit

        rs!alan2 = Me.Metin8

        rs.Update

    

    End If

        rs.Close

        Set rs = Nothing

        Set dbs = Nothing

Ozan Bey,

Kodlama "rs.update" kısmında hata veriyor.

Cvp: Alt Formsuz Veri Girişi - ozanakkaya - 07/10/2018 

If rs.NoMatch Then
kodunun altına


DoCmd.RunCommand acCmdSaveRecord
kodu ekleyerek deneyiniz

Cvp: Alt Formsuz Veri Girişi - notrino - 07/10/2018

(07/10/2018, 20:23)ozanakkaya yazdı: 
If rs.NoMatch Then
kodunun altına


DoCmd.RunCommand acCmdSaveRecord
kodu ekleyerek deneyiniz

Denedim, hata vermiyor ancak Metin18 içine girdiğim veri, kaydedilmesine kaydediliyor ama yeni kayıt açtığımda bu veri aynen Metin18 kutusu içinde hala görünüyor.

Cvp: Alt Formsuz Veri Girişi - ozanakkaya - 07/10/2018

Formun geçerli olduğunda olayına kod ekleyerek Metin18'in temizlenmesini sağlamalısınız.