AccessTr.neT

ozellerhatırlatma formu uzerinde sag tık ile sorguyu kodla gerçekleştirip sadece msxbox ile evet hayır sorularını sormak evet dendiğinde tablodaki onaykutusu onaylanarak liste0 dan duşmesini saglamak sorgunun kendi uyarılarını iptal etmek yapmaya çalıştıgım

Sayın malidolu,

Bahsettiğiniz talebinize yönelik olarak;

Ozellerhatırlatma adlı formunuzun üzerine bir buton ekleyiniz ve

If MsgBox("Onaylamak istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then



DoCmd.SetWarnings False



DoCmd.OpenQuery "ozelleronay", acViewNormal, acEdit



DoCmd.SetWarnings True



DoCmd.OpenForm "ozeller", , , "[id] =" & Me.Liste0

    

Forms![ozeller]![siparişyollandı] = -1

    

DoCmd.Close acForm, "ozeller"

Else

Me.Undo

End If

    

Forms!ozellerhatırlatma!Liste0.Requery

Yukarıdaki kodları butonun TIKLANDIĞINDA olay yordamı içerisine dahil edip deneyiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın malidolu,

Bilgilendirme olması adına,şu açıklamayı yapmak uygun görülmüştür.

1)




Makroları kodlara dönüştürmek için,uygulamanızı açınız ve nesnelerin yer aldığı listeden (sol kısımdaki tablo,form,sorgu,v.s. yer aldığı) bir makroyu sol tuşla seçerek sadece aktifleştiriniz.üst menüden ARAÇLAR – MAKRO sekmesindeki MAKROLARI VISUAL BASIC’E DÖNÜŞTÜR (Convert Macros to Visual Basic) ifadesini seçiniz.


Makro içerikleri,kod sayfasında kodlara dönüştürülerek yazılı halde olacaktır.Her bir makro için bu işlemi uygulayınız.

2)




Eğer bir form üzerindeki ya da bir butona makro atandığında olay yordamları satırlarında oluşturulmuş makro ifadeleri yer alıyorsa,bunların da kodlara dönüştürülmesi için;

Formu Tasarım olarak açınız ve üst menüden ARAÇLAR – MAKRO sekmesindeki FORM MAKROSUNU VISUAL BASIC’E DÖNÜŞTÜR (Convert Form’s Macros to Visual Basic) ifadesini seçiniz.

Form içeriğindeki tüm makrolar kodlara dönüştürülmüş olarak dahil edilecektir.Bilginize…iyi çalışmalar,saygılar.

(09/10/2016, 17:15)atoz112 yazdı: [ -> ]Sayın malidolu,

Bilgilendirme olması adına,şu açıklamayı yapmak uygun görülmüştür.

1)




Makroları kodlara dönüştürmek için,uygulamanızı açınız ve nesnelerin yer aldığı listeden (sol kısımdaki tablo,form,sorgu,v.s. yer aldığı) bir makroyu sol tuşla seçerek sadece aktifleştiriniz.üst menüden ARAÇLAR – MAKRO sekmesindeki MAKROLARI VISUAL BASIC’E DÖNÜŞTÜR (Convert Macros to Visual Basic) ifadesini seçiniz.


Makro içerikleri,kod sayfasında kodlara dönüştürülerek yazılı halde olacaktır.Her bir makro için bu işlemi uygulayınız.

2)




Eğer bir form üzerindeki ya da bir butona makro atandığında olay yordamları satırlarında oluşturulmuş makro ifadeleri yer alıyorsa,bunların da kodlara dönüştürülmesi için;

Formu Tasarım olarak açınız ve üst menüden ARAÇLAR – MAKRO sekmesindeki FORM MAKROSUNU VISUAL BASIC’E DÖNÜŞTÜR (Convert Form’s Macros to Visual Basic) ifadesini seçiniz.

Form içeriğindeki tüm makrolar kodlara dönüştürülmüş olarak dahil edilecektir.Bilginize…iyi çalışmalar,saygılar.

oncelikle yardımınız için teşekkürler  liste0 kutusunda coklu secim yaparsak kod nasıl olacak ayrıca bunu sağ tık a baglama

Sayın malidolu,

Alıntı:liste0 kutusunda coklu secim yaparsak kod nasıl olacak

ifadenize yönelik olarak;aslında sizin tam olarak yapmayı istediğiniz işlem:


listeden seçili olan kayıt ya da kayıtları, ozeller adlı tabloda siparişyollandı adlı alan üzerinde onaysız olan durumunu onaylatmak.

Bu nedenle,direkt bir GÜNCELLEME (UPDATE) Sql sorgu komutu ile yapmanız yeterlidir,aslında.


Bunun için de,ilgili butonun içeriğini

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



Dim i As Variant



If MsgBox("Onaylamak istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then



DoCmd.SetWarnings False





For Each i In Me.Liste0.ItemsSelected

   DoCmd.RunSQL "UPDATE ozeller SET [siparişyollandı]=-1" & " WHERE [id]=" & Me.Liste0.ItemData(i)

Next





DoCmd.SetWarnings True



Else

Me.Undo

End If



Forms!ozellerhatırlatma!Liste0.Requery

yukarıdaki kodlar ile değiştirerek deneyiniz.Bilginize…iyi çalışmalar,saygılar.

sayın malidolu,

(sadece,bir hatırlatma ve bilgilendirme olması adına);

lütfen,
konularınıza mesaj yazan katılımcıların yazdıklarının tamamını ALINTI olarak almak yerine,

yazılana atıfta bulunmak amacı ile yeni bir mesaj yazacak olduğunuzda,bütün mesajı değil SADECE gerekli gördüğünüz bir cümlesini ya da paragrafını alıp dahil etmeye özen gösteriniz.
teşekkürler.

bilginize...iyi çalışmalar,saygılar.