Recent content by ReluctantDataGuy

Just FYI: You can also use this: Me.Text1 = Replace(Me.Text1, " ", " ", 1, -1) If you have problems with people entering 3 or more spaces, you can just put the above code in a loop and it'll squish any number of consecutive spaces down to one. Of course, you'd need a terminating...

Is there a way to change the caption of a label in a report's PageHeader section while the report's ReportFooter section is being formatted/printed? My report's ReportFooter spans multiple pages. I want the label in the report's PageHeader section to be different for pages in the report's...

THANK YOU CAUTIONMP!!! I didn't want to have to store a dummy database to hold the SummaryInformation so using your example as a starting point, I figured out that I could store the binary string in an OLE Object type field in a table in my database. The user clicks a button called [Compact...

That looked promising, but its for Word and I need the code for Access. I played around a bit but so far haven't found anything equivalent in Access. Thanks! BobK

I need to replace the File Summary Information Title after its removed by the compact/repair process in MS Access. I need to set the Title to "MyAppName 3.52" I've looked through FSO, etc but its all over my head and I need a quick solution. I'm hoping someone has a bit of code that will...

Is there a way to prevent MS Access from displaying the Save dialog after a user makes formatting changes - such as column widths - to a query? Note that I use "DoCmd.OpenQuery QryName, acViewNormal, acReadOnly" but it only prevents data changes - still allows formatting changes and displays...

Safer to use VBA.Environ("UserName")

You might consider linking or embedding an MS Word OLE object. Pro: You get full text formating functionality Con: You lose the ability to search the text easily

I need the same functionality available in the (internal to Access) Tab Order form. I need to present a list of items in a List Box and allow the user to drag items up and down the list, the same way you can drag field names up and down the list in the Tab Order form. I can't use third party...

Try not using AutoNumber. Its not as difficult as you might think to increment them manually, and get the result you're looking for. When you create a new record, set its key field value to: Me.KeyFieldName = DMax("[KeyFieldName]","TableName") + 1 If you subsequently delete the new...

You need to create a form object for each instance of a form you want to open. That's where the "New" keyword comes in. Example: Private Sub OpenFormTwice() Dim Frm1 As frmYourFormName Dim Frm2 As frmYourFormName ' Note: You could say "Dim Frm1 As Form" ' but the above is supposed to...

Quick and dirty response. You'll need to adopt this to your own usage. SumVariable = SumVariable + CDbl(IIf(InStr(1,[FieldName],"<") > 0, Mid([FieldName],InStr(1,[FieldName],"<") + 1),[FieldName])) If the above isn't exactly right, see help on the InStr, Mid, and IIf functions. If you...

For protecting sensitive data from prying eyes, I have a technique that is ( I think ) simple yet fool-proof. I've had some very smart people try to hack it and they couldn't find a way. It does require a workgroup, but the workgroup is only for database design changes. Users don't have to...

Here's a trick I found using Send Keys. After a command that opens a query, add the following: For X = 1 To qryDef.Fields.Count SendKeys "%oc+{TAB}{ENTER}{RIGHT}", True Next X SendKeys "{UP}{F2}{HOME}", True Note that this code counts on the Format, and ColumnWidths menu...

I have a multi-record form and the records on the form represent physical objects, each of which has a width that is stored in a field called "SectionWidth". I need to have an object for each record that changes width based on the value in the SectionWidth field for that record. Of course...