عندى قاعدة بيانات متصله بقاعدة سيكوال
وقمت بإنشاء دالة فى سيكوال 2000
ارغب فى استدعاء هذه الدالة وتخزين الناتج فى متغير
علما بأن الدالة لها مدخلات PARAMETERS
استدعاء دالة فى SQLSERVER 2000 من اكسيس VBA
اخي الفاضل : علي
السلام عليكم ورحمة الله وبركاته
سؤالك مبهم وغير مفهوم ولا يحتوي على اي تفاصيل
المفروض وانا اختك اذا رغبت ان يتم مساعدتك بالشكل المطلوب ان تقوم بالشرح التفصيلي وتضع الدالة الخاصة بك من SQL Server
ثم توضح اين تريد ان تظهر نتائج هذه الدالة عند استدعاؤها من الـ VBA
بالتوفيق
(CREATE FUNCTION dbo.fn_VisitNO (@VisitID int , @VisitDate datetime , @specialityID tinyint
RETURNS int
AS
BEGIN
declare @VisitNo int
select @visitNo= count(visitID
from tblPatrecordDTL
(where (SpecialityID=@specialityid and VisitID<=@VisitID and VisitDate=@visitdate
RETURN @visitNo
END
هذه هى الداله
يوجد نموذج بالتطبيق يحتوى على 4 مربع نص
وهو VisitID هذا رقم تلقائى
VisitDate وهو تاريخ الزيارة
SpecialityID وهو كود التخصص او كود الخدمة المطلوبه
والمربع الرابع يتم عرض ناتج الداله بعد نقل البيانات من المربعات الثلاثة السابقة وادخالها على الدالة
علما بأن النموذج يأخذ بياناته من جدول يحتوى على الاربع حقول
اخي الفاضل
استخدم هذا الكود في النموذج
Dim rst As ADODB.Recordset
Set rst = Connection.Execute("SELECT dbo.fn_VisitNO ('" & Me.field & "')")غير اسم الحقل Me.field في الكود الى اسم الحقل الخاص بك
و لا تنسى اضافة المرجع Microsoft ActiveX Data Objects 2.1 Library
بالتوفيق