Run Time Error -'2147352567(80020009)

[Norm]

Good Morning,
I had some issues earlier which were resolved but now I'm running into
another Runtime error stating {Prg Ctrl returned the error: Invalid Property
Value below in brackets:{Me.mainSyncProgressBar = i / rcCountInt * 100}
I am trying to have data sync to produce updated reports.

Dim wrkDefault As Workspace
Set wrkDefault = DBEngine.Workspaces(0)

strSQL = "SELECT tbl_JobInfo.WMS FROM tbl_JobInfo"
Set rs = db.OpenRecordset(strSQL)
wrkDefault.BeginTrans
Me.SetFocus
Me.Repaint
Dim i As Integer
i = 1
Do While Not rs.EOF
Dim strWMS As String
strWMS = Nz(rs.Fields(0), 0)
updateJob strWMS, Cnxn, db
rs.MoveNext
{Me.mainSyncProgressBar = i / rcCountInt * 100}
Me.mainSyncProgressBar.Refresh
Dim istr As String
istr = i
Me.statusText.value = istr + " of " + rcCountStr + " jobs updated "
Me.SetFocus
Me.Refresh
Me.Repaint
i = i + 1
Loop
wrkDefault.CommitTrans
rs.Close

End Sub

 

[George Nicholson]

rcCountInt appears to be an undeclared variable, which means you are
dividing by zero, null, nothing or an empty string.

Odds are that the result of that (#Error?) can't be assigned to the Progress
bar ("Invalid property value").

HTH,

 

[Norm]

The value for rcCountInt = 7620 why is it not declaring it as a value and
what can I do to resolve this.