Search results for query: *

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

We've used something similar to this in the past using the Before Update property Private Sub Form_BeforeUpdate() Dim ChkFields As Boolean ChkFields = False If Not IsNull(Me!B) Then If IsNull(Me!B1) Then ChkFields = True If IsNull(Me!B2) Then ChkFields = True...

Better yet - and the simplest method of all...... I want the sum of the "remaining months" to be displayed. Each month, I replace my forecast data with the actual data for the month. All I need to do then is sum the forecast and actuals for the whole year then subtract the year to date actuals...

This one sounds like your form is bound to the employee table. As the EmployeeID is your primary key, if the form is bound to this table, then selecting an employee is effectively trying to re-add this record to the employee table. A couple of things to look for: - that your recordsource for...

Macropod, Thanks for your advice here. I came up with a user-defined function last night however. Function EvaluateForecast(RowNumber, DataCell, SourceSheet) Dim EvaluateText EvaluateText = "SUM(" & SourceSheet & "!" & DataCell & _ RowNumber & ":" & SourceSheet & "!O" &...

Hi, Does anyone know (programmatically or otherwise) how to use a lookup to determine which cells should sum? The circumstances are: These are financial reports where the user enters which financial period the reports are being run for. The forcasting for the remainder of the year needs to...