Skip to main content

AccessTr.neT


Tüm Verilerin Güncellenmesi Hk

Tüm Verilerin Güncellenmesi Hk

#3
(08/10/2024, 12:55)atoykan yazdı:
Dim rs As DAO.Recordset
Dim TelNo As String, AlanKodu As String
AlanKodu = "0342"
    
Set rs = CurrentDb.OpenRecordset("Tablonuz", dbOpenDynaset)

If Not rs.EOF Then
rs.MoveFirst
    Do Until rs.EOF
        TelNo = rs!TelNo
            If Len(TelNo) = 7 Then
                rs.Edit
                rs!TelNo = AlanKodu & TelNo
                rs.Update
            End
        rs.MoveNext
    Loop
End If
    
rs.Close
Set rs = Nothing
benzeri kodla tablonuzdaki verileri recordsete alıp TelNo (kendi tablonuzda ilgili alana uyarlayarak) bazında kayıtları döngüye sokuyoruz ve uzunluğu 7 olanların başına alan kodu ekleyerek kayıtları güncelleyebilirsiniz.

bu kod hata verdi örnek dosyayı paylaştık kontrol edebilir misiniz ?
.rar telefon.rar (Dosya Boyutu: 20,03 KB | İndirme Sayısı: 2)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tüm Verilerin Güncellenmesi Hk - Yazar: adsoft - 07/10/2024, 21:46
RE: Tüm Verilerin Güncellenmesi Hk - Yazar: atoykan - 08/10/2024, 12:55
RE: Tüm Verilerin Güncellenmesi Hk - Yazar: adsoft - 08/10/2024, 19:57
RE: Tüm Verilerin Güncellenmesi Hk - Yazar: berduş - 08/10/2024, 20:38
RE: Tüm Verilerin Güncellenmesi Hk - Yazar: adsoft - 08/10/2024, 21:49
Task