DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba.Sayın Evren Gizlen,
Web uygulamalarından bayağı etkilenmiş görünüyorsunuz. Sanırım bu iş nasıl olur diye merak ediyorsunuz. Benim genelde yaptığım Liste kutusunun bulunduğu bir arama formu yapıyorum, kaydı orada buluyorum ve butun aynı zamanda çift tıklamayla asıl formun üstünde geçerli kaydı getiriyorum.
Siz bu işi nasıl düşündünüz ona göre yardımcı olamaya çalışayım.
İyi çalışmalar
SELECT Kalori.SIRA, Kalori.Bolum, Kalori.Besin, Kalori.Miktar, Kalori.Kalori FROM Kalori WHERE (((Kalori.Bolum)=Formlar!Kalori![Açılan Kutu12]));
Modalı bey mümkünse ben buton ile güncellemek istiyordum.Sayın Evren Gizlen,
Eklediğim örnekte zaten kayıt geldikten sonra yapılan değişiklikler otomatik olarak güncelleniyor, ayrıca bir düğümeye gerek yok.
İyi çalışmalar
Sizin dosyanızda değil .Benim hazırladığım dosyada.Sayın Evren Gizlen,
Ben pek anlayamadım. Benim gönderdiğim örnekte listeden bir kayıt seçtiniz (tıklayarak) o kaydın verileri metin kutusunda göründü ve değişiklik yapmak istediğinizde başka kayıt mı değişti?
İmkânsız bir şey
Merhaba.Tablo ile ilişkili formunuzu hazırladınız, ondan sonra Liste Kutusu eklemek üzere listenizi alet kutusundan aldınız ve formunuza getirdiniz o sırada açılan sihirbaz penceresinin ilk görünümünde üç seçenek var bunlardan üçüncüsünü seçerseniz (Formumda Liste Kutusu içinde seçtiğim değere dayayan bir kayıt bulsun) hiç kod yazmadan istediğinizi Access emrinize sunuyor.
Private Sub Liste10_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SIRA] = " & Str(Nz(Me!
[Liste10], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub