13-11-21, 02:04 PM
وعليكم السلام ورحمة الله وبركاته
أظن أن الكود المناسب هو الكود التالي يعمل مع كل نسخ أوفس :
أظن أن الكود المناسب هو الكود التالي يعمل مع كل نسخ أوفس :
كود :
Dim raid As Access.Application
Set raid = New Access.Application
raid.OpenCurrentDatabase App.Path & "\files.mdb"
raid.DoCmd.OpenReport "contracteur_q", acViewPreview
raid.DoCmd.Maximize
raid.Visible = Trueقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
