Sub CubukOlustur()
Application.CommandBars("SiparisListesiSagcilick").Delete
Dim cmbSagTus As Office.CommandBar, Sayac, Simge As Long, Dugme As Variant
'*** Yeni SagTus Menusu olusturur*****
Set cmbSagTus = CommandBars.Add("SiparisListesiSagcilick", msoBarPopup, False, False)
'**** Bir baska modl paragrafina tasiyip, var olan kisayol menusune sonradan eklemeler yapilabilir.****************
Dugme = Array("Sipariþi Aç", "Yeni Sipariþ Aç", "Stok Kartý Reçetesini Aç", "Sipariþ Önizleme", "Stok Kartýný Aç", "Stok Kartý Resmi", "Kapat")
Simge= Array(7, 10,22, 45, 71, 11, 53)
For Sayac = 0 To 6
Set cmbTus = CommandBars("SiparisListesiSagcilick").Controls.Add(Type:=msoControlButton)
    With cmbTus
        '.BeginGroup = True
        .Caption = Dugme(Sayac)
        .FaceId = Simge(Sayac)
        .OnAction = "Frm_" & Replace(Dugme(Sayac), " ", "")
    End With
Next Sayac
End Sub
Sub Frm_SipariþiAç()
DoCmd.OpenForm "SiparisAnaTablo", acNormal, , "[SiparisID]=" & [Forms]![SiparisListesi]![Metin2], acFormEdit, acWindowNormal
End Sub
Sub Frm_YeniSipariþAç()
DoCmd.OpenForm "SiparisAnaTablo", acNormal, , , acFormAdd, acWindowNormal
End Sub
Sub Frm_StokKartýReçetesiniAç()
DoCmd.OpenForm "UrunAgaciAnaTablo", acNormal, , "[ReceteID]=" & [Forms]![SiparisListesi]![Metin5], acFormEdit, acWindowNormal
End Sub
Sub Frm_SipariþÖnizleme()
MsgBox "Duzenleyin"
End Sub
Sub Frm_StokKartýResmi()
MsgBox "Duzenleyin"
End Sub
Sub Frm_Kapat()
DoCmd.Close acForm, "SiparisListesi"
End Sub