(29/09/2010, 11:08)coskun_cakal yazdı: syn estapan;
bilgisayarımda bi sorun oluştu format atıyorum.programı dediğiniz şekilde yapmaya çalışcam ve gönderecem.
tamamdır örneği güncelledim.bi bakın
If ButtonMenu.Key = "sled" Then
MsgBox "sledgeab Hocam Merhaba Nasılsın..."
End If
kod bu şekilde
button menü yordamına yazıyosun ama toolbarda her alt menü için bi key vermen lazım.vermiş olduğun key kod sayfasında butonunu temsil ediyor.
ben örneğin değişik ve biraz daha gelişmiş versiyonunu hazırlıyorum onuda paylaşacam
şimdilik kolay gelsin
sn coskun_cakal,
yazdığınız komutu denedim fakat olmadı. accesstr ye basınca ardından tamam dümesine basınca çıkıyor. Yani direk alt menüden tercih yapılamıyor. .Yaptığınız örneği sabırsızlıkla bekliyoruz. paylaşımınız için teşekkürler..
(29/09/2010, 12:00)estapan yazdı: sn coskun_cakal,
yazdığınız komutu denedim fakat olmadı. accesstr ye basınca ardından tamam dümesine basınca çıkıyor. Yani direk alt menüden tercih yapılamıyor. .Yaptığınız örneği sabırsızlıkla bekliyoruz. paylaşımınız için teşekkürler..
ofisi kuruyorum örneği fırına sürücem birazdan çıkınca hep birlikte tadarız
Sn coskun_cakal, güzel örnek için teşekkürler.
öncelikle belirteyim 1. mesajdaki örnekten farklı olduğu için 1. mesajdaki örneği güncellemedim.yeniden ekledim.
bu kez 2 adet imagelist nesnesi kullandım ve menülerin hareketli olmasını sağladım.
syn estepanın uyarıs ile kodları değiştirdim
Private Sub Toolbar0_ButtonClick(ByVal Button As Object)
'/////////////////coşkun
' Çakal//////////////// bu alana yazılan kodlar toolbar nesnesindeki ana menüler için
On Error Resume Next
Select Case Button.Key
Case "not"
Dim stAppName As String
stAppName = "C:\WINDOWS\NOTEPAD.EXE"
Call Shell(stAppName, 1)
Case "kapat"
DoCmd.Quit acQuitSaveAll
End Select
End Sub
Private Sub Toolbar0_ButtonMenuClick(ByVal ButtonMenu As Object)
'/////////////////coşkun
' Çakal//////////////// bu alana yazılan kodlar toolbar nesnesindeki alt menüler içindir.
If ButtonMenu.Key = "fk" Then
MsgBox "Farklı Kaydet Seçildi" 'toolbar üzerindeki ilk menüde(kaydet) ve ona ait alt menüde farklı kaydet (fk) menüsünün çalışması için gerekli kod
DoCmd.Save
End If
If ButtonMenu.Key = "dk" Then
MsgBox "Diskete Kaydet Seçildi"
End If
If ButtonMenu.Key = "cdk" Then
MsgBox "CD Ye Kaydet Seçildi"
End If
End Sub