Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/03/2012 20:17
Konu Sahibi
kokotuna
Yorumlar
5
Okunma
1718
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kokotuna

Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
01/06/2017,09:32
Çözüldü 
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???

Ek Dosyalar
SON.rar


dosyayı güncelledim...


Cevapla

ayhan2122

accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
23/02/2017,01:00
Çözüldü 
Ekteki dosyanız bozuk galiba


Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

kokotuna

Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
01/06/2017,09:32
Çözüldü 
dosya güncellendi...

arkadaşlar yardım edebilicek biri yokmu?


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.789
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,20:24
Çözüldü 
Hesapla butonunun tıklandğında olayındaki aşağıdaki kodu sil

Visual Basic Code
1
2
3
4
5
6
7
8
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.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    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.


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.789
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,20:24
Çözüldü 
Problem çözüldü mü sn kokotuna ?


Cevapla

kokotuna

Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
01/06/2017,09:32
Çözüldü 
kusura bakmayın konuyu unutmuşum. Sorun çözülmüştür. Elinize sağlık


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 332 21/08/2017, 12:04 direnist
Çözüldü Tabloya Yeni Veri Girişini Engelleme ALTANs 2 146 17/08/2017, 13:13 ALTANs
Çözüldü Açılan Kutu Menüsünden Yapılan Seçimlerin Tabloya Kaydı ertans 2 277 07/08/2017, 17:37 ozguryasin
Çözüldü Farklı Tablolar Arası Tarih Kriterli İşlemler ALTANs 3 280 25/07/2017, 16:08 ALTANs
Çözüldü Farklı Tablo Verilerini Tek Bir Formda Gösterme damacanasu 2 192 23/07/2017, 21:31 damacanasu

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.