رجاء المساعدة لدى كود يعمل جيدا وهو
Dim X As String
X = Environ$("PROGRAMFILES")
Shell (X & "\Microsoft Office\OFFICE11\MSACCESS.EXE C:\Goldenaccountant\Backup.mdb"), vbNormalNoFocus
اريد تغيير C:\Goldenaccountant\Backup.mdb
الى مسار البرنامج اين يكون CurrentProject.Path\Backup.mdb
.gif)
App.Path
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
اقتباساريد تغيير C:\Goldenaccountant\Backup.mdbالى مسار البرنامج اين يكون CurrentProject.Path\Backup.mdb
استخدم App.Path للحصول على مسار البرنامج
App.Path & "\Backup.mdb"
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال