Nino

تم تعديل الكود وبهذا سوف يتم فتح ملف الفلاش حين يتحقق الشرط دون التنقل بين الصفحات واتمنى ان يفى هذا الغرض Private Sub Worksheet_Calculate() If Range("E4") = 1 Then X = ThisWorkbook.Path & "\flash player.exe" y = ThisWorkbook.Path & "\flash.swf" Shell X & " " & y, vbNormalFocus End If End Sub flash.rar

جزاك الله خيرا أخي العينوسي الف الف شكر

حول امتداد الايه الى Wav

المثال المرفق يوضح المطلوب اكثر حتى لو ممكن يعمل عن طريق الاكسيس وشكراً bar_code.rar

اخواني الاعزاء اريد عمل تكويد بواسطة البار كود وعندي برنامج لعمل البار كود لكن يحتاج لعمل البار كود ان ادخل كود واحد كل مرة وسوف يحتاج وقت كتير وانا اريد تكويد حوالي 5000 كود واريد المساعدة في عمل من فضلكم

الاخ العزيز لتمنى ان يكون هذا هو المطلوب سبحان الله وبحمد سبحان الله العظيم Nino db1.rar

سبحان الله وبحمده سبحان الله العظيم المثال المرفق humax1.zip

السلام عليكم ورحمه الله وبركاته الاخ العزيز ارسل الفايل الذي تريد ان تستخدمه وان شاء الله سأحاول ان اساعدك لاني اتذكر ان مثل هذه المشكلة قابلتني من فترة في داتا بيز لشئون عاملين تقرير الموظفين الخارجين علي المعاش في تاريخ معين واعتقد انها نفس المشكلة والله المستعان نينو سبحان الله الحمد لله الله اكبر سبحان الله الحمد لله الله اكبر سبحان الله الحمد لله الله اكبر

اخي العزيز ارسل الفايل الذي تستخدمه وانا سوف اجد لك الحل ان شاء الله واكتب المطلوب لاني فاكر وجهتني مشكلة مثل هذه المشكلة اني دات بيز لشئون عاملين وكان المطلوب تقرير بالموظفين الخارجين علي المعاش في تاريخ معين واعتقد انه نفس المشكلة والله المستعان نينو سبحان الله الحمد لله الله اكبر سبحان الله الحمد لله الله اكبر سبحان الله الحمد لله الله اكبر