Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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.
Join the community of 500,000 technology professionals and ask your questions.