AccessTr.neT

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.

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

(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.

If rs.NoMatch Then

kodunun altına

DoCmd.RunCommand acCmdSaveRecord

kodu ekleyerek deneyiniz

(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.

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