reza6384
شنبه 05 مرداد 1387, 11:30 صبح
سلام. من یه سوال ساده دارم.
من برنامه نویسی رو با VB2005 شروع کردم، ولی دست بر قضا زد و مجبورم با Embedded Visual Basic 3.0 یک برنامه بنویسم، البته کسانی که VB6 کار میکنند هم می تونن به سوال من جواب بدن.
سوالم اینه که من می خوام یک سری توابع رو که ازشون زیاد استفاده می کنم در یک ماژول قرار بدم و اونها رو فراخوانی کنم. کدی که توی ماژول نوشتم این بود :
Option Explicit
Public Function RecourdCounter(ByVal Query As String) As Integer
Dim TRS As ADOCE.Recordset
Set TRS = CreateObject("ADOCE.Recordset.3.0")
TRS.Open Query, G_AdoCnn, adOpenStatic, adLockOptimistic
Dim Result As Integer
Result = TRS.RecordCount
TRS.Close
recordcounter = Result
End Function
و توی برنامه وقتی می زنم BestFunctions.RecordCounter، موقع اجرا به من میگه که متغیر BestFunctions تعریف نشده. BestFunctions اسم ماژول من هست.
ممنون.
من برنامه نویسی رو با VB2005 شروع کردم، ولی دست بر قضا زد و مجبورم با Embedded Visual Basic 3.0 یک برنامه بنویسم، البته کسانی که VB6 کار میکنند هم می تونن به سوال من جواب بدن.
سوالم اینه که من می خوام یک سری توابع رو که ازشون زیاد استفاده می کنم در یک ماژول قرار بدم و اونها رو فراخوانی کنم. کدی که توی ماژول نوشتم این بود :
Option Explicit
Public Function RecourdCounter(ByVal Query As String) As Integer
Dim TRS As ADOCE.Recordset
Set TRS = CreateObject("ADOCE.Recordset.3.0")
TRS.Open Query, G_AdoCnn, adOpenStatic, adLockOptimistic
Dim Result As Integer
Result = TRS.RecordCount
TRS.Close
recordcounter = Result
End Function
و توی برنامه وقتی می زنم BestFunctions.RecordCounter، موقع اجرا به من میگه که متغیر BestFunctions تعریف نشده. BestFunctions اسم ماژول من هست.
ممنون.