If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Calling Control Info from Table
Not sure I have the title right here, but here goes
Thanks to an earlier post I now have my Form with many buttons beautifully coloured etc. However as I update the information the data on screen becomes dated ... I have toyed with the idea of storing information about Control Objects in a table alongside the SQL that provides the value and have written a small if loop to attempt to marshal this function however am clearly going somewhere wrong Dim rstData As Recordset Dim CtrlSource As Control Dim Executable As String strSQL = "SELECT * FROM tblControlSQL WHERE (((tblControlSQL.DATASET)='Employee'))" Set rstData = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) While rstData.EOF = False With rstData Set CtrlSource = .Fields("Name") Executable = .Fields("ExecutableSQL") CtrlSource = CountRows(Executable) .MoveNext End With Wend I had hoped this would update all buttons and text boxed called from the SELECT statement viz Forms!btnParttime.Caption = *the result of the SQL associated in the table Maybe Im way of the mark here .. Can anyone tell me if this is possible or where i should look for an alternative Many Thanks |
#2
|
|||
|
|||
Calling Control Info from Table
One thing that pops out is your CtrSource variable. You have it dimmed as a
control, but your trying to set it with a string. Try: Set CtrlSource = Me.Controls(.Fields("Name")) Then, I'm not sure what your CountRows function does, but I think you want to populate the control's controlSource from the table. If so, this might work: CtrlSource.COntrolSource = .Fields("ExecutableSQL") Barry "Alan" wrote: Not sure I have the title right here, but here goes Thanks to an earlier post I now have my Form with many buttons beautifully coloured etc. However as I update the information the data on screen becomes dated ... I have toyed with the idea of storing information about Control Objects in a table alongside the SQL that provides the value and have written a small if loop to attempt to marshal this function however am clearly going somewhere wrong Dim rstData As Recordset Dim CtrlSource As Control Dim Executable As String strSQL = "SELECT * FROM tblControlSQL WHERE (((tblControlSQL.DATASET)='Employee'))" Set rstData = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) While rstData.EOF = False With rstData Set CtrlSource = .Fields("Name") Executable = .Fields("ExecutableSQL") CtrlSource = CountRows(Executable) .MoveNext End With Wend I had hoped this would update all buttons and text boxed called from the SELECT statement viz Forms!btnParttime.Caption = *the result of the SQL associated in the table Maybe Im way of the mark here .. Can anyone tell me if this is possible or where i should look for an alternative Many Thanks |
Thread Tools | |
Display Modes | |
|
|