I
ina
Hello guys,
I have a problem with a function that call another function
So, for exampple I have this function, info that gives me all
information about client , and this function call another function
calling getclientnumber (adodb.connection, string).
the problem is that when I call this function I have a Loop result all
the time calling the same code. I do not know why might a problem with
the adodb.connection
Public Function Info(ByVal cndb As ADODB.Connection)
On Error GoTo Info_Err
'Variables description
'======================
Dim dtmStart As Date
Dim r As Integer, i As Integer
Dim size As Integer
Dim varInfo(1 To 1000, 1 To 68) As Variant
Dim strCode As String, strCurrency As String, Name as String
Dim rsCode As ADODB.Recordset
Dim vartblFee(1 To 4, 1 To 4) As Variant
Set rsCode = New ADODB.Recordset
rsCode.ActiveConnection = cndb
rstCode.Open "select * from clientcode"
r = 2
Do While Not rsCode.EOF
strCode = rsCode.Fields(1).Value
rsCode.MoveNext
strClientNumber = GetClientNumber(cndb, strtCode)
Name = rsCode.Fields(2).Value
Cells(r, 1) = strtCode
Cells(r, 2) = Name
Cells(r, 3) = ""
Cells(r, 4) = ""
Cells(r, 5) = ""
Cells(r, 6) = ""
Cells(r, 7) = strClientNumber
r = r + 1
Loop
rsCode.Close
Set rsCode = Nothing
cndb.Close
Set cndb = Nothing
Info_Err:
'ActiveCell.Value = CVErr(xlErrNA)
End Function
'Function GetClientNumber
Public Function GetClientNumber(ByVal cndb As ADODB.Connection, strCode
As String) As String
On Error GoTo GetClientNumber_Err
Dim strSQL As String
Dim rsClient As ADODB.Recordset
Dim strClientNumber As String, strClientCall As String
Set rsClient = New ADODB.Recordset
strSQL = "select clientnumber from Clientview where code = '" & strCode
& " '"
rsClient.ActiveConnection = cndb
rsClient.Open strSQL
strClient = rs.Fields(0).Value
strClientCall = GetClientNumber(cndb, strClient) 'problem here
rsClient.Close
cndb.Close
Set cndb = Nothing
Set rsClient = Nothing
Getcurrrency_Err:
GetClientNumber = CVErr(xlErrNA)
Exit Function
End Function
Any help is appreciated thank you
Ina
I have a problem with a function that call another function
So, for exampple I have this function, info that gives me all
information about client , and this function call another function
calling getclientnumber (adodb.connection, string).
the problem is that when I call this function I have a Loop result all
the time calling the same code. I do not know why might a problem with
the adodb.connection
Public Function Info(ByVal cndb As ADODB.Connection)
On Error GoTo Info_Err
'Variables description
'======================
Dim dtmStart As Date
Dim r As Integer, i As Integer
Dim size As Integer
Dim varInfo(1 To 1000, 1 To 68) As Variant
Dim strCode As String, strCurrency As String, Name as String
Dim rsCode As ADODB.Recordset
Dim vartblFee(1 To 4, 1 To 4) As Variant
Set rsCode = New ADODB.Recordset
rsCode.ActiveConnection = cndb
rstCode.Open "select * from clientcode"
r = 2
Do While Not rsCode.EOF
strCode = rsCode.Fields(1).Value
rsCode.MoveNext
strClientNumber = GetClientNumber(cndb, strtCode)
Name = rsCode.Fields(2).Value
Cells(r, 1) = strtCode
Cells(r, 2) = Name
Cells(r, 3) = ""
Cells(r, 4) = ""
Cells(r, 5) = ""
Cells(r, 6) = ""
Cells(r, 7) = strClientNumber
r = r + 1
Loop
rsCode.Close
Set rsCode = Nothing
cndb.Close
Set cndb = Nothing
Info_Err:
'ActiveCell.Value = CVErr(xlErrNA)
End Function
'Function GetClientNumber
Public Function GetClientNumber(ByVal cndb As ADODB.Connection, strCode
As String) As String
On Error GoTo GetClientNumber_Err
Dim strSQL As String
Dim rsClient As ADODB.Recordset
Dim strClientNumber As String, strClientCall As String
Set rsClient = New ADODB.Recordset
strSQL = "select clientnumber from Clientview where code = '" & strCode
& " '"
rsClient.ActiveConnection = cndb
rsClient.Open strSQL
strClient = rs.Fields(0).Value
strClientCall = GetClientNumber(cndb, strClient) 'problem here
rsClient.Close
cndb.Close
Set cndb = Nothing
Set rsClient = Nothing
Getcurrrency_Err:
GetClientNumber = CVErr(xlErrNA)
Exit Function
End Function
Any help is appreciated thank you
Ina