Bazı Metin kutularındaki verilerin kayıt değiştiğinde sabit kalmasını istiyorum

[mehmetdemiral]

Arkadaşlar, belki formda vardır ama herhalde ben bulamadım. Benim bir formumda tabloya bağlanmış İlçe-mahalle-cadde vb. alanlarım var. Bu verilerin denetim kaynağı olana tabloda bazı eksik bilgiler (Tc kimlik, adres vb gibi) tamamlanacak. Fakat kullanıcı ilçe-mahalle-sokak alanlarının formda bir kez girildiğinde ekrandaki kayıt değiştiğinde bile aynı kalmasını istiyor. Anlattığım gibi bu alanlar aslında tablodan gelen verilere bağlı. O yüzden kayıtlar arasında gezinti yapıldığında mevcut veriler doğal olarak değişmeli.
Ben bunun için "Kilit" isimli ikili bir düğme koydum. Düğmeye basıldığında ekrandaki sözü geçen metin kutularındaki verileri değişkenlere atıyorum. Daha sonra da başka bir düğme ile -mesela yapıştır adlı bir düğme ile- değişkenleri metin kutularına geri gönderiyorum. Fakat bu işlemi kullanıcı bilinçli olarak istediğinde yapmalı. Yani "Kilit" basılı iken veriler hafızada sabit kalmalı, "Yapıştır"a basılınca da sınırsız kere bu veriler yapıştırılmalı. Ne zaman ki "Kilit" düğmesi basılı durumdan kapalı duruma geldi, o zaman artık kopyalama işlemi devre dışı olmalı. Bu arada "Yapıştır" butonu visible komutu ile tabii gizlenebilir.

Aslında bu yoldan gitmem belki doğru olmayabilir. Ben bu yoldan gittim fakat sadece yeni kayıt açtırdığımda verileri kopyalayabildim. Halbuki ben bu işlemi istediğim zaman yapmalıyım. Başka yol öneren olabilir. Yardımlarınızı bekliyorum. Bu arada örnek geliyor..

 

[erdem55]

Bu anlattığınız konu hakkında çok fazla bilgi edinemedim bi örnek eklerseniz belki o şekilde bi yardımımız dokunur diye düşünüyorum. Üstadlarmız neder bilemeyeceğim

 

[mehmetdemiral]

İşte örnek

Örneği hazırladım. İncelerseniz sanırım anlaşılır. Tabii benim gittiğim yoldan gitmeniz şart değil, başka alternatifler de iş görebilir.

 

[mehmetdemiral]

Örnek incelemeye zamanı olmayanlar için kodları açık yazayım

Kopyala tuşuna şu kodlar gelince:

ilçe_adi = Me![ilçeadi]
mahalle_adi = Me![mahalleadi]
sokak_adi = Me![sokakadi]
cadde_adi = Me![caddeadi]
mid_ = Me![mid]
cid_ = Me![cid]
sid_ = Me![sid]


Yapıştır tuşunda da şu kodlar olunca

Me![ilçeadi] = ilçe_adi
Me![mahalleadi] = mahalle_adi
Me![sokakadi] = sokak_adi
Me![caddeadi] = cadde_adi
Me![mid] = mid_
Me![cid] = cid_
Me![sid] = sid_

Form yüklendiğinde tabii ki

Dim ilçe_adi As String
Dim mahalle_adi As String
Dim sokak_adi As String
Dim cadde_adi As String
Dim mid_ As String
Dim cid_ As String
Dim sid_ As String

değişkenler ekleniyor. Ama çalışmıyor.
Fakat tek bir düğmeyi şu kodlarla çalıştırınca

ilçe_adi = Me![ilçeadi]
mahalle_adi = Me![mahalleadi]
sokak_adi = Me![sokakadi]
cadde_adi = Me![caddeadi]
mid_ = Me![mid]
cid_ = Me![cid]
sid_ = Me![sid]
DoCmd.GoToRecord , , acNewRec
Me![ilçeadi] = ilçe_adi
Me![mahalleadi] = mahalle_adi
Me![sokakadi] = sokak_adi
Me![caddeadi] = cadde_adi
Me![mid] = mid_
Me![cid] = cid_
Me![sid] = sid_


olunca çalışıyor. Ama yeni kayıt açıp değişkenleri oraya aktarıyor. Oysa ben form üzerindeki adı geçen kutulardaki verileri bir kere hafızaya alıp tıpkı windowsun kopyala-yapıştırı gibi kullanmak istiyorum. Bunun bir yolu yok mu?

 

[mehmetdemiral]

49 kişi okumuş ama kimsede çıt yok.. Bu kadar zor bir soru değil bence de herhalde bizim ustalar ortada yok..

 

[yeni54]

global değişkenleri kullanmanız lazım.

Örneğin, Genel adında bir modülünüz olduğunu varsayalım.
Bu modül içerisinde aşağıdaki gibi bir tanımlama yaptığınızda:

public ilce as string
public cadde as string
public ........

Bu değişkenleri, heryerden rahatlıkla kullanabilirsiniz.
Kullanım şekli:

....
Genel.ilce
....

Zaten Genel den sonra noktaya basınca public değişkenleriniz gelecektir karşınıza.

 

[mehmetdemiral]

Sayın yeni54.. Yani benim sorunum, kayıt gezintisi sırasında tanımladığım değişkenin sıfırlanması mı?.. Bunu düşündüm ama aynı form içinde yazdığım "geçerli olduğunda yordamı"nın yeterli olacağını sanıyordum. Hemen bir modül ile deniyorum. Çok teşekkürler...

 

[yeni54]

Tabi burada combobox için de biraz uğraşmak gerekebilir.

 

[mehmetdemiral]

Tabi burada combobox için de biraz uğraşmak gerekebilir.

Ne gibi yani. Biraz açar mısınız?

 

[yeni54]

Uğraştırır derken, combobox a kayıt ekleme gibi şeyler demek istedim.
Özel bir zorluk kastetmedim.

 

[mehmetdemiral]

Örneği incelerseniz zaten benim comboboxlar sadece asıl id ve UN uzantılı -mesela mahalleadi aslında mahalleid verisini oluşturuyor gibi- verileri oluşturmak için kullanılıyor ve verilerini bir sorgu üzerinden başka bir tablodan alıyor. Aslında zaman ayırabilseniz bana çok yardım edebilirsiniz.Örnekte aslında çok güzel anlattım. Bir nevi kopyala-yapıştır yapmak istiyorum. Ama yapıştırma işinin sınırı olmayacak. Kopyalama yapınca -yani değişkenlere veri atayınca- daha sonra değişkenlerden verileri başka metinkutularına geri gönderdiğimizde değişkenler sıfırlanacak mı? O zaman yapıştırma kodlarının sonuna yapıştırılan veri tekrar değişkene atanarak sanırım çözüm bulunabilir? Yanılıyor muyum?

 

[yeni54]

değişkenleri sıfırlamak tamamen buton kontrolünde olacak.
kopyala butonuna basınca ilgili alanları global deişkenlere atayacaksınız,
yapıştır butonuna basınca da global değişkenlerden form değişkenlerine atayacaksınız. Bu arada sıfırlama olmayacak. Sıfırlama için de bir buton koyabilirsiniz tabi.
Değişkenler global olduğu için, ilgili form kapansa bile değişkenlerin içeriği
en son kopyala butonuna basılan değerler olarak kalmaya devam edecek.
Form tekrar açıldığında, yapıştır butonu kullanıldığında bile son kopyalanan değerler yine form değişkenlerine aktarılmış olacak.
Hatta bu iş için buton bile kullanmadan ctrl-c ve ctrl-v yi kullanabilirsiniz.

 

[mehmetdemiral]

Aslında formda bir kilit butonumuz var. animasyonlu bir resim de ekledim. O buton basıldığında veriler mevcut form üzerinden

If kitle1 = 0 Then 'kitle1 tuşumuzun adıdır.

ilçe_adi = Me![ilçeadi]
mahalle_adi = Me![mahalleadi]
sokak_adi = Me![sokakadi]
cadde_adi = Me![caddeadi]
mid_ = Me![mid]
cid_ = Me![cid]
sid_ = Me![sid]

kilitli.Visible = False 'Bunlar resim için
kilitsiz.Visible = True 'Bu da resim
Else
kilitli.Visible = True 'aynen
kilitsiz.Visible = False 'bu da aynen
End If



şeklinde değişkenlere atanıyor. Sonra da Yapıştır diye bir butonumuz var, o da değişkenlerdeki verileri tekrar formdaki aktif kayıt üzerine yapıştırıyor.


Me![ilçeadi] = ilçe_adi
Me![mahalleadi] = mahalle_adi
Me![sokakadi] = sokak_adi
Me![caddeadi] = cadde_adi
Me![mid] = mid_
Me![cid] = cid_
Me![sid] = sid_

Buraya kadar yaptıklarım aynen böyle. Sadece değişken tanımlarını formumun geçerli olduğunda olay yordamına yazdım. Tek hatam bu mu?

Private Sub Form_Current()
DoCmd.Maximize
Dim ilçe_adi
Dim mahalle_adi
Dim sokak_adi
Dim cadde_adi
Dim mid_
Dim cid_
Dim sid_

End Sub

 

[mehmetdemiral]

Bu arada söylemeyi unuttum.. Değişkenlere daha sonra as string ifadesini de ekledim. Ama sanırım çok da önemli değil..

 

[yeni54]

evet, hatanız bu.

 

[mehmetdemiral]

Evet. Kodlar aynen çalıştı. Hakkınız var. Fakat değişkenlere veri atarken boş olan kutular olabilecek. Mesela Sokak veya Caddeden biri boş olacak. Çünkü bazı adreslerde sokak, bazılarında cadde var. O zaman hata vermesini nasıl engelleriz? Çünkü null veri olunca hata veriyor. Bazen verinin verinin de null olması gerek.

 

[yeni54]

nz yi kullanın.

nz(<de&#287;i&#351;ken>,"")

 

[mehmetdemiral]

Sevgili yeni54... as string ifadesini silince public değişkeniyle bu iş oldu. Hata da vermiyor o zaman.. Çok çok teşekküğrler.. Bana hatamı gösterdin her zamanki gibi. İyi ki varsın, iyi ki dostumsun.. Sağol..

 

[mehmetdemiral]

Değişkenleri silmem -değiştirmem değil temizlemem- gerektiğinde ne yapabilirim? Hepsine kodla =null yapsam nasıl olur?
Not: Gerek kalmadı. İki seçimli düğmemin kapalı konumunda
ilçe_adi = Me![ilçeadi]
mahalle_adi = Me![mahalleadi]
sokak_adi = Me![sokakadi]
cadde_adi = Me![caddeadi]
mid_ = Me![mid]
cid_ = Me![cid]
sid_ = Me![sid]

kodları işlemediği için değişkenlerden gelen veriler kesiliyor ve yapıştırma işlemi yapılamıyor. Tam istediğim gibi. Süperrrr

 

[gulsum1]

bu biraz mantıksız değilmi diyelim siz bir kayıt girdiniz biri a mahallesinde oturuyor diğeri b mahallesinde oturuyor 1 kayıttan 2. kayıta geçttiğinde 2.kayıtın mahallesi sokağı yani bütün bilgileri değişir bana biraz mantıksız geliyor ha her yeni kayıtta bir önceki kayıttaki veriler ile alanların hepsini doldurma dersen anlardım onunda kolay yolu vardı