E
eko007
docmd.OpenStroredProcedure "HERE IS THE STORED PROCEDURE NAME"
I'm trying above the code with click event of any button.. The Stored
Procedure including some parameters and asking me them with inputboxes.. ok
it's running...
But when I'm trying below the codes, it's not appearing any inputbox and I'm
getting error message like that;
" Run time error '-214217904(80040e10)':
Procedure 'HERE IS THE STORED PROCEDURE NAME' expects parameter
'@whichweek', which was not supplied. "
why cannot appearing inputbox with below codes and I'm getting above the
error message. What is wrong and how should I change below the codes to
appearing inputbox correctly ? thanks.
-----------------------------------------------------------
Dim upTable As New ADODB.Recordset
Dim I As Integer
upTable.Open "HERE IS THE STORED PROCEDURE NAME", CurrentProject.Connection,
adOpenDynamic, adLockOptimistic
upTable.MoveFirst
I = 1
Do While Not upTable.EOF
If upTable![Stock] = "Yes" Then
upTable![Productno] = CStr(I)
upTable.Update
upTable.MoveNext
I = I + 1
Else
upTable.MoveNext
End If
Loop
upTable.close
------------------------------------------------------------
I'm trying above the code with click event of any button.. The Stored
Procedure including some parameters and asking me them with inputboxes.. ok
it's running...
But when I'm trying below the codes, it's not appearing any inputbox and I'm
getting error message like that;
" Run time error '-214217904(80040e10)':
Procedure 'HERE IS THE STORED PROCEDURE NAME' expects parameter
'@whichweek', which was not supplied. "
why cannot appearing inputbox with below codes and I'm getting above the
error message. What is wrong and how should I change below the codes to
appearing inputbox correctly ? thanks.
-----------------------------------------------------------
Dim upTable As New ADODB.Recordset
Dim I As Integer
upTable.Open "HERE IS THE STORED PROCEDURE NAME", CurrentProject.Connection,
adOpenDynamic, adLockOptimistic
upTable.MoveFirst
I = 1
Do While Not upTable.EOF
If upTable![Stock] = "Yes" Then
upTable![Productno] = CStr(I)
upTable.Update
upTable.MoveNext
I = I + 1
Else
upTable.MoveNext
End If
Loop
upTable.close
------------------------------------------------------------