Search results

@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...

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 = " &...

@MajP Because I'm looking for an address and the nodetext is very lengthy, I changed the NodeText to NodeLevel. That's not right either. What I'm looking for, and I think it's in E2E... sort of Each item has a DocNo that will be the ending number. But the LOPath of the locations should be: Top...

@MajP When loading the treeview it completes but breaks at the last record Private Function FindRoot(ByVal nodX As Node, tvw As TreeView) As Node On Error GoTo ErrHandler Dim n As Integer n = nodX.Index Debug.Print nodX.Index While n <> nodX.Root.Index n =...

@MajP Some years ago I used your treeview to organize some file cabinets. I had a table of DRawers, a table of DIvisions, a table of FOlders, and a table of ITems. Then I used a union query for the treeview. Each item had an address of...

I had V-Tools installed and I was getting an error so I uninstalled it. Now I'd like it back again but every time it fails because of the following Error 5: lrc = api_RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch) If lrc <> ERROR_NONE Then Error 5 Irc returns the value of 2...

@MajP So I'm combining your ItemGenie with my own thing and getting all fancy and such... and I added fields to the application settings and created more formatting: (the orange fields will be hidden) . But when I got to the format treeview I realized there is no tvw property for nodelevel...

@Pat Hartman I'm trying to use Pat's label printing code. When I open the report from a form I use DoCmd.OpenReport strReport, acViewNormal, _ OpenArgs:=Me.Name & "|" & Skip The report immediately starts printing and does not hit the Open code in the report. Private...

is there a way to insert blank rows into a query that printing labels can start in any label? I presently insert into a table and then insert blank rows but this seems like I may be missing an easier way.

I feel like I'm seriously overlooking something simple here. In the attached sample 3qryTransTotals has a field CAmount that is carried to 5qryRegister. In the 5qryRegister it loses its decimal amounts. This leaves the calculated field Remaining with various cents. All fields are Currency types...

I'd like to insert a record: strSql = "INSERT INTO tblTransactions" & _ " ([fAccountID]" & _ ", [fNameID]" & _ ", [CkDate]" & _ ", [Num])" & _ " VALUES" & _ " (" & Me.cboAccount.Value & _ ", " & frm.cboFullName.Value & _ "...

Probably an oft repeated question but I can't seem to find the right question to get an answer... I have FormA based on a calculated query. When I call FormB using FormA.Filter, the filter uses FormA query field name which doesn't work on FormB query field names even though they are both using...

I have a form of Accounts with a subform of register. The subform is Parent/Child Account number. I'd like to tie the register background color to the account color. I can't figure out which event to use. Change of account triggers the Parent/Child connection. So I tried the Current Event...

@MajP posted this function for retrieving values from popup forms: Public Function getValueFromPopUp(formName As String, PopUpControlName As String, Optional MyOpenArgs As String = "None") As Variant 'FormName: Name of the popup form 'PopupControlName: Name of the control on the pop...

I have a hidden button that calls a calculator (with a shortcut key). There are several fields on one form that use this button so I need to know the field name that's calling the button. Me.ActiveControl.Name returns the hidden button. How do I get the name of the field that is actually...

I have a combobox that I want to limit dates in a listbox: Function DateCalculation(IDate As Integer) Select Case IDate Case 48 'All Dates [CkDate] Case 49 'This Month Year([CkDate]) = Year(Date) And Month([CkDate]) = Month(Date) Case 50 'Last...

I want to find a record that meets several criteria. SELECT tblLocation.*, tblLocation.fItemID, tblLocation.InUse, tblLocation.Parent FROM tblLocation WHERE (((tblLocation.fItemID) Is Null) AND ((tblLocation.InUse)=False) AND ((tblLocation.Parent)="DR2")); This query returns 15 available...

I have a module with a simple routine to position the form to the last record Public Sub RepositionForm(frm As Form) 10 On Error GoTo RepositionForm_Error Dim strWhere As String 30 strWhere = "LocID = " & lngLoc 70 frm.Requery 80 With frm.RecordsetClone...

I'm using Majp's MultiControl Search to create a search form. My object is to filter a subform with numerous fields. 1. I have a search box to type in whatever I'm searching for. 2. A listbox with a list of fields to search in... $25 in Amount, Jones in Name, etc. 3. A listbox with the various...

I downloaded the popup calculator Majp posted (who knew there was such a thing?). I like it but now I want to get fussy: 1. I set the equal button to default so I could press enter without it closing so I can see what the value is before accepting it. Doesn't work 2. Why doesn't the calculated...