Recently my work updated to IE10. Previous to the update, I have a VBA project that was working flawlessly. The routine, opened a browser, navigated to a page, logged in to the site, entered some data into the online form, ".click"ed the submit button, worked it's way through the "Save As"...
I was having a HECK of a time figuring this out so I thought I'd post it just in case someone else needs it.
I have a standard line chart with that tracks 2 series of data.
Budget (Control Figure)
And
How much spent (Order Value)
over time.
I wanted the Order Value line to track daily, but...
With the data set below, I have created a Line Graph with the row source of:
Me!Graph3.RowSource = "SELECT (Format([TDate],'DD MMM YYYY')),AVG([TrendOrdVal]) AS [AverageVal],AVG([TrendCF]) AS [ContFigure] FROM [StatsCurOrdValChart] GROUP BY (Year([TDate])*12 +...
Opps... The last line should be...
fAgeYMD = intHold + 1
for it to work.
Inthold = number of months
but since it is billing, + had to add a month once the date entered into the next billing month.
For info... I finally found this function at the MS Script Repository...
It is a script that got me what I needed.
Function fAgeYMD(startdate As Date, EndDate As Date) As String
'Purpose: Returns the difference between StartDate and EndDate in full years, months and days
'Coded by...
I'm almost ashamed to ask this, but I searched and Can't find it here.
Its a simple thing...
I want to calculate the number of "Payments" due or overdue.
(I'm removing the form information to make it easier to read.)
If ContractInitialPayment > Date Then
PaymentsDue = 0
Else...
Someone knows a quick one line answer to this... The question is, "Who?"
I'll make it multiple choice/Fill in the blank...
Possible Answers:
A: No
B: Yes
if answer = "B" then
me!Fillin.Value = "Control Name: " & [Put Control Name Here]
end if
Thanx!
Dhookom's solution is definately more eloquent than mine, but I'm a hack and my way helps me see exactly whats going on where when the code gets longer and longer.
Private Sub Add_AfterUpdate()
If forms![Form25]![Form26]!Add = -1 then 'Checked
forms!Form25!ACS = "Paid"
Else 'unchecked
forms!Form25!ACS = "Pending"
End if
End Sub
As a side, I would take dhookom's advice and make the control name more unique.
This one was a tough one to title...
What I am looking for is a Control (ActiveX or otherwise) to simulate expanding and contracting individual records on a form.
I don't think TreeView will fit the bill due to field lables and interface objects I use for asthetics (Filled Rectangle Backrounds...
I generate a dynamic spreadsheet from Access. It works perfect except I do my MATH in access and just pass the result to Excel.
Like this:
wks.Cells(iRow, X) = LColMinor
LColMinor contains a sum of specific data.
What I want to do is pass the formula to make the spreadsheet updateable...
Bob, Thanks for the comment. I realize that the network is the cause of the issues, my gripe is that, even in Design Mode, ACC2007 treats the form as if it were live accessing queries and control data needlessly.
I believe that MS "Knows" this and that was the reason for the new "feature"...
Bob,
Its a sizable database with links to several data sources... Could I write a script to autolink back and forth from Production to Active? Sure I could, but dang it... I shouldn't have to!
MajP,
Sadly, I have a persistent connetcion to the main data source via a hidden form. (That was...
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.