Comments by Tony Radu (Top 13 by date)

While apExcel Is Nothing
code to wait until its intialized??
End While

Dataset solved it and much faster....

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

yes it's recordset

yes refering font dialog, in vb6 it is refering commondialogue.Flags = cdlCFBoth

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...

Sorry, i mean the error says Operator '&' is not defined for type 'InternalField' and 'Nothing'.

Trying to concatenate Nothing with varValue but & is unknown..