Forma Kısayol Menüsü Eklemek.

16/03/2020, 11:54

accessman

buna yeni item ekleyeyim dedim ama olmadı
16/03/2020, 13:33

ozanakkaya

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.
16/03/2020, 13:47

accessman

süpersin admin