Search results for query: *

I was thinking about your problem a bit more. Are you running the query once an hour or once a day? Are you populating a grid automatically with the reply from your query or are you/can you process the recordset your query returns? And do continuous items last for the full day? If you are...

Hi, I am wondering if in trying to keep the data entry to 4 fields are you making it confusing for an end user? Would it be better to add in 1 column or drop down to indicate a priority of the date/time field? This new field could either be retrieved with the message or repeat your query for...

at a guess to stop the "server" trying to manage another connection.

I am not at home so I can't test it fully but as far as I can see from some old code there is a SavePicture function for saving images from picture boxes. SavePicture Picture1.Picture, "C:\filename.bmp

Hi, you can put my code in a loop with different ranges, I wasnt fully sure of the code for looping the ranges so just wanted to show the range changing and new graphs being created :) ~cathal

you could try something like Dim rng As Range Set rng = Sheets("Sheet1").Range("A1:B4") Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SetSourceData Source:=rng ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3" Set rng =...

I can think of 2 ways to do this at the moment - both have their drawbacks and both snipets could be modified to be more pleasing to the eye. temp1 = "<Date>2009-03-17</Date><Name>JOHNSON</Name><Position></Position><Age>21</Age>" mylength = Len("<date>") myinterval = InStr(1, temp1, "<Date>")...

The only way I know would be to download a program from http://sector7g.wurzel6.de/pdfcreator/ that sets up a dummy printer to create pdf files. Then in a vb macro/script use code like this Sheets("sheet1").select Application.ActivePrinter = "PDFCreator on Ne00:"...

just a suggestion but if you split the date up 3 parts Month, Day and Year. Dim myDate as Date Dim eachword as variant dim individualword dim mymonth, myday, myyear as int eachword = split(mydate,&quot;/&quot;) mymonth = individualword next individualword myday = individualword next...

Thanks - that was a great help and found thios site which explains it simply http://www.geocities.com/SiliconValley/Campus/9449/BitBlt.htm

Hi, does anyone have any suggestions/code on how to copy part of a picture from one picturebox to another picture box?, or trimming the edges off a picture? Thanks Cathal

One option could be instead of using a combobox use a datacombo instead (you will need to set up the connection option) In Project - > components make sure Microsoft ADO Data COntrol... and Microsft Datalist Control Other choice is to do this Set objConn = New ADODB.Connection...

Hi I need help - preferably in code form as how I can pass the parameters to a Crystal Report Query (below) from text boxes in a form. SELECT * FROM $ACCOUNT_TREELIST$$(1,0,NULL,(?param1), (?param)) Both paramaters are numbers. Any help would be appreciated. Thank Cathal

Thanks, that will work perfectly and cut down a lot of code. thanks again Cathal

Hi, I was wondering if anyone can help me. I have about over 30 textboxes on a form in the following order 1A 2A 3A 1B 2B 3B and so on with each text box named after it's grid location. I am reading values in from a database and depending on 1. The value in field1...

>how do i bind the textboxes on the report to the using the datafield? After you insert the text box into the report, goto the properties of that box. In the Datafield box type in the name of the column from the database that you want te textbox to store. Anymore problems let me know.

Private Sub DataReport_Initialize() Set objConn = New ADODB.Connection objConn.Open &quot;provider = Microsoft.jet.oledb.3.51;data source = c:\database.mdb&quot; Dim objRec As New ADODB.Recordset Dim SQL As String SQLaction = &quot;select * from table where value =...

Dim oExcel As Excel.Application Dim wb As Object Dim ws As Object With oExcel Set wb = Workbooks.Open(&quot;path&quot;, , , , , , vbYes) End With Set ws = wb.Worksheets(1) Enter Data wb.Save With wb .Close End With...

Just wondering if anyone knows what code to use in a macro so it will only be executed on the selected cells? Thanks Cathal

In File one of the options is to make &quot;Project Name&quot;.exe This will make the exe File. As to not having any form showing in the sub form_load() of the form just put formName.hide and it shouldn't show the form.