Search results for query: *

Have you tried the Internet Transfer Control that comes with VB? I've used it successfully... wasn't too hard at all. -Chris Didion Matrix Automation, MCP

I need some help with the FetchProgress event of a Recordset. I'm doing a huge asynchronous load with the recordset property "Inital Fetch Size" set to zero and the "Background Fetech Size" set to 200. In the FetchProgress event I'm giving the user of my app the oppourtunity...

The Contents property returns a byte array of the contents of the proprty bag - which can then be saved to a database or file. The purpose of this is to persist the state of an object (or any other data you can think of). The Contents property can be set to a byte array which then restores the...

Post the code for your add method. Is it returning an object? Is it raising an error? -Chris Didion Matrix Automation, MCP

After creating the 'clone', you couuld place some kind of unique identifier in the tag property of the form: lFormCount = lFormCount + 1 frmAA4561.Tag = lFormCount Then when you need to identify the form, use the tag. -Chris Didion Matrix Automation, MCP

How are you connected to the remote site? -Chris Didion Matrix Automation, MCP

Design your own? Why? Use the internet transfer control. All the works been done already. -Chris Didion Matrix Automation, MCP

You should be able to replace the time in your update statement with the Now() function: "Update SIPS_TRANS set end_time='" & Now() & "'" Hope that works. -Chris Didion Matrix Automation, MCP

You're probably creating a new table - then your code is trying to iterate through the columns in the new table. The problem is that you've added the table, but the collection of tables that you have, objADOXDatabase, has not been updated as well. In the if statement that creates the new table...

Use a for each loop on the controls collection: Dim oControl as Control For Each oControl In Me.Controls If TypeOf oControl is CheckBox then oControl.Value = 'true or false here (optCheckAll.Value = 1) maybe?? End If Next That should do it... -Chris Didion Matrix Automation, MCP

How does that help with storing the data? Doesn't it just output the spreadsheet in the browser? -Chris Didion Matrix Automation, MCP

You could create an object reference to the forms and use those reference as shortcuts in your code: Dim oForm as Form Set oForm = Forms!subformPolicies Then use oForm wherever you would have used Forms!subformPolicies: oForm!txtName.value = "Whatever" Then at the end of your code...

Use the strFunctionCode as the key value when adding nodes to the treeview. Then, attempt to add a new node to the treeview while trapping for errors that may occur. If an error is raised during the attempt to add a node, then you can be pretty sure one already exists with the same...

When looping, store the previous date in a variable then compare that to the next date. If different, write it out as your group header, if the same then don't: Dim dtPreviousDate as Date 'loop do while not end of loop if rs!Date <> dtPreviousDate then 'write the date...

There is a DateDiff function that you can use to compare the different parts of two dates. You provide it with two dates and the interval (days, minutes, etc.) difference you're looking for. That should help quite a bit. -Chris Didion Matrix Automation, MCP

Are you having them enter data on a form which you want to capture in an Excel document? If so, you can automate Excel from within an ASP page to do just that. The Asp page would first capture and validate (if necessary) that data from the form, then would create an Excel object. Then you could...

What database are you using? Are you going through ADO? Where I work we have SQL Server 2000 and are using ADO within VB6 and VBA apps. If I wanted to do an update to the database like that, I would have the DBA create a stored procedure for me that would accept each parameter you have there...

Got some of the code you could show us? That might help, too. -Chris Didion Matrix Automation, MCP

In the NoItem changed event do this: Private Sub txtNoItems_Change() txtRetAmt.Text = cStr(val(txtNoItems.Text) * 50) End Sub -Chris Didion Matrix Automation, MCP

Looks good to me. What are you doing to fill the recordset? Maybe it only has one record in it? -Chris Didion Matrix Automation, MCP