Search results

Ahhh!! Thank you so much!

at the top of frmDetail: Public WithEvents tvw As TreeviewForm 'Private WithEvents subFrmItem As Access.Form 'Private WithEvents subFrmLoc As Access.Form Public FAYTitems As FindAsYouTypeCombo

yes it's frmDetail. Now I'm not clear on what you're saying... this is the main form code: Public Sub InitTree() Dim nd As Node Dim strQry As String ' Debug.Print NodeQuery If Me.TVWSort = 1 Then strQry = "qryNumeric" Else: strQry =...

@MajP I need to update the branch after adding an item: Public Sub UpdateBranch() Dim tvw As TreeviewForm Dim ParentNode As Node Dim newNode As Node Dim SelectedNode As Node Dim Key As String Set tvw =...

Oh! The things I don't know! Actually just strCriteria works. Thank you so much.

Of Course! Why couldn't I think of that? Thank you! I tried setting the recordset from the table and then bookmarking the .last modified before requerying the form but I couldn't get a valid bookmark that way. Why is that?

What I need to know is how can I grab the record ID right after the ExecuteSQL.. whether it's a new record or an update of a previous record.

No, that's an ID that connects it as a subform. It's a parent ID and there are many subrecords. The record ID is created on the INSERT or it's located on the UPDATE

I know how to get the ID (DMax) of a new record but I fill in (Update) unused records that aren't in the form recordset until the checkbox inuse is positive. I'm stumped as to how to get the ID if it isn't a new record. These records aren't included in the forms recordset until the table is...

Be sure your sins will find you out! UPDATE tblItems SET ITPath = '1 > 11 > 2', Item = '(New)', InUse = True WHERE flocID = 12 and DocNo = 1;

Now I've done a complete circle and am back where I started. :rolleyes: strSql = StringFormatSQL("UPDATE tblItems" & _ " SET ITPath = {0}," & _ " Item = '(New)'," & _ " InUse = True" & _...

Aargh! "1 > 3" ! and "(New)" ! Well... getting closer strSql = StringFormatSQL("UPDATE tblItems" & _ " SET ITPath = """ & strITPath & """," & _ " Item = " & """(New)""" & "," & _ " InUse = True" & _...

Ah! I KNEW you'd know! Thanks! So Here's my update : strSql = StringFormatSQL("UPDATE tblItems" & _ " SET " & StringFormat("ITPath = {0}", strITPath) & "," & _ " Item = " & "(New)" & "," & _ " InUse =...

When a variable is a string, the following adds quotes to it: strSql = StringFormatSQL("UPDATE tblItems" & _ " SET ITPath={0}," & _ " Item={1}," & _ " InUse={2}" & _ "...

Yes! exactly. Thank you so much.

@MajP Me again :rolleyes: What am I doing wrong here? Public Sub UpdateSortAndLevel() 10 On Error GoTo Err_Handler Dim i As Variant Dim LevelSort As Integer Dim strSql As String Dim nd...

Whoa... @arnelgp!!!! You did my work for me and it works like a charm. Thank you so much. When I compare code I run it side by side in a spreadsheet. How does everyone else do this? Surely there's some secret here.

This is a filing system. Numerical items are culled, "inUse" is unchecked and the record no longer shows in the list. When a new item is added, it uses the first culled number or is added at the end of the list. It has worked for years but I recently upgraded to Majp's treeview and I'm...

eh... it's a subform, so it's limited records. I want to find any empty records and fill them in. I know you don't approve but the DocNo is not the ID. It is only a numerical list within certain bounds. I'll go back and rethink it. I wanted to do it from a module because it gets called from 2...

I have the following code: Public Sub AddItem(ID As Long, strITPath As String) Dim rst As DAO.Recordset Dim strSql As String Dim lngDocNo As Integer Dim bkmrk As Variant strSql = "SELECT * from tblItems WHERE flocID = " &...