Search results

No lines are highlighted, I only get the message box IMO

Thanks for your reply Mile, I get a 'Type Mismatch' error from Access and nothing is deleted from the spreadsheet :confused: IMO

You can use this code to send a snapshot if you are using Outlook... Private Sub YourButton_Click() Dim EmailApp, NameSpace, EmailSend As Object DoCmd.OutputTo acOutputReport, "Report1", "snapshotformat", "C:\Temp\Report1.snp" Set EmailApp =...

DoCmd.SendObject acSendReport, "CanInvs", "snapshotformat", "email@wherever.bla" IMO

Think I spoke too soon! If I delete 1 supplier from the spreadsheet from within the DB all works fine. However, if I delete more than 1 supplier the sheet does not save and close. Have you any idea why? The code I'm using is below. Thanks in advance. IMO Sub sCopyRS() Dim objXL As...

Thanks Ian, that solved it! DTS runs fine now. How odd though, having to delete blanks for the package to run properly :confused: still, works now. Thanks for your help once again IMO

If you post a stripped down version of the DB I'll take a look for you IMO

Here you are... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Date_Ordered = Me.Todays_Date Then Me.Date_Ordered.FontBold = True Me.Date_Ordered.ForeColor = vbRed End If If Me.Date_Ordered < Me.Todays_Date Then Me.Date_Ordered.FontBold...

Is the Combo unbound? IMO

You've already used "=" but you can use "<" or ">" like... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.YourDueDateOfMaterialField = Me.YourTodaysDateField Then Me.YourDueDateOfMaterialField.FontBold = True Me.YourDueDateOfMaterialField.ForeColor =...

Me too :) IMO

Ok, Open the report in design view, Goto View >> Code, copy and paste the code I sent under the line " Option Compare Database" not forgetting to change "YourDueDateOfMaterialField" and "YourTodaysDateField " to the names of the relevent TextBoxes. IMO

What you need to do is open the VB Window. Next to the Event Procedure (to the right) is a small button (....), click on it to open the window. Type in there what Mark sugested, ie Private Sub YourCombo_AfterUpdate() Me.NameOfYourSubForm.Requery End Sub Of course change "NameOfYourSubform"...

Try this... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.YourDueDateOfMaterialField = Me.YourTodaysDateField Then Me.YourDueDateOfMaterialField.FontBold = True Me.YourDueDateOfMaterialField.ForeColor = vbRed Else...

Hi Fornatian, Yes, if I go to the bottom of the range and hit Ctrl + the up arrow it lands on the last record. The problem is, the last row of data will change every time the DB is opened, so, without the user doing a thing outside the DB and without Excel opening, I need the VB within the DB to...

Still no luck :( any other ideas?? IMO

Thanks Fornatian, I'll let you know what happens. Cheers IMO

Does anybody know how to select all the blank lines in an Excel spreadsheet that come after the data and delete them? This may seem like a stupid question (probably is) but here's the story. I'm importing sheet2 of the spreadsheet into Access, deleting certain rows and then exporting back to...

In the OnOpen event of the form put this code... Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub IMO

Thanks, I'll take a look IMO