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

Derecelendirme: 0/5 - 0 oy

idrisy

Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
176
27/12/2008
11
Osmaniye
Ofis 2003
Dün,17:57
Çö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.


Ek Dosyalar
.rar   guncelle.rar (Dosya Boyutu: 35,59 KB / İndirme Sayısı: 8)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.875
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,09:55
Çözüldü 
Bu soruya çözüm bulunabilmesi için deneme2s.html sayfasının olması gerekiyor. Lütfen bu dosyayı ekleyiniz.


Cevapla

idrisy

Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
176
27/12/2008
11
Osmaniye
Ofis 2003
Dün,17:57
Çö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


Ek Dosyalar
.rar   guncelle.rar (Dosya Boyutu: 56,96 KB / İndirme Sayısı: 21)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.875
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,09:55
Çö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


Cevapla

idrisy

Aktif Üye
Kullanici Avatari
Aktif Üye
İ.... Y....
176
27/12/2008
11
Osmaniye
Ofis 2003
Dün,17:57
Çözüldü 
ozanakkaya hocam çok teşekkür ederim. Eline sağlık.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Access Alan Sayısı Ve Güncelleme vbman12 1 232 16/07/2017, 15:08 C*e*l*o*y*c*e
Çözüldü Tabloda İsim Yerine Numara Çıkıyor. mharman 5 338 29/05/2017, 12:30 ozanakkaya
Çözüldü Veriyi Güncelleme Sorunu hayyam bal. 4 272 25/05/2017, 12:39 atoz112
Çözüldü Excelde Accesse Alınan Tabloya Access Formu Üzerinde Kayıt Ekleme Ve Güncelleme erensimsek 9 666 19/05/2017, 15:55 atoz112
Çözüldü Tabloda Kayıt Yoksa Formu Açma barcins 3 376 16/05/2017, 11:20 barcins

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