Posts by A9192Shark

Re: Continuous forms

A little difficult to follow the question until the last sentance...

If you are using a continuous form then you can not change the format of a control such that each row appears differently. It is a problem with continuous forms. Use a datasheet with conditional formatting- although you state you do not want this.

HTH,

A.

Re: Datasheet Subform - Change the width of a column autofit contents

Just did a google search and found two articles relating to changing the column width. The first was this one (OZGrid gets returned by Google) and the second was here http://msdn.microsoft.com/libr…dnsmart01/html/sa01b1.asp

HTH,

Alan.

Re: New Project Start

As I am not sure how you will be looking to update these it is difficult to say.

You will need to decode the date columns and run an update of the query. I recorded this code using teh macro recorder. Alternatively you can set the query to update when the workbook is opened.

Range("C3").Select
    ActiveWorkbook.XmlMaps("Information_Map1").DataBinding.Refresh

If you need to schedul events then do a search of this site as it is a frequently asked question.

Sorry to be vague, I am very busy and will not be able to provide consistent support this week

Good luck,

Alan.

Re: Mathematical range operations in VBA

I think that you want
D15=C15/1000
D16=C16/1000
etc

Range("D15")= Range("C15") / 1000
Range("D15:D115").Filldown

Note that this will put the values in and not the equation.

HTH,

Alan.
PS Is there a reason this can not be an if statement in the cell?
A.

Re: Formula to calculate avg/wtd avg on a subset of a list

Here is one simple way that you can do it.

Note that I have removed the prefix of # to make data entry easier.

I have used a dynamic named range to allow the sub set list to be entered and grow as required.

There are other possible solutions that will depend on how you wish to select your sub set. I have assumed that you will simply type (or copy and paste) the numbers in.

An alternative method would be to use VLookup to return teh information from the main data set for the sub set and then work on that.

HTH,

Alan.

Re: VBA code and Cutepdf Printer

To automate cutePDF you need to purchase the developers version...

ahem...

Now to semi-automate it you can either print to a postscript file and then use a converter (I found this link http://www.cs.wisc.edu/~ghost/doc/cvs/Ps2pdf.htmfrom a Google search).

or you can set cutePDF as your default printer
Open your workbook
Print the file
Accept the default name
Use VBA code to rename the file
Loop back to the next printout.

Admittedly this means sitting there pressing return to accept the default name, but it does work.

HTH,

Alan.

Re: New Project Start

Have a look at the attached workbook.

All I did was open IE and then open each of the pages containing the tables and copy the URL into the Web query in Excel.

The data is imported in the format that you see. You should be able to start formatting the data from that structure.

A.

Re: New Project Start

Authentication can be dealt with by logging onto the web site in the normal way and then opening the Excel data query.

I am not an expert with XML, but have downloaded many tables from websites and then automated my analysis.

Can you post an example? Perhaps a link?

A.

Re: Inserting a null value into a database

spnz,

My questions still stand.

Have you actually tried linking to the workbook and running a normal query? If this works then all you will have to do is save the new file with a standard name in a specific location and then open the database. This will be very easy to automate.

A.

Re: New Project Start

Have you tried using the Data >Import External Data> Web Query in Excel?

This should allow you to select which tables of data you want and provides several options on how to format the data.

You can then use a routine in Excel to copy and paste the information as you require.

A.

Re: Unable to execute stored query!

Not sure (as I have not done it this way before), but what about when you specify the parameters you use the []? For example

adoCmd.Parameters("[Tgt ResistID]") = Trim(strResistID)

A.

Re: Suppress Error Messages

j.v.a.,
I have had a quick browse and found several people all asking similar questions about word and Display Alerts. Several solutions actually appeared to suggest using DisplayAlerts=False

I accept that that is not the expected syntax of the Word.DisplayAlerts, however might be worth a go?

The most promising link from a Google search was blocked by my company's filter, but here is the link.
http://homepage.hispeed.ch/cindymeister/mergfaq2.htm

Good luck,

Alan.

Re: Inserting a null value into a database

spnz,

Have you tried simply linking the worksheet to the database and then using a normal query to do this?

Is there a reason that you can not do this?

A.

Re: Transfer data from Main form to SubForm

Kagazwala,

Can you post a bit more information about the forms? There may be a way that the information can be added automatically without VBA.

Can you post a sample database? You will need to strip out the data and all forms and reports not required to answer your problem.

Thanks,

Alan.

Re: FileSearch - won't work

a1tr1,

The problem is that you need two search routines.

The first you have done and it will work with the modifications below.

You then need to develop the second search routine taht looks inside each of the PPT files.

Your code for teh first search routine should look something like (my changes to your code are underlined)

Dim homeDir, searchPhrase As String 
Dim searchCount As Integer 
[U][B]Dim lngFileNo    As Long[/B][/U]


searchPhrase = Me.txtSearchPhrase.Value 
homeDir = "C:\Temp\TestFolder" 
 
With Application.FileSearch 
    .NewSearch 
    .LookIn = homeDir 
    .SearchSubFolders = False 
   [U] [B].TextOrProperty = "*" [/B][/U]
    .FileType = msoFileTypePowerPointPresentations 
     
    If .Execute() > 0 Then 
        searchCount = .FoundFiles.Count 
        MsgBox "There were " & searchCount & " file(s) found." 
[U] [B]       For lngFileNo = 0 to .FoundFiles.Count 
            ProcessFile
        Next lngFileNo[/B][/U]    Else 
        MsgBox "None" 
    End If 
     
End With

The next search routine will need to:
1. Open an application object for PowerPoint.
2. Open the file to be searched
3. Search through the file for the required phrase. To do that I suggest that you open a file in PowerPoint and record a macro that does a search. I have not done it, but I suspect that you can specify the slides to include in the search. You can then copy and paste the code with appropriate edits.
4. Close the file
5. Close PowerPoint

Have a go at this and post back,

Good luck,

Alan.

Re: Revised Simplex Method to solve LP problem

Just noticed the original post was in April 2003!

CoolGuy, if you need help post something that we can work with. What have you got so far?

A.

Re: Revised Simplex Method to solve LP problem

No file attached.
A.

Re: OnZoom Event

Thanks Gents,

I will try to use this. I suspect that my current solution of a custom menu item that increases and decreases the size of the marker for the selected series will suffice. As always time is at a premium.

Alan.

Re: OnZoom Event

Ger,

That is the problem, I want them to stay the same size on the screen as you zoom in. There is a map as a backdrop to the chart and the points are locations. Looking at the whole map means that a large marker covers a large area, but when you zoom in you want to be able to see the roads etc.

Thanks,

Alan.

Hello,

I want to be able to change the size of markers on a chart as the user zooms in and out. I know that I can trap the mouse buttons and check for the zoom that way, but is there an 'OnZoom' event that I can trap in case the user uses the toolbar or menu to zoom?

Thanks,

Alan.