Skip to main content

AccessTr.neT


Tüm Verilerin Güncellenmesi Hk

Tüm Verilerin Güncellenmesi Hk

Çözüldü #1
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.
Cevapla
#2
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.
Cevapla
#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
#4
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
Cevapla
#5
tşk ederim oldu emeğinize sağlık
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task