ilginiz için teşekürler sayın halily
Function xBagimsizRs( parametre1 as alanTürü, parametre2 as alanTürü) As ADODB.Recordset

bu alanda hataveriyor

(22-09-2022, 01:24)hedefkaya demiş ki: ilginiz için teşekürler sayın halily
Function xBagimsizRs( parametre1 as alanTürü, parametre2 as alanTürü) As ADODB.Recordset

bu alanda hataveriyor

Her iki alanıda alanTürü diye isimlendirmeyin.... As alanTürü.... As alanTürü2 gibi mesela.

yazdığınız kodu paylaşır mısınız?

sayın alperalper dediği gibi de  ayarladım  fakat fonction  satrı  hata  veriyor aşamadım  orayı  

Public tmpRs As ADODB.Recordset
Function xBagimsizRs(parametre1 As STOKARA, parametre2 As BARKODARA) As ADODB.Recordset
 
 Dim xServer As String:        xServer = "DESKTOP-7KVK9N0\SQLEXPRESS"      '<-- Sunucu Adı
Dim xDatabase As String:      xDatabase = "DENEMEDATA"        '<-- VeriTabanı Adı
Dim xStrProc As String:       xStrProc = "STOKLISTE1"  '<-- bu prosedür adı

' On Error GoTo ErrHandler:
 
  Dim objConn As New ADODB.Connection
   Dim objCmd As New ADODB.Command
 Dim objParm1 As New ADODB.Parameter
    Dim objRs As New ADODB.Recordset
 
 ' Set CommandText equal to the stored procedure name.
 objCmd.CommandText = xStrProc '<-- bu prosedür adı olacak
 objCmd.CommandType = adCmdStoredProc
 
 ' Connect to the data source.
' Stop
 Set objConn = New ADODB.Connection
     objConn.ConnectionString = "DRIVER={SQL Server};SERVER=" & xServer & ";DATABASE=" & xDatabase & ";Trusted_Connection=Yes"
     objConn.Open
 objCmd.ActiveConnection = objConn
 
 ' Automatically fill in parameter info from stored procedure.
 objCmd.Parameters.Refresh
 
 
 'objCmd(); 0 tabanlıdır ilk dğer dönüş değeridir parametre girişi 1den başlar
 'objCmd(0) = Null '<--- bu satır fonksiyon olarak kullanılırsa parametre için variant/array/Dizi için deneme amaçlı eklend,
 objCmd(1) = parametre1    '1. parametre        : Name : "@GRUPADI" : String
 objCmd(2) = parametre2    '2. parametre        : Name : "@Secim" : String
'..........
 ' Execute once and display...
 objRs.CursorLocation = adUseClient
 objRs.Open objCmd, , adOpenStatic, adLockReadOnly
     Set tmpRs = objRs.Clone
Set xBagimsizRs = tmpRs.Clone
 
 'clean up
 objRs.Close
 
Cik:
 Set objRs = Nothing
' objConn.Close
 Set objConn = Nothing
 Set objCmd = Nothing
 Set objParm1 = Nothing
 
End Function

Yalniz gönderdiğiniz prosedürde tek parametre vardı

(22-09-2022, 09:12)halily demiş ki: Yalniz gönderdiğiniz prosedürde tek parametre vardı

ALTER PROCEDURE [dbo].[STOKLISTE1] @STOKARA NVARCHAR(50), @BARKODARA NVARCHAR(50) 
AS 
SELECT TOP 1 ID, ADI,BARKOD 
FROM STOK
WHERE ADI = @STOKARA  AND  BARKOD = @BARKODARA  


bu şekilde  ayarladım  ama  hata  veriyor tekrar


accessde  procedür  adını   yanlış yazmıştım  STOKLISTE1  olarak değiştirdim ama  gene  hata  alıyorum