AccessTr.neT

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???



dosyayı güncelledim...

Ekteki dosyanız bozuk galiba

dosya güncellendi...

---

arkadaşlar yardım edebilicek biri yokmu?

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.

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

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