اجرای فایل اکسس از طریق فرم وی بی

[abas1388]

با سلام و عرض تبریک به مناسبت عید سعید غدیر

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

[mehdi_fiz]

سلام دوست عزیز
شما اگه از جستجو استفاده می کردید زودتر به نتیجه می رسیدید
این هم تایپیک جواب شما
http://barnamenevis.org/forum/showthread.php?t=117755&highlight=%D8%AA%D8%A8%D8%AF%DB%8C%D9%84+exe
موفق باشید

[abas1388]

سلام دوست عزیز
شما اگه از جستجو استفاده می کردید زودتر به نتیجه می رسیدید
این هم تایپیک جواب شما
http://barnamenevis.org/forum/showthread.php?t=117755&highlight=%D8%AA%D8%A8%D8%AF%DB%8C%D9%84+exe
موفق باشید

با سلام
اين تاپيك را قبلاً ديده بودم. در اين تاپيك اجراي اكسس از طريق اسكريپت نويسي آموزش داده شده . همانطور كه عرض كردم در فايل بنده ، اكسس از طريق فرم vb اجرا ميشود و مشكل هم مطرح كرده ام .
موفق باشيد

[abas1388]

با سلام و عرض تبریک به مناسبت عید سعید غدیر

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




Dim strCommand As String
strCommand = """c:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" ""c:\x1.mdb""/runtime"


Shell strCommand, vbMinimizedFocus


حال كد زير را ملاحظه بفرمائيد:




Dim strCommand As String
strCommand = "\Microsoft Office\Office11\Msaccess.exe" & App.Path & "\" & "x1.mdb""/runtime"
'Shell strCommand, vbMaximizedFocus




در كد اول فايل اكسس از طريق فرم vb اجرا ميشود ، ولي با كد دوم خطا صادر ميشود مبني بر اينكه فايل پيدا نشد. جهت اجرا بايدچه تغييري در آن صورت بگيرد ؟
با تشكر

[abas1388]

با سلام مجدد
ابتدا دستور زير را مشاهده بفرمائيد!




Dim strCommand As String
strCommand = """c:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" ""c:\x1.mdb""/runtime"


Shell strCommand, vbMinimizedFocus


حال كد زير را ملاحظه بفرمائيد:




Dim strCommand As String
strCommand = "\Microsoft Office\Office11\Msaccess.exe" & App.Path & "\" & "x1.mdb""/runtime"
'Shell strCommand, vbMaximizedFocus




در كد اول فايل اكسس از طريق فرم vb اجرا ميشود ، ولي با كد دوم خطا صادر ميشود مبني بر اينكه فايل پيدا نشد. جهت اجرا بايدچه تغييري در آن صورت بگيرد ؟


با تشكر


با سلام
اساتید بزرگوار !
لطفاً راهنمائی فرمائید! ایراد کد دوم چیه؟ میخواهم آدرس آفیس و برنامه بصورت شناور باشد . از این نظر که ممکنست در کامپیوتر یک کاربر ، ویندوز در درایو d و به تبع آفیس نیز در همان درایو و برنامه در درایو e و این حالت در کامپیوتر دیگر کاربران به گونه ای دیگر باشد.
با تشکر

[alirezabahrami]

با سلام
اساتید بزرگوار !
لطفاً راهنمائی فرمائید! ایراد کد دوم چیه؟ میخواهم آدرس آفیس و برنامه بصورت شناور باشد . از این نظر که ممکنست در کامپیوتر یک کاربر ، ویندوز در درایو d و به تبع آفیس نیز در همان درایو و برنامه در درایو e و این حالت در کامپیوتر دیگر کاربران به گونه ای دیگر باشد.
با تشکر
سلام
از کد زیر استفاده کن :



Dim strCommand As String
Dim masirfile As String
masirfile = App.Path & "\" & "namefile.mdb"
strCommand = """\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" """ & masirfile & """/runtime"
Shell strCommand, vbMaximizedFocus
End Sub


تذکر : بجای namefile نام دیتابیس را تایپ کن

موفق باشید

[abas1388]

سلام
از کد زیر استفاده کن :



Dim strCommand As String
Dim masirfile As String
masirfile = App.Path & "\" & "namefile.mdb"
strCommand = """\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" """ & masirfile & """/runtime"
Shell strCommand, vbMaximizedFocus
End Sub


تذکر : بجای namefile نام دیتابیس را تایپ کن

موفق باشید
سلام جناب آقاي بهرامي
واقعاً ممنونم . با كد شما برنامه اجرا شد فقط نميدانم چرا در ابتدا، فايل اكسس بصورت ماكسيمايز باز ميشود ؟
با تشكر

[alirezabahrami]

سلام جناب آقاي بهرامي
واقعاً ممنونم . با كد شما برنامه اجرا شد فقط نميدانم چرا در ابتدا، فايل اكسس بصورت ماكسيمايز باز ميشود ؟
با تشكر
سلام
قطعه كد Shell strCommand, vbMaximizedFocusShell را بصورت Shell strCommand بنويس .
ضمناً در پست شماره 1 ، ظاهراً قسمتي از نوشته و همچنين فايل نمونه ات حذف گرديده ( شايد وقتي خواستيد پست فوق را اصلاح كنيد اشتباهاً آنها را حذف كرده ايد؟).
موفق باشيد

[abas1388]

سلام
قطعه كد Shell strCommand, vbMaximizedFocusShell را بصورت Shell strCommand بنويس .
ضمناً در پست شماره 1 ، ظاهراً قسمتي از نوشته و همچنين فايل نمونه ات حذف گرديده ( شايد وقتي خواستيد پست فوق را اصلاح كنيد اشتباهاً آنها را حذف كرده ايد؟).
موفق باشيد

ضمن تشكر از شما جناب آقاي بهرامي ،بايد عرض كنم بر اساس راهكار شما ، خوشبختانه مشكلم برطرف شد . ودر خصوص حذف فايل نمونه و قسمتي از نوشته نيز همانطور كه شما بدرستي اشاره كرديدسهواً اين كار انجام شده .
موفق و مؤيد باشيد

[abas1388]

با سلام
با يك مشكل ديگر مواجه شدم و آن اينكه قبلاً برنامه را از روي دستكتاپ اجرا مي كردم و مشكلي پيش نيامد و فكر مي كنم دليل آن هم اين است كه چون فايل MSACCESS.EXE در درايو c است اجرا شدن آن در درايو c و شاخه هاي آن مشكل ندارد . ولي وقتي فايل را به يك درايو ديگر مثلاً d يا e منتقل مي كنيم در هنگام اجرا فايل MSACCESS.EXE شناخته نمي شود چون اين فايل در درايو c است نه درايو d يا e و اگر آدرس فايل MSACCESS.EXE در كد زير درست وارد شود مشكل حل ميشود :


strCommand = """\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" """ & masirfile & """/runtime"



از دوستان با تجربه ديگر هم تقاضا دارم از راهنمائي دريغ نفرمايند.
با تشكر