Search results

Using some of the code from a past example from Mile, Ive messed it about a bit and come up with this. IMO

You'll have to code the calendar itself telling it to disable the buttons with a greater date than today when it's selected for the "txtReferralReceivedDate" field. IMO

You could try something like this in the LostFocus event of your TextBox Private Sub YourDateField_LostFocus() If Me.YourDateField > Date Then MsgBox "Your Message" Me.AnotherControl.SetFocus Me.YourDateField.SetFocus End If End Sub IMO

Glad you got it working IMO

I created a query that counts the records between the dates entered on the form, something like... SELECT Count(tblTheDate.TheDate) AS [Count] FROM tblTheDate WHERE (((tblTheDate.TheDate) Between [forms]![frmTheDate]![TxtDate1] And [forms]![frmTheDate]![TxtDate2])); and called it qryCountDate...

Have a look at the quick example I've done for you IMO

I don't think it's possible but you can create your own buttons with text on them and remove the standard buttons by opening the form in design view, goto the forms properties and select navigation buttons = No IMO

Do you mean the forms navigation buttons or buttons you have created? IMO

In the OnClick Event of your button... Private Sub YourButton_Click() DoCmd.RunCommand acCmdUndo DoCmd.Close End Sub IMO

Or use this code... Private Sub YourButton_Click() Dim EmailApp, NameSpace, EmailSend As Object Set EmailApp = CreateObject("Outlook.Application") Set NameSpace = EmailApp.getNameSpace("MAPI") Set EmailSend = EmailApp.CreateItem(0) EmailSend.To =...

Thanks Fornatian, I'll give it a go. IMO

OK, I'm now getting the error: Run-time error '1004' Method 'Range' of object '_Global' failed. And the following code line is highlighted lngFirstBlankRow = Range("A1").End(xlDown).Row + 1 Any ideas?? IMO

Create a link to the spreadsheet in Access IMO

ISP probs Mich? IMO

LOL :) I think you're right Tich. :p :D IMO

OMO ? :confused: To print each group on a separate page, set the ForceNewPage property of the group header to Before Section or the ForceNewPage property of the group footer to After Section. IMO

To print each record on a separate page, set the ForceNewPage property of the detail section to After Section. IMO

No, just followed through :o :D I'll give that a try in the morning, see where it errors. Ive got to get to the pub now, my head feels like it's gonna explode! Cheers IMO

But if you do have any other ideas in the meantime, please let me know, I think I used all three of my brain cells getting this far! :D IMO

Thanks for giving it a shot, I'll keep trying and let you know the outcome. Thanks again for your time. IMO