Tüm Verilerin Güncellenmesi Hk

Tüm Verilerin Güncellenmesi Hk - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tüm Verilerin Güncellenmesi Hk (/konu-tum-verilerin-guncellenmesi-hk.html)

Tüm Verilerin Güncellenmesi Hk - adsoft - 07/10/2024

tablo1 isimli tabloda adı soyadı telefon numarası bulunmaktadır.
elimde veriler çok fazla bazı numaralar benim istediğim gibi değil ,örneğin başında alan kodu olmayan telefon numaralarının yani 7 basamaklı değeri var ise başına 0342 konulmasını istiyorum bunu da form1 isimli formda yine onda adı soyadı ve tlf numarası şeklinde textbox larım var varsayılan görünüm sürekli form şeklindedir yani ben en baştaki kayıt ile başlayıp tüm kayıtların tek tek kontrol etmesini istiyorum. bunu yapacak kod var mı elinizde yanlış anlattıysam kusuruma bakmayın tşk ederim.

RE: Tüm Verilerin Güncellenmesi Hk - atoykan - 08/10/2024

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.

RE: Tüm Verilerin Güncellenmesi Hk - adsoft - 08/10/2024

(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

bu kod hata verdi örnek dosyayı paylaştık kontrol edebilir misiniz ?

RE: Tüm Verilerin Güncellenmesi Hk - berduş - 08/10/2024

yapmak istediğiniz şeyi tam olarak anlamadım?
tablodaki 7 haneli telefon numaralarının başına AlanKodu ekleyerek güncellemek mi istiyorsunuz?
eğer öyleyse aşağıdaki kod işinize yarayabilir

CurrentDb.Execute "update Tablo1 set tlf='0342' & tlf where len(tlf)=7"

koddaki hatanın 2 sebebi var
1. dosyanız olmadığı için kodda tablodaki telefon alanın adı TelNo olarak alınmış oysa sizin alanınızın adı tlf. alan adını düzeltmeniz yeterli
2. sebep ise kodda end if olması gereken yerde if kısmı dikkatten kaçmış
yani

rs.Update

End

aşağıdaki gibi düzenlenmeli

rs.Update

End if

RE: Tüm Verilerin Güncellenmesi Hk - adsoft - 08/10/2024

tşk ederim oldu emeğinize sağlık