Search results

Yes, I am using 64-bit Access it works in 32bit without change. The treeview control is filled the same as the original forms in-memory recordset. The data is written back to the user selections table when the ok button is clicked by going though the tree looking for newly checked and un-checked...

There is no reason to store the data as a delimited list. Store it normalized and display it as delimited text. I started with MajP's sample db and replace the list with a treeview control. The sample form has 2 "MVF", controls displaying the selections as a list and the other fill's the combo...

I was stepping though your code. In clsControlLayout you are setting PixelsNamPaneHeight in the section commented for getting the tab stripe height. The set it again with out referencing the 1st value in the section for navigation pane. Is this an error or am I missing something?

NauticalGent, the good news about turning 60 is that in only 2 years you can purchase a lifetime national park pass:unsure:

Attached is a variation of your sample database. I it makes the FakeMVF_Control form more general. It handles any selection lists and user selections as long as the record set is in the correct order and type. The calling form creates 2 record sets to be used by MVF form. See 2 new modules and...

I added a empty combo box control to better emulate MVF. Using the KeyDown and Click events to open the FakeMVF_Control and the Form_Current event to show the 1st selection in the control. Private Sub cbAdRemove_KeyDown(KeyCode As Integer, Shift As Integer) If Not IsNull(Me.UserID)...

I made 2 changes to your example to open the FakeMVF_Control over the button that opens it from frmUsersADO. frmUserADO, pass the Left and Top though OpenArgs Private Sub cmdAddremove_Click() DoCmd.OpenForm "FakeMVF_Control", , , , , acDialog, _ Me.Form.WindowLeft _...

I did some cleanup on frmdInputBox to tighten up width by removing some RTF codes before calculating the space requirements. Msg_Box("<div align=center>HI</div>", vbOKOnly, "Hello World") Input_Box("Update PO amount" & vbcrlf & _ " Current <strong><u>Sell</u></strong> : "...

If any chance this will be done multiple times per JobID, add a loop to create revisions. Dim Filename As String Dim FilePath As String dim i as long do Filename = "Quotation" & " " & "M" & Format(Me.JobID, "00000") & _ iif(i=0,vbnullstring,"R" & i) i = i + 1...

frmdInput_Box had an un-needed validation on both the rtf and plain text boxes. For some reason they work on x64 but not x32. I am attaching a corrected database. Validations from the reference text box control is applied the Input_Box control after replacing the control name. I must have saved...

You are correct sir🤷‍♂️ I was looking for InputBox defined somewhere.

This is my version of an input box form and function to replace the built-in InputBox. Features RTF prompt with resizing to fit provided text. Typed return value (Text, RTF, Integer, Long, Double). Customizable button captions. 3rd button (Other). Direct fill of text box control on calling...

Thank you all for your input. I changed the font for the prompt to the fixed width font Consolas to allow using spaces to simulate tabs. The following example allows the user to enter an updated purchase order amount, providing them with current status of PO invoicing and job totals. This is a...

I enable wheel mouse using a variation of Allen Brown's DoWheelMouse function. Most of my users want some wheel mouse functionality for scrolling records on continuous forms. I think the only way to get tabbing of text in the prompt, is to use the Edge control to display as HTML instead of RTF...

I have an input box function that takes the same input as the built-in function. The function controls my input box form opened as a dialog box. The function also takes optional parameters allowing control of the button text, the addition of a 3rd button and formatting the input for Text, RTF...

I have tried the following. "Invoice amount:" & vbTab & amount No space between : and the amount "Invoice amount:\Tab" & amount Output: Invoice amount:\Tab followed by the amount. I am trying to lineup multiple amounts for the invoice, total, paid, due etc. in an information dialog...

I am displaying static text in an un-bound RTF control on a message box form. Is there anyway to imbed tabs in that text built up with VPN?

If you are looking for the current month, use Month instead of DatePart. (Year(tblAppointmentList.AppointmentDate)=Year(Date()) And Month(tblAppointmentList.AppointmentDate)=Month(Date())) "ww" in DatePart returns the current week, not month. As for the error you many need to escape the quotes...

True, the PARAMETERS section is not needed, but I like to be complete. With defined and typed parameters, passing improper types to the parameters will fail in the code instead of during the query execution. With CurrentDb.CreateQueryDef(vbNullString, _ "INSERT INTO tblTransactions " &...

I always try to use parameters, they allow me to lock down the types and values being passed to the query. ' Using Value for TheName parameter to allow Null With CurrentDb.CreateQueryDef(vbNullString, _ "PARAMETERS " & _ "[AccountID] Long, [TheName] Value, " & _...