sTemp, tvwChild, DLookup("Tagname", "MASTER", "ID = " & !Tagname), DLookup("Tagname", "MASTER", "ID = " & !Tagname) If sTemp = "" Or sTemp = " " Then sTemp = "MISC" If IsNumeric(sTemp) Then sTemp = "_" & sTemp If IsNumeric(element) Then element = "_" & element If oData.RecordCount = 0 Then : Exit SubĪrr_distinct = oData_distinct.GetRows(oData_distinct.RecordCount) & " AND = " & cbxPropertyFilter01, dbOpenSnapshot) Set oData = CurrentDb.OpenRecordset("SELECT, FROM tblData WHERE = " & cbxAttributeFilter01 _ ![]() & " AND NOT Property = " & cbxPropertyFilter01, dbOpenSnapshot) Set oNone = CurrentDb.OpenRecordset("SELECT FROM tblData WHERE NOT Attribute = " & cbxAttributeFilter01 _ & " AND Property = " & cbxPropertyFilter01, dbOpenSnapshot) Set oData_distinct = CurrentDb.OpenRecordset("SELECT DISTINCT FROM tblData WHERE Attribute = " & cbxAttributeFilter01 _ If IsNull(cbxAttributeFilter01) Or IsNull(cbxPropertyFilter01) Then Exit Sub I have tried echo and me.painting but figured my actual for loops need to be looked at for optimisation - wondering if there is a better way to cycle through a Recordset and populate a Treeview ? ' Update the treeview ![]() I have the following function that causes a significant visual jittering and lag in my access database - This is a treeview selection based on data in a table (tblDATA) with the fields:
0 Comments
Leave a Reply. |