Form' da Listbox' tan seçim yapmak

[tamer42]

Merhabalar;

Access konusunda acemiyim diyebilirim, kendimi geliştirmeye çalışıyorum.
Belki burada sorduğum sorunun cevabı forumda mevcut, yalnız forumdaki konuların çoğu bana ağır geliyor.

Ekli dosyadaki form üzerinde;
"No", "Adı", "e-mail", "tel","şehir" alanları var. Form üzerinde "No" alanını Listbox olarak ayarlamıştım.

Birincisi; Listbox üzerinde seçim yapamıyorum, İkincisi; bu seçimi yapabilseydim ;"No" değerine bağlı diğer alanların da değişmesini istiyorum.

birbirine bağlı bu iki işlemi nasıl yapabilirim.

Yardımcı olacak tüm arkadaşlara şimiden teşekkürler.

İyi Çalışmalar dilerim.

 

[akd]

Merhaba sayın tamer42,
Örnek formuna hem numara ile bulu ekledim,
hemde isme göre bulu ekledim ,
sen hangisini kulanırsan kullan artıkın.
İyi çalışmalar...

 

[tamer42]

Sn AKD ilginize sonsuz teşekkürler,

burada anlayamadığım bir noktayı sormama izin verirseniz

-----------------------------------------------------
Private Sub ID_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[No] = " & Str(Nz(Me![ID], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
--------------------------------------------------

"ID_AfterUpdate" ifadesini çözemedim,
"ID" nin yüklendiği görev hk. bilgi verebilirmisiniz.


İyi çalışmalar dilerim.

 

[akd]

Merhaba Sayın Tamer42,
Liste veya açılır kutuya sağ tıklayınca en alttaki özelliklere tıklıyorsun,
açılan diyalog kutusunun olay sekmesine tıklıyorsun,
en üstten ikinci kategori olan Güncelleştirme Sonrası olan komut satırıdır.
Yani listboxda veya comboboxdaki deger degiştirdikten sonra bu kodu uygula anlamına gelmektedir.
İyi çalışmalar...

 

[tamer42]

Sayın AKD selamlar;

Ben tam anlatamadım galiba;

Alan adı olarak "No", "Adı", "e-mail", "tel","şehir" alanları var.

Burada "ID" adında bir alan olmadığı için bunu sormak istemiştik.

Çalışmalarınızda başarılar dilerim.

 

[akd]

Merhaba Sayın tamaer42,
Bu sorduğun "ID" senin ilk gönderdigin formundaki liste kutusunun ismi idi
ben silmeyi unutmuşun,
senin daha önce ekledigin liste kutusunun sildim ama kodunu silmeyi unutmuşum.
İyi çalışmalar...

 

[tamer42]

Sn Akd çok teşekkürler;

Benim buradan yola çıkarak aynı işi yapacak bir textbox kutusu eklemeye çalıştım; başarılı olamadım.

Textbox içerisine yazdığım numaraya göre diğer alanların otomatik gelmesi,

bu konuda bir yol gösterebilirmisiniz.

İyi Çalışmalar, İyi Haftasonları...

 

[GKMER]

aynı yolla yapabilirsin

 

[tamer42]

Sn. GKMER ilginiz için teşekkür ederim.

Yalnız Textbox içerisindeki numara değişikliğinde;
Alttaki alan bilgileri görebildiğim kadarıyla hemen gelmiyor, ancak [No] alanına bir tıklama yapınca değişiyor.

bir başka öğrenmek istediğim;

Metin15_AfterUpdate()
Metin15_Change()

arasında bir farklılık var mıdır?


bu iki konuda yardımcı olabilirmisiniz.

İyi Çalışmalar dilerim...

 

[akd]

Merhaba,
Metin15_Change()
İçindeki deger degiştiginde çalışır.
Metin15_AfterUpdate()
Bu ise degeri degiştiripte enter'e tıklayınca çalışır.

 

[tamer42]

Merhabalar,


Private Sub Metin15_Change()

ile başladığımızda sanırım aşağıdaki kod üzerinde birtakım değişikliler yapmak gerekcektir, çünkü form ilk açıldığında ilk girişte çalışıyor, daha sonraki değer değişikliklerinde çalışmadıını gözlemledim.

İyi Çalışmalar, İyi Akşamlar.

--------------------------------------------------------------
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[No] = " & Str(Nz(Me![Metin15], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
--------------------------------------------------------------