نحوه اجرای دستور select به صورت مستقیم در فرمهای برنامه اکسس VBA

متد زیر نحوه اجرای دستور Select در محیط برنامه نویسی VBA را نمایش می دهد. پارامترهای ورودی هر دو از نوع عددی می باشند.

Function SelectX2 (GoodsID As Long, DateOfAdd As Long) As Long

    Dim dbs As Database, rst As Recordset

    Set dbs = CurrentDb

    Dim aa As String

     Set rst = dbs.OpenRecordset("SELECT Count(ProgramID) AS Tally FROM XtblGoodsForSearch where GoodsID =  " & GoodsID & " and DateOfUsedGoods = " & DateOfAdd & ";")

    SelectX2 = rst(0)

    dbs.Close

End Function