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
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.