Another Input Box replacement

[RonPaii]

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 form.
• Input verification.

Attached is a sample database with sample form opening on startup demonstrating calls to Input_Box.

Note: For some reason the built-in InputBox is not available on this DB. It is available on my production database.

 

[sonic8]

For some reason the built-in InputBox is not available on this DB.

I guess, because you named the project "InputBox" and thus created a name conflict.

 

[RonPaii]

You are correct sir

I was looking for InputBox defined somewhere.

 

[Gasman]

I get this for Plain and RTF?
Tried Confirming also with Yes and same error.?
Numerics do not give this error.

 

[RonPaii]

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 frmdInput_Box during testing.

 

[Gasman]

Thank you. I can confirm that works on my 32bit system.

 

[RonPaii]

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> : " & RightJustify(format(22458,"$0,0.00"),12) & vbcrlf & _
" Current <strong><u>PO</u></strong> : <u>" & RightJustify(format(20058,"$0,0.00"),12) & "</u>" & vbcrlf & _
" Remaining : " & RightJustify(format(22458-20058,"$0,0.00"),12), _
"PO: 045AV021", 20058, BOXTypeDouble,,, _
"Update","No Change","Sell","Change Job Sell",True,,vbDefaultButton2)

From a production DB

The database was uploaded un-compiled.