her yeni kayıtta metin kutusundaki değer diğer kayıtlarda otomatik çıksın

Katılım
11 Ocak 2007
Mesajlar
144
Excel Vers. ve Dili
MS Excel-Access 2000
Demek istediğim varsayılan değer değil. Çünkü her formu açtığımda metin kutusundaki değeri ilk olarak ben girmek istiyorum.Daha sonra bu girdiğim değer diğer kayıtlarda sabit kalsın tekrar girmeyeyim. Teşekkürler
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Sayın umutozkans,

Metin kutusu yanına bir görünmez onay kutusu ekleyin ve form açılışında onay kutusunun değerini 0, metin kutusunun varsayılan değerini boşaltın yapın. Daha sonra ilgili metin kutusuna veri girdiğinizde metin kutusunun güncelleme öncesi olayında onay kutusunu -1, metin kutusunun varsayılan değerini metin kutusunun değerine eşitleyin.
Metin kutusunun güncelleme öncesi olayını onay kutusunun 0 olma durumunda çalışacak şekilde ayarlayın.

İyi çalışmalar:)
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
me! ile daha kolay halledilmez mi?
önce değişkeni tanımlayalım

Option Compare Database
Dim sabit_veri As String

sonra yeni kayıt düğmesine eklenecek kod

sabit_veri = Me![sabitveri]
DoCmd.GoToRecord , , acNewRec

MsgBox ("Sabit bilginizi yapıştırıyorum")
'İSTERSENİZ BU MSGBOX SATIRINI SİLERSİNİZ.
Me![sabitveri] = sabit_veri

Burada ilk yazdığınız metin kutusunun adını sabitveri olarak belirttim. Siz onu o ilk bilgiyi elimle yazacağım dediğiniz metin kutusunun adıyla değiştirin. Bu arada sabit_veri de değişkenle tanımlandığı için isterseniz değiştirmeyin ya da değişken tanımında da değiştirin.
 
Katılım
11 Ocak 2007
Mesajlar
144
Excel Vers. ve Dili
MS Excel-Access 2000
1. me! nedir?
2. buradaki tüm kodu aşağıdaki gibi yeni kayıt komutunun "tıklandığında" olayına mı atayacağım. Kısaca aşağıdaki kod ne iş yapar anlatır mısınız?

Option Compare Database
Dim sabit_veri As String
sabit_veri = Me![sabitveri]
DoCmd.GoToRecord , , acNewRec
Me![sabitveri] = sabit_veri

Teşekkürler
 
Katılım
30 Ocak 2006
Mesajlar
937
Excel Vers. ve Dili
Access 2003
1- me! üzerinde çalıştığın aktif formu anlatır.
2- Buradaki kodun

Option Compare Database
Dim sabit_veri As String

bölümünü kod penceresini açıp istediğin yere yapıştırabilirsin. O doğru yere yerleşir. Ama

sabit_veri = Me![sabitveri]
DoCmd.GoToRecord , , acNewRec
Me![sabitveri] = sabit_veri

kodunu Yeni kayıt düğmesi oluşturup ona atayacaksın. Bu arada işlemin gerçekleşeceği hücreye gitmek için bu kodun başına

[metin_kutusunun_adi].setfocus

komutunu yerleştirebilirsin.
 
Üst