Make Your Microsoft Dynamics Investment Count & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.
Private Sub FillOptions() Const NUMBUTTONS = 16 Dim seldata As String Dim num As Integer Dim dbs As Database Dim label As Recordset Set dbs = CurrentDb() seldata = "SELECT * FROM [tbl_Canned Entries]order by [ID];" Set label = dbs.OpenRecordset(seldata) While (Not (label.EOF)) Me("toggle" & label![ID]).Caption = label![Short Text] label.MoveNext Wend label.Close dbs.Close End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|default value of combobox||25||70|
|Ranking Students in Ms Access based on given Criteria||5||61|
|How to create and use encrypted columns in SQL 2005?||15||64|
|How to build a logic for passwords according to initials?||13||56|
Join the community of 500,000 technology professionals and ask your questions.