[aftfm]

هذا كود تشغيل استعلام من نوع تحديث بقاعدة البيانات اكسس

PHP كود :

 Dim accApp As Object
            accApp = GetObject("D:\1436\DataFiles.accdb")
            'this will run the query in the database 
            accApp.docmd.OpenQuery("QueryCDate")
            accApp.Run("QueryCDate") 


لكن اريد تحديد مسار البرنامج حسب مجلد البرنامج بدون تحديد D:\1436\DataFiles.accdb

قمت بكتابة 

PHP كود :

accApp = GetObject(Application.StartupPath & "\DataFiles.accdb") 


ولكنه قام بتشغيل قاعدة البيانات 

كيف ا حدد مسار البرنامج حسب Application.StartupPath