Recent content by grantwilliams

Hi Zameer, Thanks for your reply. I've done some reading on this and also looked into it on the computers at work. Unfortunately, MODI has been disabled on the computers at work. I'm restricted to using only what programs are already on the machines, hence I'm looking to embed each machine's...

Hi v5652, I have the same problem if I open the spreadsheet directly. I don't get the problem if I open the spreadsheet from Access with the following code: Private Sub ExcelButton_Click() Dim MyExcel As New Excel.Application Dim XLDoc As Excel.Workbook Set XLDoc =...

Hi v5652, If you're opening the same Excel file every time, put this code in "ThisWorkbook" in the VB Editor in Excel. Private Sub Workbook_Open() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub Cheers, Grant

Hi all, In an effort to try to reduce the amount of paperwork we are handling, I'm looking to integrate our online fax with our cash receipting database. Our faxes are stored as multi-page TIFF files on a network drive. My plan is to have Access cycle through all of the files in the directory...

Greetings all, Long time VBA programmer, first time VB6 programmer. :P I'm trying to reset a form without unloading and reloading it. I've tried this before however this seems to cause havoc with my five, yes, FIVE, timers. The timers run to monitor various inputs on a USB device and all have...

Hi adamstuff, If I understand you correctly, could you use: Private Sub SubmitButton_Click() Forms!MainForm!Subform.Form!IDField = Forms!MainForm!IDField 'Other code in here End Sub Hope I've understood correctly! Grant

Hi all, I'm trying to build a custom USB device which I need to place approximately 12 metres away from my laptop. Trouble is that the USB standard only allows 5 metres of cable and I'm not in a position to be able to use extension cables (with joins in the cables every 5 metres) nor have...

How are you using the combo boxes to filter the query? Are you using VBA to modify the recordource? I've done this previously using the AfterUpdate event and two functions named SetCriteria and AddToWhere. Basically, the AfterUpdate calls the SetCriteria function, which in turn calls the...

Not sure about your second and third points here, but certainly for your first point, could you set up a query which only picks up the data from the detail section, then output this to Excel?

Are you saying you want to put page breaks into the Detail of the report? There is a button on the design toolbar for this. Otherwise, you can use your section properties to force a page break before and/or after each section.

One long way around this would be to create custom record selector buttons on your form and disable the standard record selectors. This would be a long way around the problem, but at least you could introduce validation into your code. e.g. Private Sub Form_NextRecord_Click() If...

I think PCLewis is complicating this one a little. I'm assuming you're entering the date into a text box? The way I do this is to set an input mask of '00/00/00;_' (take out the inverted commas). The input mask is on the Data tab of the text box properties. Doing this will accept the user...

If your sub-form only contains one record (that is each distribution amount is not a separate record), then you might be able to try something like. Private Sub Form_BeforeUpdate(Cancel as Integer) Dim DistTotal DistTotal = Forms!Main!Sub.form!Field1.Value +...

Could you insert a sub-form into the page and assign the recordsource to the subform? Or will this complicate the issue further? Grant

OOPS! I left it idle a bit long and PCLewis beat me to it! Grant