S
Shell
Would you please tell me the problem of the following function?
Public Function GetOrderQtyIssue(StockPN As String) As Long
Dim Stemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Stemp = "Select Top 1 [Current_Purchasing_Order1].OrderQty From
[Current_Purchasing_Order1] Where
((([Current_Purchasing_Order1].PN)=[StockPN])) Order By
[Current_Purchasing_order1].IssueDate"
Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
GetOrderQtyIssue = 0
If Not Rs.EOF Then
GetOrderQtyIssue = Nz(Rs("OrderQty"), 0)
Rs.Close
End If
Rs.Close
Set Rs = Nothing
End Function
Public Function GetOrderQtyIssue(StockPN As String) As Long
Dim Stemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Stemp = "Select Top 1 [Current_Purchasing_Order1].OrderQty From
[Current_Purchasing_Order1] Where
((([Current_Purchasing_Order1].PN)=[StockPN])) Order By
[Current_Purchasing_order1].IssueDate"
Rs.Open Stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
GetOrderQtyIssue = 0
If Not Rs.EOF Then
GetOrderQtyIssue = Nz(Rs("OrderQty"), 0)
Rs.Close
End If
Rs.Close
Set Rs = Nothing
End Function