AccessTr.neT

Merhaba arkadaşlar,
Kullanıcı menüyü açınca,
görme yetkisi verilmiş butonları görülmesini diğerlerinin
gizlenmesini yapmak istiyorum,
ilk olarak, menü formundaki butonların isimlerini,
Btnisim adlı tabloya nasıl kaydedeceğim konusunda yardımınızı
rica ediyorum,

daha sonra personellere bu butonları tanımlayacağım,
en sonundada menü açılırken bir sorgulama yapacak,
ismi seçilen kişinin görmesi gerekli butonları gösterecek
diğerlerini gizleyecek...

Ne işe yarayacağını anlayamadım ama aşağıdaki kodları F_btnisim isimli formdaki Komut5 isimli butonun tıklandığında olayına yazarsanız menu formundaki buton isimlerini tabloya kaydedebilirsiniz.

on error resume next

Dim ctl As Control



   DoCmd.OpenForm "menu", , , , , acHidden



For Each ctl In Forms!menu.Controls

   Select Case ctl.ControlType

       Case acCommandButton

           strSQL = "Insert Into Btnisim ([btnAd]) values ('" & ctl.Name & "');"

           CurrentDb.Execute strSQL, dbFailOnError

   End Select

Next

   DoCmd.Close acForm, "menu", acSaveNo

   Me.Requery

Teşekkürler.