سوال: اجراي اكسس در وي بي [بایگانی]

amiralex

سه شنبه 25 مهر 1391, 09:49 صبح

سلام به همه

سوالم اينه

فرض كنيد من يه فايل اكسس دارم كه در اون يك جدول يا يك كوئري و يك فرم دارم كه روي اون فرم دكمه هايي قرار داره كه كاره خاصي انجام ميدن

سوالم اينجاست كه چطور ميتونم از طريق فرمي كه در VB ساختم و دكمه ايي كه رو اون فرم در نظر ميگيرم با كليك رو اون دكمه اون فايل اكسس باز بشه (البته بدون اينكه كاربر متوجه بشه - حالا اگه باز بشه و ديده هم بشه مهم نيست) و اون دكمه روي فرم اكسس عمل بكنه و اون عمليات روي اون فرم اكسس انجام بشه؟

در حقيقت فرم وي بي ميخوام يه رابط سريع باشه در اكسس و اون عمليات اكسس انجام بشه

اميدوارم منظورمو متوجه شده باشد
ممنونم از اينكه پاسخ ميديد

ashkan1234

سه شنبه 25 مهر 1391, 12:03 عصر

سلام به همه

سوالم اينه

فرض كنيد من يه فايل اكسس دارم كه در اون يك جدول يا يك كوئري و يك فرم دارم كه روي اون فرم دكمه هايي قرار داره كه كاره خاصي انجام ميدن

سوالم اينجاست كه چطور ميتونم از طريق فرمي كه در VB ساختم و دكمه ايي كه رو اون فرم در نظر ميگيرم با كليك رو اون دكمه اون فايل اكسس باز بشه (البته بدون اينكه كاربر متوجه بشه - حالا اگه باز بشه و ديده هم بشه مهم نيست) و اون دكمه روي فرم اكسس عمل بكنه و اون عمليات روي اون فرم اكسس انجام بشه؟

در حقيقت فرم وي بي ميخوام يه رابط سريع باشه در اكسس و اون عمليات اكسس انجام بشه

اميدوارم منظورمو متوجه شده باشد
ممنونم از اينكه پاسخ ميديد

سلام!
بنده دقیقا متوجه نشدم!
ولی ببین این روش کارتو راه میندازه:
componnet
برو رو تب آخر:Insertable Objects
برو این کامپوننت رو انتخاب کن بنداز رو فرم ات:Microsoft Excel WorkSheet
یکی مقدار صبر کن تا باز بشه خودش!
ببین همینو میخواستی؟!
--------------------------------
اگر میخوایید اکسل رو باز کنید روی فرم یک دکمه قرار بدید و این کد رو توش بنویسید:
Shell "C:\Program Files\Microsoft Office\Office14\excel.exe"

اون آفیس14 هم بیستگی به ورژن آفیس شما تغییر میکنه!

amiralex

سه شنبه 25 مهر 1391, 12:51 عصر

ممنونم از پاسختون
ولي مد نظرم باز كردن خود اكسس هست
يعني اكسس در وي بي باز بشه همون طور كه اكسل باز ميشه
يعني من بتونم به فرم طراحي شده در اكسس دسترسي داشته باشم

ممنونم ميشم اگه راهي واسه اين موضوع پيدا بشه

ashkan1234

سه شنبه 25 مهر 1391, 16:24 عصر

ممنونم از پاسختون
ولي مد نظرم باز كردن خود اكسس هست
يعني اكسس در وي بي باز بشه همون طور كه اكسل باز ميشه
يعني من بتونم به فرم طراحي شده در اكسس دسترسي داشته باشم

ممنونم ميشم اگه راهي واسه اين موضوع پيدا بشه
اینو بزار تو دکمه ات:ببین اینو میخوای؟
Shell "C:\Program Files\Microsoft Office\Office14\MSACCESS.exe"

-----------------------------
1-منظورت اینه که دیتا بیسی که تعریف کردی تو فرم ات باز بشه؟
2-میخوای فقط یک اکسس جدید باز بشه؟
چجوری میخوای،لطفا دقیقا توضیح بده!
اگه تونستی یک نمونه بزار کمک بیشتری بشه!

amiralex

چهارشنبه 26 مهر 1391, 08:58 صبح

آقا اشكان ممنونم از پاسختون
در واقع ميخواستم يه جورايي اكسس باز بشه به اينصورت:

من يه دكمه در فرم VB6 بزارم و با كليك بر روي اون دكمه فايل اكسسي كه ساختم و شامل جداول و فرم ها و غيره ميشه بلافاصله باز بشه همين.
من اون فايل اكسس رو طوري ساختم كه با بازشدنش يه فرم هم كه در اكسس ساختم باز ميشه و يه كاري كه در رويداد لود فرم هست انجام ميشه و بعد ار چند ثانيه كه پروكسس انجام شد بسته ميشه و اكسس هم Quite ميشه.
حالا ميخوام تو اون مرحله ايي كه روي دكمه فرم VB6 كليك ميكنم و اكسس باز ميشه كاربر نبينه اكسس باز شده و اين كارها انجام شده به عبارتي اكسس در حالت مخفي يا بك گراند يا همچين چيزي باز بشه

نميدونم منطقي هست يا نه يا اصلا شدنيه يا نه

اميدوارم منظورمو متوجه شده باشيد

بازهم ممنونم از وقتي كه ميذاريد

ashkan1234

چهارشنبه 26 مهر 1391, 10:29 صبح

آقا اشكان ممنونم از پاسختون
در واقع ميخواستم يه جورايي اكسس باز بشه به اينصورت:

من يه دكمه در فرم VB6 بزارم و با كليك بر روي اون دكمه فايل اكسسي كه ساختم و شامل جداول و فرم ها و غيره ميشه بلافاصله باز بشه همين.
من اون فايل اكسس رو طوري ساختم كه با بازشدنش يه فرم هم كه در اكسس ساختم باز ميشه و يه كاري كه در رويداد لود فرم هست انجام ميشه و بعد ار چند ثانيه كه پروكسس انجام شد بسته ميشه و اكسس هم Quite ميشه.
حالا ميخوام تو اون مرحله ايي كه روي دكمه فرم VB6 كليك ميكنم و اكسس باز ميشه كاربر نبينه اكسس باز شده و اين كارها انجام شده به عبارتي اكسس در حالت مخفي يا بك گراند يا همچين چيزي باز بشه

نميدونم منطقي هست يا نه يا اصلا شدنيه يا نه

اميدوارم منظورمو متوجه شده باشيد

بازهم ممنونم از وقتي كه ميذاريد
این روش رو چک کنید:
ابتدا از منوی project
Refrences... را انتخاب کنید!حالا به دنبال این بگردید: Microsoft Access 14.0 Object Library
اون 14.0 بستگی به ورژن آفیس نصب شده شما داره!
ok کنید!
وارد قسمت کد نویسی فرم بشید!
در قسمت General فرم تون این کد رو بزارید:
Dim acapp As Access.Application

--------------
در commandButton هم این کدها رو بزارید:
Set acapp = New Access.Application

acapp.Visible = True
acapp.OpenCurrentDatabase "C:\Users\Ashkan\Desktop\Access\Database5.mdb"
acapp.DoCmd.Maximize
جای این خط هم C:\Users\Ashkan\Desktop\Access\Database5.mdb مسیری که فایل اکسس هستش را وارد کنید!
ببینید تا اینجا همونی که میخواستید شد؟!

amiralex

پنج شنبه 27 مهر 1391, 08:53 صبح

آقا اشكان ممنونم ازتون

كدي كه برام نوشتيد بدرستي عمل كرد

حالا چطور ميتونم اكسسي كه باز ميشه در حالت مخفي باشه؟ يعني كاربر متوجه باز شدنش نشه؟

ashkan1234

پنج شنبه 27 مهر 1391, 12:07 عصر

آقا اشكان ممنونم ازتون

كدي كه برام نوشتيد بدرستي عمل كرد

حالا چطور ميتونم اكسسي كه باز ميشه در حالت مخفي باشه؟ يعني كاربر متوجه باز شدنش نشه؟

منظورتون از بصورت مخفی چیه؟
یعنی اینکه وارد تسکبار بشه؟!
(Minimize) بشه؟

amiralex

پنج شنبه 27 مهر 1391, 12:17 عصر

آره حالتي كه كاربر متوجه باز شدن نشه. حالا تسكبار يا مينيمايز يا هر حالت ديگه
چون اين حالت تقريبا 30 ثانيه زمان ميبره ( منظورم باز شدن و دوباره بسته شدن اكسس هست) اگه ميشه ميخوام تو زمان يه پروگرس بار هم تو فرمم باشه كه اون چند ثانيه اون كار كنه
اينم يه توضيحي بديد ممنون ميشم

SlowCode

پنج شنبه 27 مهر 1391, 14:06 عصر

برای اینکه کاربر صفحه رو نبینه، این کد رو بنویس:
acapp.Visible = False

ashkan1234

پنج شنبه 27 مهر 1391, 19:46 عصر

آره حالتي كه كاربر متوجه باز شدن نشه. حالا تسكبار يا مينيمايز يا هر حالت ديگه
چون اين حالت تقريبا 30 ثانيه زمان ميبره ( منظورم باز شدن و دوباره بسته شدن اكسس هست) اگه ميشه ميخوام تو زمان يه پروگرس بار هم تو فرمم باشه كه اون چند ثانيه اون كار كنه
اينم يه توضيحي بديد ممنون ميشم
اگه میخوای تو اون 30 ثانیه بگه :لطفا صبر کنید ...
به نظر بنده اینکار رو بکن:
یک لیبل تو فرمت بنداز توش بنویس ،لطفا چند لحظه صبر نمایید!
بعد از قسمت properties لیبل ات!
Visible =False
----------
حالا یک تایمر بنداز رو فرم ات!
interval=30000( واسه 30ثانیه!)
------------------------
حالا برو تو کد نویسیت،تو اون کامندی که کدها رو نوشتی،
label1.visible=true
---------------
تو کد نویسی تایمرت تو Event تایمرش:
label1.visible=False
----------------------
البته این نظر بنده بود!(به نظرم اینجوری شکیل تر میشه!)
بجای لیبل هم میتونی از عکس استفاده کنی!
پیروز باشید!

rezankh

دوشنبه 04 دی 1391, 23:53 عصر

این روش رو چک کنید:
ابتدا از منوی project
Refrences... را انتخاب کنید!حالا به دنبال این بگردید: Microsoft Access 14.0 Object Library
اون 14.0 بستگی به ورژن آفیس نصب شده شما داره!
ok کنید!
وارد قسمت کد نویسی فرم بشید!
در قسمت General فرم تون این کد رو بزارید:
Dim acapp As Access.Application

--------------
در commandButton هم این کدها رو بزارید:
Set acapp = New Access.Application

acapp.Visible = True
acapp.OpenCurrentDatabase "C:\Users\Ashkan\Desktop\Access\Database5.mdb"
acapp.DoCmd.Maximize
جای این خط هم C:\Users\Ashkan\Desktop\Access\Database5.mdb مسیری که فایل اکسس هستش را وارد کنید!
ببینید تا اینجا همونی که میخواستید شد؟!
با سلام
اگه بخواهيم در فايل اكسس باز شده يك جدول يا يك كوئري خاصي روباز كنه چطور ميشه؟