تطبیق عبارات Declare فایل های اکسس با سیستم ویندوز

[emami.sie]

سلام
کدهای پست 10 تصحیح شد . در این کدها زمانی که به دستورات شرطی سیستم ویندوز برسد از آن عبور می کند.
برای فرم ها یک روتین دیگر از Win32_64DeclareCompatible با نام دلخواه کپی کنید و مانند زیر تغییر دهید.
...

قبل از اینکه در روال Win32_64DeclareCompatible به عبارت Set App = Nothing برسید روال جدید را فراخوانی کنید و App را به آن پاس کنید.
کد را امتحان نکردم ولی مطمئن با کمی دستکاری جواب می دهد

با سلام و عرض ادب
تنها کاری که از دستم برمیاد فقط تشکره...
تغییرات رو مطابق فرموده شما انجام دادم و پس از تست، نمونه نهایی رو ضمیمه کردم.
مطمئنا کاری که انجام شد و برنامه ای که نوشته شد هرچند کوچک و مختصر، اما بسیار کاربردیست و کسانی که با اکسس و برنامه نوشتن با اون درگیرن به اهمیت موضوع پی خواهند برد...
امیدوارم جناب امیری و سایر اساتید در پناه حق، همیشه سالم و تندرست باشند...
موفق و مؤید باشید
یا علی