فایل صوتی روی فرم و حذف پیغام های مایکروسافت آفیس

[قله بلند]

سلام
من می خوام فیلدی از فیلدهای جدول ام، دارای فایل صوتی باشه. مثلاً تلفظ کلمه انگلیسی رو بگه.
این فایل ها،
mp3
هستند.

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



Private Sub command2_Click()
Me.Text14 = DLookup("name", "Table1", "name LIKE '*" & Me.Text12 & "*'")
If Not IsNull(Me.Text14) Then
Set ctl = Me!Command2
With ctl
.HyperlinkAddress = "C:\Users\USER\Desktop\abandon2.wav"
.Hyperlink.Follow
End With
End If
End Sub


117181

117182

[منصور بزرگمهر]

ﺑﺎ ﻋﺮﺽ ﺳﻼﻡ ﺩﻭﺳﺖ ﻋﺰﻳﺰ و ﺗﺒﺮﻳﻚ ﺳﺎﻝ ﻧﻮ ﺑﻪ ﺷﻤﺎ

اﻣﻴﺪﻭاﺭﻡ ﺣﺎﻝ ﺷﻤﺎ ﺧﻮﺏ ﺑﺎﺷﺪ.

ﺩﺭ ﻣﻮﺭﺩ ﻛﺪ ﺷﻤﺎ ﺑﺮاﻱ ﭘﺨﺶMP3 ﻣﻦ ﻫﻴﭻ ﭼﻴﺰ ﻧﻔﻬﻤﻴﺪﻡ ﻛﻪ ﭼﮕﻮﻧﻪ اﺟﺮا ﻣﻴﺸﻮﺩ, و ﭼﺮا ﺁﻥ ﭘﻴﺎﻣﻬﺎ ﻧﻤﺎﻳﺶ ﻣﻲ ﻳﺎﺑﺪ, ﻭﻟﻲ ﺑﺮاﻱ اﺟﺮاﻱ MP3 ﺷﻤﺎ ﻣﻴﺘﻮاﻧﻴﺪ اﻛﺘﻴﻮ اﻳﻜﺴﻬﺎﻱ ﻓﺮاﻭاﻧﻲ ﻛﻪ ﻣﻨﺎﺳﺐ ﺑﺮاﻱ VB6 ﻣﻴﺒﺎﺷﺪ ﺩﺭ ﻫﻤﻴﻦ ﻭﺏ ﺳﺎﻳﺖ ﺑﺮﻧﺎﻣﻪ ﻧﻮﻳﺲ ﻳﺎ ﮔﻮﮔﻞ ﭘﻴﺪا ﻛﻨﻴﺪ و اﻧﻬﺎ ﻓﺎﻳﻠﻬﺎﻱ ﻣﻮﺳﻴﻘﻲ ﺭا اﺟﺮا ﻣﻲ ﻛﻨﺪ. ﭘﺲ اﺯ ﺁﻧﻬﺎ اﺳﺘﻔﺎﺩﻩ ﻛﻦ. ﺑﺮﻧﺎﻣﻪ ﻣﺪﻳﺎ ﭘﻠﻴﺮ ﻭﻳﻨﺪﻭﺯ ﻫﻢ ﻳﻚ اﻛﺘﻴﻮ اﻳﻜﺲ ﺩاﺭﺩ. ﺁﻥ ﺭا ﺑﻪ ﻓﺮﻡ ﺧﻮﺩ اﺿﺎﻓﻪ ﻛﻦ و اﻧﺮا ﻣﺨﻔﻲ ﻛﻦ ﻛﻪ ﻛﺎﺭﺑﺮ اﻥ ﺭا ﻧﺒﻴﻨﺪ. ﺳﭙﺲ ﻓﺎﻳﻞ ﺭا ﺑﺪﻩ اﻳﻦ اﻛﺘﻴﻮ اﻳﻜﺲ اﺟﺮا ﻛﻨﺪ.

ﺷﻤﺎ ﻣﻴﺘﻮاﻧﻴﺪ ﻓﺎﻳﻞ ﺻﻮﺕ ﺭا ﺩﺭ ﻳﻚ ﺭﻛﻮﺭﺩ ﺩﻳﺘﺎﺑﻴﺲ ﺫﺧﻴﺮﻩ ﻛﻨﻴﺪ. ﺳﭙﺲ اﻧﺮا ﻣﻮﻗﺘﺎ اﺯ ﺭﻛﻮﺭﺩ ﻣﺮﺑﻮﻃﻪ ﺧﻮاﻧﺪﻩ و ﺩﺭ ﻫﺎرد ﺩﻳﺴﻚ ﺧﻮﺩ ﺫﺧﻴﺮﻩ ﻛﻨﻴﺪ (ﭼﻮﻥ ﻣﺪﻳﺎ ﭘﻠﻴﺮ اﻛﺘﻴﻮ اﻳﻜﺲ ﻧﻴﺎﺯ ﺑﻪ ﻳﻚ ﻓﺎﻳﻞ ﺭﻭﻱ ﻫﺎﺭﺩ ﺩاﺭﺩ و ﻧﻪ اﻃﻼﻋﺎﺕ ﺑﺎﻳﻨﺮﻱ ﺫﺧﻴﺮﻩ ﺷﺪﻩ ﺩﺭ ﻳﻚ ﺭﻛﻮﺭﺩ ﺩﻳﺘﺎﺑﻴﺲ) و ﭘﺨﺶ ﺻﻮﺕ ﻣﺮﺑﻮﻃﻪ ﻧﻤﺎﻳﻳﺪ ﺳﭙﺲ ﺁﻧﺮا ﭘﺎﻙ ﻧﻤﺎﻳﻴﺪ ﺗﺎ اﺛﺮي اﺯ ﻓﺎﻳﻞ ﺭﻭﻱ ﻫﺎﺭﺩ ﻛﺎﺭﺑﺮ ﻧﻴﺰ ﻧﺒﺎﺷﺪ و ﻣﻮاﺭﺩ ﻣﺸﺎﺑﻪ. ﺗﻮﻱ ﺑﺨﺶ ﻭﻱ ﺑﻲ ﺷﺶ ﻳﺎ ﻫﻤﻴﻦ اﻛﺴﺲ ﺳﺰﭺ ﻛﻨﻴﺪ (ﭘﺨﺶ ﻓﺎﻳﻞ ﺻﻮﺗﻲ) ﻛﺪﻫﺎﻱ ﺯﻳﺎﺩﻱ ﺩﺭ اﻳﻦ ﻣﺮﺩ ﻣﻲ ﺑﻴﻨﻴﺪ. ﺑﺴﻴﺎﺭ ﺁﺳﺎﻥ اﺳﺖ.


ﻣﺘﺸﻜﺮﻡ - ﺑﺰﺭﮔﻤﻬﺮ

[قله بلند]

سلام
خدا خیرتون بده
از پخش فایل صوتی در تالار اکسس استفاده کردم و فایل های صوتی اتم رو اجرا کردم و شنیدم.

فقط دو نکته:
1-همه فایل های mp3 ام رو باید به wave تبدیل کنم.
2-نتونستم از ویندوز مدیا پلیر اکتیو اکس استفاده کنم.


با سپاس فراوان

[alirezabahrami]

سلام1-همه فایل های mp3 ام رو باید به wave تبدیل کنم.
2-نتونستم از ویندوز مدیا پلیر اکتیو اکس استفاده کنم.


با سپاس فراوان
سلام!
اگرخیلی مورد نیاز است یک نمونه برایت آماده کنم!

یا علی

[قله بلند]

سلام
یعنی نمونه ای که بتونم فایل های mp3 رو هم اجرا کنم؟

من از این کد استفاده کردم و تونستم فایل های wav رو اجرا کنم ولی تمام فایل های صوتی که دارم mp3 است.




Option Compare Database
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long
Public Function PlaySound(sWavFile As String)
' Purpose: Plays a sound.
' Argument: the full path and file name.
If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "ÝÇíá ÕæÊí ÎÔ äÔÏ", vbMsgBoxRight + vbExclamation, "ÎØÇ"
End If
End Function

[alirezabahrami]

سلام
یعنی نمونه ای که بتونم فایل های mp3 رو هم اجرا کنم؟

سلام
در قسمت
اعلان: دیتا بیس ها و برنامه های کاربردی (http://barnamenevis.org/showthread.php?53141-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D9%87%D8%A7-%D9%88-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C)
(صفحه آخر) یک نمونه برای استفاده عموم قرار داده ام :
یا علی

[قله بلند]

سلام
ممنون
اجراش کردم و تونستم فایل mp3 رو باهاش بشنوم ولی به کدش دسترسی ندارم.
من باید چه کار کنم تا بتونم فایل های mp3 خودم رو در بانکی که دارم (فیلدی از فیلدهای جدول) اجرا کنم.

[alirezabahrami]

سلام
ممنون
اجراش کردم و تونستم فایل mp3 رو باهاش بشنوم ولی به کدش دسترسی ندارم.
من باید چه کار کنم تا بتونم فایل های mp3 خودم رو در بانکی که دارم (فیلدی از فیلدهای جدول) اجرا کنم.
سلام
نمونه در قالب mdb ارائه شده و برای دسترسی به آبجکت های برنامه باید کلید شیفت کیبرد را پائین نگه داشته و کلیک نمائید .
یا علی

[قله بلند]

سلام
کد رو دیدم
سخت بود و سر در نیاوردم

[Access2013]

سلام

جناب بهرامی متاسفانه نشد نمونه تون را ببینیم چون ضمیمه ای اصلا وجود نداره !!!

اگه نمونه ای که فرمودید را ضمیمه کنید ممنون میشم چون نه تو قسمت اعلان هست و نه تو همین تاپیک ...

خدا نگهدار

[قله بلند]

سلام
با اجازه، من فایل رو پیوست کردم

[alirezabahrami]

سلام
در قسمت
اعلان:
دیتا بیس ها و برنامه های کاربردی (http://barnamenevis.org/showthread.php?53141-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D9%87%D8%A7-%D9%88-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C)
(صفحه آخر) یک نمونه برای استفاده عموم قرار داده ام :
یا علی

سلام

جناب بهرامی متاسفانه نشد نمونه تون را ببینیم چون ضمیمه ای اصلا وجود نداره !!!

اگه نمونه ای که فرمودید را ضمیمه کنید ممنون میشم چون نه تو قسمت اعلان هست و نه تو همین تاپیک ...

خدا نگهدار
سلام
جهت اصلاح بعضی از کدهای نمونه ، فراموش کردم آن را مجدداً آپلود نمایم .
علی ایحال نمونه را در بخش دیتا بیس ها و برنامه های کاربردی (http://barnamenevis.org/showthread.php?53141-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D9%87%D8%A7-%D9%88-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C) قرار داده ام.
یا علی

[قله بلند]

سلام
در قسمت
اعلان:
دیتا بیس ها و برنامه های کاربردی (http://barnamenevis.org/showthread.php?53141-%D8%AF%DB%8C%D8%AA%D8%A7-%D8%A8%DB%8C%D8%B3-%D9%87%D8%A7-%D9%88-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%87%D8%A7%DB%8C-%DA%A9%D8%A7%D8%B1%D8%A8%D8%B1%D8%AF%DB%8C)
(صفحه آخر) یک نمونه برای استفاده عموم قرار داده ام :
یا علی


سلام
من بخش cmdBrowse_Click رو نگاه کردم. اما من نمی خوام کاربر بگرده و فایل رو پیدا کنه چون وقتی کاربر جستجوی خودش ور انجام می ده، فیلدهای رکورد مربوطه، در مکان های مربوطه در روی فرم، قرار می گیره و با فشردن یک دکمه، فایل صوتی اون رکورد رو گوش می کنه.

من از قطعه کد اولی استفاده کردم و فایل wav رو می تونم اجرا کنم اما چه تغییری باید داد تا با استفاده از کد دومی، بتونم فایل ها mp3 رو هم اجرا کنم؟



Option Compare Database

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long

Public Function PlaySound(sWavFile As String)
' Purpose: Plays a sound.
' Argument: the full path and file name.

If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox " "
End If
End Function


Private Sub Command28_Click()
Dim Path As String
Path = CurrentProject.Path & "\"
PlaySound (Path & "abandon.wav")
End Sub







Private Sub cmdBrowse_Click()

Dim strFilter As String
Dim strSavePath As String, strOpenPath As String

strOpenPath = Nz(DLookup("LastDir", "tblSettings"), "C:\")


strFilter = ahtAddFilterItem(strFilter, "MP3 Files (*.mp3)", "*.mp3")


Me.txtPath = ahtCommonFileOpenSave(ahtOFN_HIDEREADONLY, strOpenPath, strFilter, , , , "Select Audio File", , True)

strSavePath = fReplaceSQL(Mid(Me.txtPath, 1, InStrRev(Me.txtPath, "\")))

CurrentDb.Execute "UPDATE tblSettings SET LastDir = '" & strSavePath & "'", dbFailOnError

End Sub

[Access2013]

سلام

احسنت جناب بهرامی گل کاشتی مشخصه خیلی زحمت کشیدید به نظر میرسه اگه بتونید تو کدها تغییری بدید که تو آدرس فایل ها بشه sellect all بشه بهتر میشه ...

الا ایها ایحال این نمونه خیلی کاربردی هست و امیدوارم دوستان دیگه هم با فشردن روی دکمه تشکر شما را لایک کنند117417

موفق باشید

[قله بلند]

سلام
جواب رو پیدا کردم

هر دو روش جوابگو است: :تشویق:




Private Sub Command32_Click()
Dim Path As String
Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute Path + "x.mp3"
End Sub






Private Sub Command32_Click()
Dim Path As String
Path = CurrentProject.Path & "\"
CreateObject("Shell.Application").ShellExecute "C:\Users\USER\Desktop\x.mp3"
End Sub



راه حل اصلی اش اینه


CreateObject("Shell.Application").ShellExecute me.somefilename



که از اینجا پیدا کردم:
http://www.access-programmers.co.uk/forums/showthread.php?t=181640