Tabloda Güncelleme
Tarih
10/09/2012 19:19
Konu Sahibi
idrisy
Yorumlar
4
Okunma
928
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....
170
27/12/2008
11
Osmaniye
Ofis 2003
23/02/2017,19:57
Çözüldü 
Sponsor Reklam
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.315
29/01/2008
Denizli
Ofis 2010 32 Bit
Çö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....
170
27/12/2008
11
Osmaniye
Ofis 2003
23/02/2017,19:57
Çözüldü 
Sponsor Reklam
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.315
29/01/2008
Denizli
Ofis 2010 32 Bit
Çö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....
170
27/12/2008
11
Osmaniye
Ofis 2003
23/02/2017,19:57
Çözüldü 
Sponsor Reklam
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
  Tabloları ilişkilendirip liste güncelleme dufrety 7 112 14/02/2017, 09:43 dufrety
  Veri Güncelleme ve Tarihçe Oluşturma Doğan Uludüz 4 106 13/02/2017, 18:55 Doğan Uludüz
  alt formdan çıkışta ana formdaki alanı güncelleme hknct 2 183 20/01/2017, 11:45 hknct
  Tabloda Telefon numarası yoksa eklesin. 53rize 7 278 18/12/2016, 15:30 53rize
  Tabloda kesişen kayıdın bulunup silinmesi nightashes 1 84 18/12/2016, 13:53 nightashes


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya