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...
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
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
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...
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
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.