Recent content by Laurentech

I remember seeing an article about this on http://www.mvps.org/access/toc.htm Look for 'Supress Printing Dialog' or something like that. Larry

I've been looking at this the last couple of days myself, and the only way I have found to disable the security warnings is to set macro security to low - either through the Access menus or by writing a registry key. Larry

Yes it will. It will be seen as a HID - human input device - and will work as your quote above says. Larry

"SELECT WHSender.Sender, WHSender.Phone FROM WHSender WHERE (((WHSender.SenderID) Like " & forms!GeneralForm!ShipmentData.SenderName & "));" You have to separate the variable from the select statement so it can be evaluated properly. Larry

It sounds to me like your information is overrunning the page margin and causing it to run on to the next page. Try changing your margins or shortening the text boxes on the page. Larry

You could have two reports stored in the db. Just do a copy and paste of the one you've got and name it something different. Then with the second report in design view click on View, Properties. In the drop box for the Record Source select your second table. Larry

Post a screen capture of the report in design view. Larry

Is this an unbound text box? You could put some code in the OnCurrent event to clear it when you go to a new record - something like me.mytextbox="" Larry

I would probably use a separate unbound text box for the search term, then in the Keypress event change the filter of the combo box to something like me.mycombobox.filter= "*" & me.textboxname & "*" me.mycombobox.filteron=true This first line will set the filter to *Black* for example, which...

To delete a user from the workgroup file programatically: Dim wks As Workspace Set wks = DBEngine(0) 'DELETE USER FROM WORKGROUP wks.Users.Delete UserID UserID is a string variable containing the username you want to delete. Larry

Oops - forgot the single quotes: me.filter = "Facility Like '*" & nz(forms!frmMain!txtFacilityName,"") & "*'" me.filteron=true The last bit after the * is a single quote ' followed by a double quote ". I think that should work for you. Larry

Try: & vbCrLf Larry

Try this: me.filter = "Facility Like * " & nz(forms!frmMain!txtFacilityName,"") & "*" me.filteron=true I always use code like this in the Open event of the report. Never tried Activate. Larry

You're welcome! Larry

Try Me.Filter = "[group-DSN] = " & GroupID Larry