AccessTr.neT
farklı tabloya kaydederken güncelleme sorunu - 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ığı: farklı tabloya kaydederken güncelleme sorunu (/konu-farkli-tabloya-kaydederken-guncelleme-sorunu.html)



farklı tabloya kaydederken güncelleme sorunu - kokotuna - 31/03/2012

arkadaşlar;
Ekli dosyada sondaj veri girişi formundaki hesapla butonunua bastığımda sondajkuyusuadı ve derinlik bölümlerini sıvılaşma formuna kaydediyor ancak her seferinde bir alt satıra kayıt yapıyor ve doğal olarak sıvılaşma formundada bir alt satırda gözüktüğü için karmaşa oluşuyor.
Demek istediğim sondaj veri girişi formunda değişim yaptığımda aynı anda sıvılaşma formundaki ilgili satırında değişmesini nasıl sağlayabilirim???

SON.rar


dosyayı güncelledim...


Cvp: farklı tabloya kaydederken güncelleme sorunu - ayhan2122 - 01/04/2012

Ekteki dosyanız bozuk galiba



Cvp: farklı tabloya kaydederken güncelleme sorunu - kokotuna - 01/04/2012

dosya güncellendi...

arkadaşlar yardım edebilicek biri yokmu?


Cvp: farklı tabloya kaydederken güncelleme sorunu - ozanakkaya - 02/04/2012

Hesapla butonunun tıklandğında olayındaki aşağıdaki kodu sil

If MsgBox("Yeni kayıt tabloya eklenecek", vbYesNo) = vbYes Then
With DoCmd
.SetWarnings False
.RunSQL "insert into SIVILAŞMA(SONDAJKUYUSUADI,DERİNLİKİLK)" _
& " select [Forms]![SONDAJ VERİ GİRİŞİ]![SONDAJKUYUSUADI],[Forms]![SONDAJ VERİ GİRİŞİ]![DERİNLİKİLK]"
.SetWarnings True
End With
End If



yerine bunu ekle.


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
strSQL = "SELECT * FROM SIVILAŞMA "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[Kimlik]=" & "'" & Me![Kimlik] & "'"
If Not rstkayit.EOF Then
.Fields("SONDAJKUYUSUADI") = Me.SONDAJKUYUSUADI
.Fields("DERİNLİKİLK") = Me.DERİNLİKİLK
.Update
Else
.AddNew
.Fields("Kimlik") = Me.Kimlik
.Fields("SONDAJKUYUSUADI") = Me.SONDAJKUYUSUADI
.Fields("DERİNLİKİLK") = Me.DERİNLİKİLK
.Update
End If
End With
Ayrıca;
Microsoft Activex Data Object referansını ekle.


Cvp: farklı tabloya kaydederken güncelleme sorunu - ozanakkaya - 30/04/2012

Problem çözüldü mü sn kokotuna ?


Cvp: farklı tabloya kaydederken güncelleme sorunu - kokotuna - 01/05/2012

kusura bakmayın konuyu unutmuşum. Sorun çözülmüştür. Elinize sağlık