Search results

Try exporting the query or table the report is based on rather than the report itself. IMO

You can place the following in an unbound text field to get the first name.... =Left([YourTextField],InStr([YourTextField]," ")) And =Mid([YourTextField],InStr([YourTextField]," ")) to get the last Name. IMO

Not sure what you mean, do you want to separate the words a put them in individual fields? IMO

This may help. IMO

Make sure you have a reference set for 'Microsoft DAO 3.6 Object Library'. Open a form in design view, goto View >> Code..... Tools >> references and select it from the list. IMO

For the button you will need to create a macro and drag it onto the menu bar. IMO

Re: Currently selected text box? I'm not sure how, or even if it is possible to restrict the spell checker. Sorry. Rather than creating buttons for the zoom, place the code in the double click event of the text box... Private Sub YourTextBox_DblClick(Cancel As Integer) DoCmd.RunCommand...

How many text boxes do you need to fill from the popup? IMO

In the Click event of your button... DoCmd.OpenForm "NameOfYourForm", acFormDS IMO

How about posting a "thank you" now and again! http://www.access-programmers.co.uk/forums/showthread.php?s=&postid=222046#post222046 http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=50717 http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=49974 IMO

In the DoubleClick event of the field you want to Zoom.. DoCmd.RunCommand acCmdZoomBox or if you really want a button, this in the OnClick event... Me.YourTextBox.SetFocus DoCmd.RunCommand acCmdZoomBox and in the OnClick event of the spell check button DoCmd.RunCommand acCmdSpelling IMO

I'm not sure but could this help? Sub AutoOPen() Dim strActivePrinter As String strActivePrinter = Application.ActivePrinter ' Change printer Application.ActivePrinter = "\\Server02\blah blah" 'Your print command here ' Reset printer to original...

Here you are. The best way to prevent your second question is to disable the mouse scroll. IMO

It works fine for me. Post a stripped down version of your db and I'll take a look. IMO

I think this link will be helpful for you. Look at "Conditional select cells" and download ASAP Utilities. IMO

Re: caption ?? A label. I think you may have to put this in the OnTimer event Me!lblCurrentTime .Caption = Format(Now, "hh:mm:ss") IMO

Sorry, forgot this bit, make sure you set the "Format" for each Date field to "Short Date" that way it's not possible to enter anything but a correct Date. IMO

In the Before Update event of the "EndDate" field... Private Sub txtEndDate_BeforeUpdate(Cancel As Integer) If Me.txtStartDate > Me.txtEndDate Then MsgBox "The Expected finish Date Can't be earlier than the Start Date" DoCmd.CancelEvent End If End Sub IMO

I think this would have been better posted in the General forum, but here's one way to get the result you'd like. Create a text Box on your form, set the back style and border style to transparent and the Width/height to "0.00". In the Click event of the fields you'd like to highlight put the...

If MsgBox("Do you wish to save the changes?", vbYesNo, "Save?") = vbYes Then DoCmd.RunCommand acCmdSaveRecord Else DoCmd.CancelEvent End If