Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/09/2012 19:19
Konu Sahibi
idrisy
Yorumlar
4
Okunma
1128
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
idrisy

idrisy

Aktif Üye
1506
İd.... YE....
 49
 50
 191
 27/12/2008
11
 Osmaniye
 
 Ofis 2003
 30/03/2019,12:33
Çözüldü 
Sayın Hocalarım; EK'teki dosyada tablodaki verileri güncellemek istiyorum. Ancak birtürlü başaramadım . Yardımlarınızı bekliyorum.



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Çözüldü 
Bu soruya çözüm bulunabilmesi için deneme2s.html sayfasının olması gerekiyor. Lütfen bu dosyayı ekleyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

idrisy

idrisy

Aktif Üye
1506
İd.... YE....
 49
 50
 191
 27/12/2008
11
 Osmaniye
 
 Ofis 2003
 30/03/2019,12:33
Çözüldü 
Hocam; unutmuşum. deneme2s.html sayfası Ekli halini ekledim. Yapmak istediğimin iternetten aldığım verileri tabloya aktarmak. Aktarırken eğer o kişinin verileri varsa o verileride güncellemek istiyorum. Verileri alabiliyorum ancak güncellemeyi yapamadım. Yardımlarınızı bekliyorum



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.064
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:56
Çözüldü 
guncelle fonksiyonunu aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function guncelle()
Dim strSQl As String
Dim rstkayit As ADODB.Recordset

    strSQl = "SELECT * FROM tblygs "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
        .Find "[tck]=" & Me![TcKimlik]
            If Not rstkayit.EOF Then
                .Fields("BabaAdi") = BabaAdi.Value
                .Fields("AnaAdi") = AnaAdi.Value
                .Fields("DogumYeri") = DogumYeri.Value
                    If Cinsiyet = 0 Then
                    .Fields("Cinsiyet") = "Kız"
                    ElseIf Cinsiyet = 1 Then
                    .Fields("Cinsiyet") = "Erkek"
                    End If
                .Fields("DogumTarihi") = DogumTarihi.Value
                .Fields("NufusIli") = NufusIli.Value
                .Fields("NufusIlcesi") = NufusIlcesi.Value
                .Fields("CiltNo") = CiltNo.Value
                .Update
             Else
                .AddNew
                .Fields("Adi") = Adi.Value
                .Fields("Soyadi") = Soyadi.Value
                .Fields("BabaAdi") = BabaAdi.Value
                .Fields("AnaAdi") = AnaAdi.Value
                .Fields("DogumYeri") = DogumYeri.Value
                    If Cinsiyet = 0 Then
                    .Fields("Cinsiyet") = "Kız"
                    ElseIf Cinsiyet = 1 Then
                    .Fields("Cinsiyet") = "Erkek"
                    End If
                .Fields("DogumTarihi") = DogumTarihi.Value
                .Fields("NufusIli") = NufusIli.Value
                .Fields("NufusIlcesi") = NufusIlcesi.Value
                .Fields("CiltNo") = CiltNo.Value
                .Update
             End If
        End With
End Function


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

idrisy

idrisy

Aktif Üye
1506
İd.... YE....
 49
 50
 191
 27/12/2008
11
 Osmaniye
 
 Ofis 2003
 30/03/2019,12:33
Çözüldü 
ozanakkaya hocam çok teşekkür ederim. Eline sağlık.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Aynı Tabloda İkitane Otomatik Sayı Alanı Verme respectful 13 650 22/04/2019, 23:36
Son Yorum: haliliyas
Çözüldü Öncelik Sırasıyle Tabloda Veri Listeleme. brkby 1 114 21/04/2019, 17:45
Son Yorum: haliliyas
Çözüldü Güncelleme Sorgusu te-kin 9 297 29/03/2019, 00:47
Son Yorum: te-kin
Çözüldü Bağlı Tabloda Sorgu İşlemleri prtkl 7 344 13/02/2019, 16:32
Son Yorum: prtkl
Çözüldü Liste Kutusundaki Alana Tabloda Hesaplanmamış Değerlerin Toplamını Getirme. Oğuz Türkyılmaz 10 281 12/02/2019, 09:43
Son Yorum: haliliyas

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.