eklediğim örnekte liste kutusundan seçili olan kaydı, aşağı yukarı ok ile ISLEM_SIRA_NO adımını değiştirebiliyorum,
bu işlem sıra no değiştirme işlemini liste kutusunun sağındaki aşağı yukarı ok ile değiştirmek istiyorum,
yardımcı olabilirmisiniz?
merhaba arkadaşlar,
aşağı yukarı butanlarıyla işlem sıra numarasını değiştirebiliyorum,
fakat liste kutusundan seçmiş olduğum kayıt seçiliyken aşağı yada yukarı butonuna bastığımda
liste kutusundaki ilk kayda gidiyor,
seçili olan kaydın aşağı ise aşağı
yukarı ise yukarı gitmesini sağlayamadım,
benim eklediğim örnekteki kod a (sizin eklediğiniz kod dan "Me.Liste100.Selected(LngIndex) = True" kısmını aldım,
bu kod ile aşağı yukarı işlemi yapılılrken liste kutusundaki seçim hep aktif seçim olarak seçtirildi.
liste kutusundaki ilk kayda gitme sorunu çözüldü.
teşükkürler.
Visual Basic
PrivateSub asagi_Click()
Dim LngIndex AsLong
LngIndex = Me.Liste100.ListIndex + 2
If Me.Liste100.ListIndex =-1 ThenExitSub
If Me.Liste100.ListCount = LngIndex ThenExitSub
DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3) & " where ID=" & Me.Liste100.Column(1, LngIndex)
DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3)+ 1 & " where ID=" & Me.Liste100.Column(1)
Me.Liste100.Requery
Me.Liste100.Selected(LngIndex)=True
EndSub
PrivateSub yukari_Click()
Dim LngIndex AsLong
LngIndex = Me.Liste100.ListIndex
If Me.Liste100.ListIndex =-1 ThenExitSub
If Me.Liste100.ListIndex = 0 ThenExitSub
DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3) & " where ID=" & Me.Liste100.Column(1, LngIndex)
DoCmd.RunSQL "update YUKLEME_LISTESI set ISLEM_SIRA_NO=" & Me.Liste100.Column(3)- 1 & " where ID=" & Me.Liste100.Column(1)