Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search

SEMO.Pa3x

الخبراء
  • Content Count

    182
  • Joined

  • Last visited

  • Days Won

    3

SEMO.Pa3x last won the day on April 18

SEMO.Pa3x had the most liked content!

Community Reputation

88 Excellent

4 Followers

About SEMO.Pa3x

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Designer, Programmer
  • Location
    العراق
  • Interests
    التصميم والبرمجة

Recent Profile Visitors

416 profile views
  1. عليكم السلام. شوف هالموضوع. https://www.sitepoint.com/using-an-access-database-with-php/ و
  2. ارفق لنا قاعدة البيانات لكي نتمكن من مساعدتك.
  3. عليكم السلام. طلبك ممكن وبكل بساطة. اولا: الطريقة الاولى بدون Windows API Dim cmgr As String cmgr = "مسار البرنامج الذي تريد تشغيله" 'مثال '‪cmgr = "C:\WINDOWS\system32\mspaint.exe" Call Shell(cmgr, vbMaximizedFocus) ثانياً: الطريقة الثانية بإستخدام Windows API بواسطة دالة ShellExecuteA Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal lpnShowCmd As Long) As Long Public Sub ShellEx(ByVal Path As String, Optional ByVal Parameters As String, Optional ByVal HideWindow As Boolean) If Dir(Path) > "" Then ShellExecute 0, "open", Path, Parameters, "", IIf(HideWindow, 0, 1) End If End Sub 'run executable ShellEx "c:\mytool.exe" 'open file with default app ShellEx "c:\someimage.jpg" 'open explorer window ShellEx "c:\" هذا شرح مفصل عنها https://www.vb-helper.com/howto_shellexecute.html
  4. Please note that Access 2010 64-bit requires SP1 or later. Access 2007 requires SP2 or later
  5. ملف غير مكتمل التحميل. اعد تحميله.
  6. عليكم السلام, يرجى مراجعة قوانين القسم قبل كتابة موضوع جديد. ممنوعات : تعرض المشاركة للالغاء الفوري 3. يفضل عدم طلب عمل برنامج فهذا المنتدي للتبادل العلمي و ليس للبحث عن البرامج الجاهزة ، و لكن ابدأ بالعمل و اطرح المشاكل التي تواجهك ( بعد البحث فى المنتدي منعا للتكرار ). و ما سبق طرحه من برامج يمكنك الوصول اليها باستخدام البحث ، و يفضل ألا تخصص مشاركة لهذا الغرض و إن كان ذلك متاح لكن ممنوع الالحاح فى ذلك .
  7. انقر على الحقل الذي يظهر به الرقم العشري. ثم اذهب الى نافذة الخصائص ثم الى حقل التنسيق واكتب به ##,#
  8. عليكم السلام, يرجى مراجعة قوانين القسم قبل كتابة موضوع جديد. ممنوعات : تعرض المشاركة للالغاء الفوري 3. يفضل عدم طلب عمل برنامج فهذا المنتدي للتبادل العلمي و ليس للبحث عن البرامج الجاهزة ، و لكن ابدأ بالعمل و اطرح المشاكل التي تواجهك ( بعد البحث فى المنتدي منعا للتكرار ). و ما سبق طرحه من برامج يمكنك الوصول اليها باستخدام البحث ، و يفضل ألا تخصص مشاركة لهذا الغرض و إن كان ذلك متاح لكن ممنوع الالحاح فى ذلك .
  9. لم افهم طلبك، قم بشرح طلبك بواسطة صورة.
  10. Dim ReadUsername As String ReadUsername = DLookup("[UsernameLogin]", "AutoSave", "ID =1") Dim ReadFlags As String ReadFlags = DLookup("[frm_Input_Salaries]", "Login", "Username ='" & ReadUsername & "'") If ReadFlags = True Then DoCmd.OpenForm "frm_Input_Salaries", acNormal Else MsgBox "...ليست لديك صلاحيات كافية لإستخدام هذا الاجراء", vbCritical, "عملية خاطئة" End If تضع هذا الكود في الواجهة الرئيسية في الزر المسؤول عن عرض النموذج الذي تريده. اذا كان المستخدم يمتلك الصلاحية التي اسمها frm_Input_Salaries التي تكون قيمتها True سيفتح له النموذج frm_Input_Salaries والا فسوف تظهر له رسالة تمنعه من فتح النموذج بالنسبة للجدول AutoSave عبارة عن جدول يتم تسجيل اسم المستخدم الذي قام بالدخول للقاعدة.
  11. عليكم السلام. لماذا تستخدم دالة ShellExecuteA في تشغيل ملفات الصوت ؟؟ وظيفة الدالة الاساسية ليست لتشغيل ملفات الصوت. بل لتشغيل البرامج التنفيذية والتي بدورها ستقوم بتشغيل اما صوت او فيديو او صورة حسب البراميتر الممرر لها,, لتشغيل ملفات الصوت MP3 , WAV في الاكسس وبإستخدام API راجع موضوعي هنا، على العموم لحل مُشكلتك في دالة ShellExecuteA تحتاج لقتل العملية المسؤولة عن تشغيل الصوت كان يكون برنامج VLC او Windows Media Player ... الخ Private Sub DoStop_Click() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc If oProc.Name = "Music.UI.exe" Or oProc.Name = "wmplayer.exe" Then MsgBox "تم ايقاف الصوت بنجاح" oProc.Terminate End If Next End Sub تفضل قاعدة البيانات الخاصة بك بعد التعديل حسنين api_sounds_SEMO.rar
  12. قم بعمل مجلد جديد وضعه بجانب قاعدة البيانات وقم باعطائه الاسم Sounds_Folder CurrentProject.Path & "\" & "Sounds_Folder" & "\" & "Name.mp3" هذا الكود سيكون مسؤولاً عن جلب مسار الصوت لمختلف الاجهزة, فقط قم بتغيير الاسم Name.mp3 الى اسم ملف الصوت الخاص بك.
  13. اهلاً معلمي الغالي, تلبية لطلبك الكريم قمت بجمع الطريقتين بملف واحد اذا وضعت مسار ملف صوت MP3 او WAV فهو سيقوم بفلترة المدخلات وتشغيلها حسب صيغتها. Option Compare Database Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _ hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _ (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_ALIAS_SYSTEMASTERISK As String = "SystemAsterisk" Const SND_ALIAS_SYSTEMDEFAULT As String = "SystemDefault" Const SND_ALIAS_SYSTEMEXCLAMATION As String = "SystemExclamation" Const SND_ALIAS_SYSTEMEXIT As String = "SystemExit" Const SND_ALIAS_SYSTEMHAND As String = "SystemHand" Const SND_ALIAS_SYSTEMQUESTION As String = "SystemQuestion" Const SND_ALIAS_SYSTEMSTART As String = "SystemStart" Const SND_ALIAS_SYSTEMWELCOME As String = "SystemWelcome" Const SND_ALIAS_YouGotMail As String = "MailBeep" ' playsound Params Const SND_LOOP = &H8 Const SND_ALIAS = &H10000 Const SND_NODEFAULT = &H2 ' silence if no sound associated with event Const SND_ASYNC = &H1 ' play async (don't freeze program while sound is playing) Private sMusicFile As String Dim Play, a Public Sub Sound_MP3(ByVal File$) sMusicFile = GetShortPath(File) Play = mciSendString("play " & sMusicFile, 0&, 0, 0) If Play <> 0 Then End If End Sub Public Sub Stop_MP3(Optional ByVal FullFile$) Play = mciSendString("close " & sMusicFile, 0&, 0, 0) End Sub Public Function GetShortPath(ByVal strFileName As String) As String Dim lngRes As Long, strPath As String strPath = String$(165, 0) lngRes = GetShortPathName(strFileName, strPath, 164) GetShortPath = Left$(strPath, lngRes) End Function Private Sub DoStartSound_Click() If IsNull(SoundPath) Then MsgBox "! áã ÊÞã ÈæÖÚ ãÓÇÑ ãáÝ ÇáÕæÊ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) If IsFile(Fix_Path) = False Then MsgBox "! áã íÊã ÇáÚËæÑ Úáì ÇáãáÝ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Select Case Rev_Extension Case "mp3" Sound_MP3 (Fix_Path) Case "wav" PlaySound Fix_Path, vbNull, SND_ALIAS Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP End Select Debug.Print Fix_Path End Sub Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory) End Function Function FExtOnly( _ ByVal filename As String) _ As String Dim nopath As String Dim dpos As Long Dim spos As Long spos = InStrRev(filename, "\") If spos > 0 Then nopath = Mid(filename, spos + 1) Else nopath = filename End If dpos = InStrRev(nopath, ".") If dpos > 0 Then FExtOnly = Mid(nopath, dpos + 1) Else FExtOnly = "" End If End Function Private Sub DoStopSound_Click() Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) Select Case Rev_Extension Case "mp3" Stop_MP3 (Fix_Path) Case "wav" PlaySound vbNullString, ByVal 0&, SND_NODEFAULT End Select End Sub حسنين MP3_WAV_Player_SEMO_Pa3x.accdb
  14. اذهب الى ملف الصوت اضغط عليه كلك يمين ثم اختر اخر خيار "خصائص" او "Properties" ثم اذهب الى النافذة "الامان" او "Security" وانسخ مسار ملف الصوت
  15. السلام عليكم ورحمة الله وبركاته. كنت قد طرحت سابقا موضوع لتشغيل ملفات الصوت في الاكسس وكان الموضوع يتناول تشغيل الملفات التي تكون بصيغة WAV حصرا رابط الموضوع: درس اليوم هو حول تشغيل ملفات الصوت بصيغة MP3 في الاكسس. الدوال المستخدمة: mciSendStringA GetShortPathNameA بعض الحقوق لأصحابها اتمنى منكم الدعاء لي ولوالدي. حسنين Mp3Sounds_SEMO_Pa3x.accdb
×
×
  • Create New...