Merhabalar elimde bir programa ait veritabanı var ben bu veritabanında tablolar arasında sabit olan değeri tüm tablolara otomatik olarak değitirmek istiyorum Mesela dersler tablosunda SıraNo Notlar tablosunda SıraNo Konular tablosunda DersNo Analiz tablosunda DersSıraNo gibi alanlardaki sabit değerleri değiştirmek istiyorum fakat bunu makro kullanarak veya daha farklı bir yol var ise ne şekilde değiştirerek nasıl yapabilirim şimdiden teşekkürler
Bahettiğiniz alanlar birincil anahtar durumunda.. Dolayısıyla değiştirmeniz için bu özelliği iptal etmeniz gerekir.. Bu sizin için sorun olmazsa (veritabanı yapısı için sorun olabilir) değiştirilebilir.. Bu amaç içinde sorgular kısmında günceleme sorgusunu istediğiniz değerleri vererek kullanabilirsiniz..
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
ben tablo içerisnde her tabloda ayrı ayrı ctrl+H ile değerleri değitiriyorum mesela 1 i 4 yap gibi bunu daha kolay nasıl yapabilirm bu verdiğim veritabanı gibi birden fazla veritabanı oluyor bunları birleştiriyorum program her değerlendirme ders numarasını 1 den başlatıyor o yüzden diğer vt lerde değiştirmek istiyorum
25-01-2021, 14:27 (En son düzenleme: 25-01-2021, 14:30 lemoncher2.)
Konu Biraz Eskide kalmış hortlatmış olacağım ancak bu sorunla ilgili bir kaç araştırma yaptım ve aşağıda bıraktığım kodu buldum. Arkadaşımızın sorununu çözebilecek bir kod Tüm sayfalarda belirtilen alanı arayıp varsa değişiklik yapıyor.
Visual Basic
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fdf As DAO.Field
Set db =CurrentDb
DoCmd.SetWarningsFalse
ForEach tdf In db.TableDefs
IfNot(tdf.Name Like "MSys*" Or tdf.Name Like "~*")Then
ForEach fdf In tdf.Fields
If fdf.Name = "Tablodaki Alan Adını Yazınız" ThenDoCmd.RunSQL "update " + tdf.Name + " set Tablodaki Alan Adını Yazınız= 1 "
Next
EndIf
Next
Set tdf =Nothing
Set db =Nothing
DoCmd.SetWarningsTrue
Tek sorun şu belirtilen tabloda ki belirtilen alan adına sabit bir değer yazıyor. (Kodda 1 değerini yazıyor) bunun değiştirebilmek için önerisi olan var mı?