Search results

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, " & _...

I may be late to this thread, but I got this simple code from the spreadsheet guru blog which works well. ' Copy StoreText if not emplty to clipboard and return vbnullstring ' Return clipboard text if StoreText is empty ' Early bind using ref to Microsoft HTML Object Library Public Function...

I graduated from UW Oshkosh with a computer science degree in 1985. Since then, I have been working in the family business handling ID, mechanical and electrical engineering and compliance. My professional experience started with DOS based programs using C, and AutoLisp to automate AutoCAD, then...