Alt Formsuz Veri Girişi

1 2
07/10/2018, 15:46

notrino

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.
07/10/2018, 19:15

ozanakkaya

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:52

notrino

(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.
07/10/2018, 20:23

ozanakkaya

If rs.NoMatch Then
kodunun altına


DoCmd.RunCommand acCmdSaveRecord
kodu ekleyerek deneyiniz
07/10/2018, 20:58

notrino

(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.
07/10/2018, 21:00

ozanakkaya

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