Khalid Jnb

تشغيل الصوت بزر.rar

اخي العزيز الامر جدا بسيط 

اولا : اذا كنت تريد ان يعمل الصوت بالضغط على زر معين اذهب  الى (عند النقر في حدث )  وقم بتغيبر اسم الملف  ringin الى اي اسم تريده ويجب ان يكون امتداده wav

Private Sub أمر4_Click()
Playsound (Application.CurrentProject.Path & "\ringin.wav")
End Sub

ثانيا: اذا كنت تريد ان يعمل الصوت اثناء فتح النموذج  ضع عند الفتح بالنموذج وقم بتغيبر اسم الملف  ringin الى اي اسم تريده ويجب ان يكون امتداده wav

Private Sub Form_Open(Cancel As Integer)
Playsound (Application.CurrentProject.Path & "\ringin.wav")
End Sub

وهذا ملف فيه ثلاث نغمات مختلفة ( اخي فقط غير اسم الملف بجانب قاعدة البيانات وغيره في الكود

تشغيل الصوت بزر.rar

 ملفين اخرين  لتشغيل الصوت عند فتح النوذج

اعلمنا النتائج اخي الكريم

تشغيل الصوت عند فتح النموذج.rar

تشغيل الصوت بدون اظهار رسالة.rar

السلام عليكم

وضعت لك زر امر لتشغيل ملف صوتي نوع wav

تشغيل الصوت بزر.rar

شكرا اخي العزيز علاء

اتمنى منك وضع الكود في فورم  واكمال فكرتك

مع التقدير

شكرا لك استاذ جعفر

شكرا لكم

انا كنت عملت هذا بالاكسل سابقا 

لكن حسب علمي توجد قواعد بيانات اكسس لحساب الراتب بهذه الطريقة  (حساب تلقائي)  عن طريق عمل module  او عن طريق بعض الدوال بالحقل المحسوب  او الاستعلامات

شكرا استاذ جعفر

السلام عليكم

كيف يمكن استخراج راتب موظف كمافي الجدول بالصورة  (  كانه جدول ضرب)

1-1 =910000

2-1= 930000

6-5 = 101000  وهكذا؟؟؟؟

وشكرا

السلام عليكم

اخي العزيز جرب هذه المعادلة في الحقل المحسوب  reste اذاكانت القييمة اقل من صفر يعطيك صفر

IIf([montant]-[paiment]>=0;[montant]-[paiment];0)

السلام عليكم

كيف يتم احتساب الراتب عند تغيير الارقام في الدرجه الحالية والمرحلة الحالية

مثلا الدرجة 1= 100000   و2= 200000 و3= 300000  وهكذا

والمرحلة 1= 20000  و2 = 15000 و 3 10000 و4 =5000 وهكذا

وهل هنالك دالة او كود لحساب لثلاثة متغيرات بالاكسيس 

وشكرا

test.rar

لو سمحتم ممكن طريقة عمل سلم الرواتب بالاكسيس

الطريقه الصحيحة والاكثر شيوعا ببرامج الرواتب

السلام عليكم 

لدي قاعدة بيانات اكسيس 2010  اريد من خلالها عمل سلم للرواتب  كنت قد عملته بالاكسيل سابقا  من خلال تغيير  الارقام  بالقائمة المنسدلة هل ممكن ؟ اذا كان ؟

1- مثلا لدي مرحلة وظيفية من المرحلة 1 الى المرحلة 10

2- مثلا لدي درجة وظيفية من الدرجه 1 الى الدرجة 5

المطلوب بالاكسيس  عن طريق دالة او استعلام  كما في ملف اكسيل تغيير في زر الرقم الدرجه الوظيفية والمرحلة الوظيفية ويعطينا  مبلغ الراتب الاسمي بصورة تلقائية 

وشكرا لكم

مرفق صورة وملف اكسيل

1.rar

السلام عليكم استاذ جعفر

شكرا لك

تم العمل بنجاح

بارك الله فيك 

استاذ جعفر السلام عليكم

عندي اكثر من 75 حقل  تم  ادراج كثير من الحقول ولكن الحقول الاخيرة  لااستطيع كتابتها 

هل يمكن تجزئةجملة (select) الى سطرين 

السلام عليكم

لدي قاعدة بيانات كبيرة الحجم تحتوي على حقول كثيرة جدا

عند اختيار الامر select  لاختيار عدد الحقول المطلوبة لايسمح لي باختيار حقول اخرى  

هل يمكن تجزئة الكود الى سطرين او اكثر

وشكرا

Private Sub ChooseTble_AfterUpdate()
If Not IsNull(Me.ChooseTble) = True Then
If Me.ChooseTble = "Table1" Then
Me.Box.RowSource = "Table/Query"
Me.Box.RowSource = "SELECT Table1.[ت ],Table1.[اسم الموظف], Table1.[العنوان الوظيفي], Table1.[مكان العمل]" & _
"FROM Table1;"
Box.Requery
End If

السلام عليكم

جرب هذا الكود وقم بالتعديل عليه فيما يناسبك ضمن الحقل المحسوب اذا كنت تستخدم اكسيس 2010 فاكثر

Database1.rar

السلام عليكم

اخي العزيز في تذييل الصفحة بالتقرير 

1- قم بادراج مربع نص غير منظم والصق به الكود () NOW=   لاضافة التاريخ والوقت الحالي  وياخذه من توقيت جهاز الحاسوب 

2-  قم بادراج مربع نص اخر واكتب به الكود ="صفحة " & [Page] & " من " & [Pages] لاظهار رقم الصفحة من عدد الصفحات  الموجودة بها بيانات 

مرفق صورة من تقرير 

السلام عليكم

بالنسبة للسؤالالثاني

افتح الجدول  واضف العبارات التالية 

السلام عليكم

بالنسبة للسؤال الاول 

قم بترتيب الجدولة  من الاعلى للاسفل  كما في الصورة عن طريق السحب والافلات  بالماوس الايمن

data 1.rar

السلام عليكم استاذ ابو ياسين المحترم

شكرا على ابداعاتك

انا قصدي تعديل الكود بدلا من اختيار ماتريد اظهاره (select tb1) لان الحقول بالجدول عددها اكثر من 50 حقل وصعب كتابتها كلها 

يكون الكود ماتريد اخفاءة (نكتب بالكود الحقول المراد اخفاءها) ويكون عددها قليل جدا  وتظهر باقي الحقول بصورة تلقائية بالبوكس 

السلام عليكم استاذ ابو ياسين المحترم

 اختار مثلا اخفاء اسم الموظف على سبيل المثال

الملف مرفوع هنا

test.rar

السلام عليكم استاذ ابو ياسين المحترم

انا جرب الكود  على الجداول اللتي لدي وهو يعمل بصورة جيده 

هل يمكن عكس برمجة الكود  ( اظهار كل حقول الجدول عدا الحقول المحدده التي لانرغب ان تظهر)  لان لدي  جداول تحتوي على اكثر من 50 حقل باللغة العربية والحقول التي لانرغب ان تظهر قليلة جدا

وشكرا لك

مرفق الملف بعد التعدبل 

test.rar

شكرا لك استاذ ابو ياسين

ساجرب الكود على الجداول اللي موجوده عندي واخبرك بالنتائج ان شاء الله

شكرا لك استاذ ابو ياسين

لكنه لايعمل عندي  او يمكن وضعت الكود بالمكان الخاطيء  ؟ 

ارجوا منك استاذي الكريم  وضعه بالملف لو سمحت 

وشكرا

السلام عليكم استاذنا العزيز

شكرا لك  ولهذا الموقع الرائع وبارك الله فيك 

انا حملت الملف  والجزء الاول الخاص xlsx يعمل بصورة صحيحه

والطلب الثاني  الخاص بحجب بعض حقول الجدول من الظهور بالنموذج  لااعرف كيف يعمل

ارجوا  مساعدتك ووضع الكود بالملف  final 

وشكرا لك استاذ مرة اخرى