Listboxtan seçtiğim kayıtı değiştirmek istiyorum.

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Listboxta seçtiğim kaydı değiştirmek istiyorum.
Dosyayı ekte yolluyorum.
Teşekkür ederim.
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Arkadaşlar bu soruma cevap bekliyorum.
 
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Merhaba Evren Bey..

Listeye tıklayınca şu kodun çalışması sağlarsanız formunuz kayıt değiştirmeye uygun hale gelecektir..

Kod:
[COLOR=#0600ff]Dim[/COLOR] rs [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Object[/COLOR]
    [COLOR=#0600ff]Set[/COLOR] rs [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Me[/COLOR].Recordset.Clone
    rs.FindFirst [COLOR=#fb0000]"[ID] = "[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Str[/COLOR][COLOR=#000000]([/COLOR]Nz[COLOR=#000000]([/COLOR][COLOR=#0600ff]Me[/COLOR]![COLOR=#000000][[/COLOR]Liste0[COLOR=#000000]][/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#000000])[/COLOR][COLOR=#000000])[/COLOR]
    [COLOR=#0600ff]If[/COLOR] [COLOR=#0600ff]Not[/COLOR] rs.[COLOR=#0600ff]EOF[/COLOR] [COLOR=#0600ff]Then[/COLOR] [COLOR=#0600ff]Me[/COLOR].Bookmark [COLOR=#008000]=[/COLOR] rs.Bookmark
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba Evren Bey..

Listeye tıklayınca şu kodun çalışması sağlarsanız formunuz kayıt değiştirmeye uygun hale gelecektir..

Kod:
[COLOR=#0600ff]Dim[/COLOR] rs [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Object[/COLOR]
    [COLOR=#0600ff]Set[/COLOR] rs [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Me[/COLOR].Recordset.Clone
    rs.FindFirst [COLOR=#fb0000]"[ID] = "[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Str[/COLOR][COLOR=#000000]([/COLOR]Nz[COLOR=#000000]([/COLOR][COLOR=#0600ff]Me[/COLOR]![COLOR=#000000][[/COLOR]Liste0[COLOR=#000000]][/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#000000])[/COLOR][COLOR=#000000])[/COLOR]
    [COLOR=#0600ff]If[/COLOR] [COLOR=#0600ff]Not[/COLOR] rs.[COLOR=#0600ff]EOF[/COLOR] [COLOR=#0600ff]Then[/COLOR] [COLOR=#0600ff]Me[/COLOR].Bookmark [COLOR=#008000]=[/COLOR] rs.Bookmark
Üstadım oldu.teşekkür ederim.
Bu konunun başka (Garfiksel) yönetmide varmıdır?
İyi çalışmalar.
 
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Seçtiğiniz kaydı getirmenin en kısa yolu budur Evren Bey.. Bir de şu olur; listeden seçtiğiniz kayda göre formu filtreleyerek sadece o kaydı kaynağa getirebilirsiniz..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Taarruz bey kaydı kaydet butona basınca değiştiriyor.
Ama Listboxta bir kayıta tıklayınca değişiklik kayboluyor.ve acayip şeyler oluyor.Kayıt bulunduğu satırdan başka satoıra geçiyor.Değişiklikte iptal oluyor.
Dosyayı ekte yolladım bakabilirmisinz,nerde hata var.
 

Ekli dosyalar

Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Evren Bey listenin tıklandığında olayında sadece yukarıda size verdiğim kodlar olsun.. Diğer kodları da kullanınca alanlara veri atıyorsunuz.. ;)
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Taarruz bey formun son durumunun aşağıdaki gibi yaptım.
Kaydet güncele ve sil butonları olacak şekilde yaptım.
Kaydet butonuna basınca yeni bir kayıt oluşturuyor ve textboxlardaki yeni kaydı giriyor.Ama bir kayıt değiştirdikten sonra yeni kayıt eklemiyor kaydet tuşu seçili kaydı değiştiriyor.
Bakarmısınız?
 

Ekli dosyalar

Üst