اخي ابو عارف ممكن شرح هذا الكود لو تكرمت
' مشروبات ------------------ Set rs = CurrentDb.OpenRecordset("select id,iname from tabl1 where d_f=-1"): rs.MoveLast: rs.MoveFirst For Each c In Me.ãÔÑæÈÇÊ.Controls If Not rs.EOF Then c.Caption = rs(1): c.Tag = rs(0): c.OnClick = "=ramhan()" rs.MoveNext Else c.Visible = False End If Next