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.