RUNTIMEERROR
|
| Posted: 06/21/2005, 3:30 AM |
|
Hi
this is the code
wise guy in ms access it was working fine after i migrated to oracle it is giving this error
in all the files it is giving the same error
on this line
If Not (.BOF And .EOF) Then
Private Sub initFieldGroupedDataRowsets
Dim strQuery ' as String
strQuery = "SELECT Code, Name FROM Circle"
Set fldCircle.GroupedDataValues = executeAccessorSQL(Me, strQuery)
With fldCircle.GroupedDataValues
If Not (.BOF And .EOF) Then
Set .ActiveConnection = Nothing
.MoveFirst
End If
End With
strQuery = "SELECT Code, Name FROM [Zone]"
Set fldZone.GroupedDataValues = executeAccessorSQL(Me, strQuery)
With fldZone.GroupedDataValues
If Not (.BOF And .EOF) Then
Set .ActiveConnection = Nothing
.MoveFirst
End If
End With
|
|
|
 |
|
