sag klick ve makro yu koda cevirme

1 2
09/10/2016, 15:20

malidolu

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
09/10/2016, 16:44

atoz112

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.
09/10/2016, 17:15

atoz112

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, 19:16

malidolu

(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
09/10/2016, 20:37

atoz112

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.
09/10/2016, 20:40

atoz112

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.
1 2