I have an events log that my employees use daily to record what gets done.
I would like to have a button bring up a second form, that gives options for 'canned' entries. Examples of a Canned entry would be: "Closed for Lunch" or "Primary Staff meeting".
Currently, I have a database that offers these buttons at the bottom, but they take up an excessive amount of room and I want to instead call them up by using a button.
My issues are 2 fold:
1. On my current database (I'm scrapping it and starting over), the buttons are labeled automatically by a value in the table containing the entries. Table includes these fields: [ID], [Entry text], [short text]. For some reason, this code isn't working:
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]
The second piece is what is the easiest way to get the text from the table to post? a button that says "USE THIS"?