15,880,330 members
Sign in
Sign in
Email
Password
Forgot your password?
Sign in with
home
articles
Browse Topics
>
Latest Articles
Top Articles
Posting/Update Guidelines
Article Help Forum
Submit an article or tip
Import GitHub Project
Import your Blog
quick answers
Q&A
Ask a Question
View Unanswered Questions
View All Questions
View C# questions
View C++ questions
View Javascript questions
View Visual Basic questions
View Python questions
discussions
forums
CodeProject.AI Server
All Message Boards...
Application Lifecycle
>
Running a Business
Sales / Marketing
Collaboration / Beta Testing
Work Issues
Design and Architecture
Artificial Intelligence
ASP.NET
JavaScript
Internet of Things
C / C++ / MFC
>
ATL / WTL / STL
Managed C++/CLI
C#
Free Tools
Objective-C and Swift
Database
Hardware & Devices
>
System Admin
Hosting and Servers
Java
Linux Programming
Python
.NET (Core and Framework)
Android
iOS
Mobile
WPF
Visual Basic
Web Development
Site Bugs / Suggestions
Spam and Abuse Watch
features
features
Competitions
News
The Insider Newsletter
The Daily Build Newsletter
Newsletter archive
Surveys
CodeProject Stuff
community
lounge
Who's Who
Most Valuable Professionals
The Lounge
The CodeProject Blog
Where I Am: Member Photos
The Insider News
The Weird & The Wonderful
help
?
What is 'CodeProject'?
General FAQ
Ask a Question
Bugs and Suggestions
Article Help Forum
About Us
Search within:
Articles
Quick Answers
Messages
Comments by Tony Radu (Top 13 by date)
Tony Radu
5-Aug-13 13:48pm
View
yes 64bit OS targe platform is x86
System.runtime.interopservices.comException was unhandled is the runtime exception
Tony Radu
16-Mar-12 11:26am
View
Thanks man!!
Tony Radu
19-Jan-12 11:31am
View
Deleted
The file path and strSheetName has the correct file but apExcel is Nothing..
Tony Radu
18-Jan-12 13:31pm
View
both have value. should the workbooks be closed that where i found nothing..
Tony Radu
13-Jan-12 12:49pm
View
still not getting a solution once in 20 this error occurs any help thanks..
Tony Radu
12-Jan-12 16:56pm
View
While apExcel Is Nothing
code to wait until its intialized??
End While
Tony Radu
6-Jan-12 16:58pm
View
Dataset solved it and much faster....
Tony Radu
6-Jan-12 2:22am
View
is there any way without converting to ADO.Net to check MoveNext(), the following is the
Public Sub WriteOccs(ByRef rstOccsToPrint As ADODB.Recordset, ByRef rstAllOccs As ADODB.Recordset, ByRef rstWageRecordset As ADODB.Recordset, ByRef lblL As System.Windows.Forms.Label, ByRef pbrP As AxComctlLib.AxProgressBar, ByRef cFrmCd As String, ByRef rstIndx As ADODB.Recordset, ByRef rstAlt As ADODB.Recordset)
Dim cAddress As String
Dim nTestCounter, nRecCounter As Short
Dim cCurrentMajor, cCurrentDivision As String
Dim nPointsCounter As Double
Dim cLastPageAddress, cHoldAddress As String
Dim lHaveWeStarted As Boolean
Dim cMajOccFlag As String
Dim cBadMajors As String
Dim cFullDefinition As String
Dim nAltLength As Short
Dim cPrintArea, cLastCol, cLastAddress As String
Dim nLocMax, nLocMin As Short
Dim lPageBreakOK As Boolean
Dim lJustDidDivision As Boolean
nTestCounter = 0
cCurrentMajor = ""
cCurrentDivision = ""
lHaveWeStarted = False
nPageBreakCounter = 0
cPageBreakList = ""
cDivisionPageBreakList = ""
nDivisionPageBreakCounter = 0
With rstOccsToPrint
If .RecordCount > 0 Then
nRecCounter = .RecordCount
Call SetUpProgressBar(pbrP, nLocMax, nLocMin, nRecCounter, lblL, "Writing occupations to form....")
' get the bad major list
'If Right(cFrmCd, 1) <> "0" And Right(cFrmCd, 1) <> "u" Then Call MajorCount(rstOccsToPrint, cBadMajors)
' loop through all the occs
.MoveFirst()
'UPGRADE_WARNING: Couldn't resolve default property of object apExcel.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
apExcel.ActiveCell.Offset(1, 0).Activate()
nPointsCounter = nSkippedRowHeight
cMajOccFlag = ""
Do Until .EOF
'If !Occ_code = "21-1014" Then Stop
'check for division
'UPGRADE_WARNING: Couldn't resolve default property of object apExcel.ActiveCell. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
cLastPageAddress = apExcel.ActiveCell.Address
If .Fields("division").Value <> cCurrentDivision Then
If lHaveWeStarted Then
If Right(cFrmCd, 1) = "0" Then nPointsCounter = nPointsHigh + 1
'If CheckForPage(cLastPageAddress, apExcel.ActiveCell.Address, nPointsCounter, Right(cFrmCd, 1)) _
'' Then nPointsCounter = 0
Else
lHaveWeStarted = True
End If
Call WriteDivisionHeader(.Fields("division").Value, rstAllOccs)
cCurrentDivision = .Fields("division").Value
lJustDidDivision = True
nPointsCounter = nPointsCounter + nDivisionRowHeight
Else
lJustDidDivision = False
End If
' check for major
' If !Major <> cCurrentMajor Then
' If InStr(cBadMajors, !Major) = 0 Then
' Call WriteMajorHeader(!Major, rstAllOccs, lJustDidDivision)
' nPointsCounter = nPointsCounter + nMajorRowHeight
' End If
' cMajOccFlag = "M"
' cCurrentMajor = !Major
' End If
' now let's build the act
Tony Radu
4-Jan-12 13:05pm
View
yes it's recordset
Tony Radu
3-Jan-12 11:35am
View
yes refering font dialog, in vb6 it is refering commondialogue.Flags = cdlCFBoth
Tony Radu
27-Dec-11 14:24pm
View
Private Sub ShowData()
mfDataChanged = False
With rstForms
If .RecordCount > 0 Then
txtFormTitle.Text = NullToText(.Fields("Form_title"))
End If
End With
Not reading the value of Form_title it passes ADODB.InternalFields for NullToText thanks...
Tony Radu
23-Dec-11 17:17pm
View
Sorry, i mean the error says Operator '&' is not defined for type 'InternalField' and 'Nothing'.
Tony Radu
23-Dec-11 16:55pm
View
Trying to concatenate Nothing with varValue but & is unknown..
Show More