AccessTr.neT

buna yeni item ekleyeyim dedim ama olmadı

Bu şekilde konu başlığı yazmaya devam ederseniz uyarı puanı alabilirsiniz.

(06/07/2009, 23:57)AccessTr.neT yazdı: [ -> ]6-) Açacağınız konunun başlığına “Şunu Yapamıyorum”, "Şurasını Yapamadım","SQL", "Access", "bu mümkün müdür?", "acil yardım", "lütfen yardım”, “bana yol gösterin”, “bir bakar mısınız”, “Otomobil Takip Programı”, “Eğitim Takip Programı”, “Cari Hesap Programı” vb. şeklinde yazmayınız, Sorunuzu/konunuzu kısaca özetleyecek şekilde yazınız. Konu başlığınız “Stok Takip” yerine “Açılan Kutu Sorunu” şeklinde olmalıdır. Bu kurala uymayan konular çöp kutusuna taşınır.
Sürekli ihlalde uyarı puanı verilecektir. 
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +2

Eklediğiniz örnekteki modülde kısayol menüsü eklemek için kod mevcut. Ancak kod içerisinde yapılan değişiklikler için yani kısayol menüsünü yenilemek için kod eklemek, CreateContextMenu kodunu tetiklemek gerekli.

Modüldeki kodların tamamını

Option Compare Database

Option Explicit



Public Sub CreateContextMenu()



Const strMenuName As String = "Form1_CommandBar"



Dim cbar As CommandBar

Dim bt As CommandBarButton



Application.CommandBars("Form1_CommandBar").Delete

    

    Set cbar = CommandBars.Add(strMenuName, msoBarPopup, , False)

    Set bt = cbar.Controls.Add

        bt.Caption = "Cut"

        bt.OnAction = "=fCut()"

        bt.FaceId = 21

    Set bt = cbar.Controls.Add

        bt.Caption = "Copy"

        bt.OnAction = "=fCopy()"

        bt.FaceId = 19

        

        

    Set bt = cbar.Controls.Add

        bt.Caption = "Test"

        bt.OnAction = "=bildir()"

        bt.FaceId = 42



End Sub



Function bildir()

    MsgBox "bildirdim"

End Function



Function fCut()

On Error Resume Next

    Application.CommandBars.ExecuteMso ("Cut")

End Function



Function fCopy()

On Error Resume Next

    Application.CommandBars.ExecuteMso ("Copy")

End Function



Function fPaste()

On Error Resume Next

    Application.CommandBars.ExecuteMso ("Paste")

End Function

kodu ile değiştir.

forma buton ekle, tıklandığında olayına da

CreateContextMenu

kodu ekle.

Formu açıp butonu tıkladığında menü değişecektir.

süpersin admin