اشكرك اخي الفاضل على اهتمامك ،،
يبدو أن ترتيب الدالة ملخبط لذلك أحصل على رسالة خطأ
Private Sub ÃãÑ194_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("salary", dbOpenDynaset)
'????? ?? ??? ?????
Dim Rs_search As String
Rs_search = "[t_name ] =" & F_name
Rs_search = Rs_search & " Or "[t_mobile] =" & F_mobile
rs.FindFirst (Rs_search)
هذا ولك الشكر سلفا
السلام عليكم
عندي جدول ابغا ابحث فيه عن سجل يحتوي على شرطين وليس شرط واحد
يعني المتعارف عليه انك اذا اردت ان تبحث في قاعدة بيانات عن اسم شخص مثلا نكتب :
حيث الحقل t_name في الجدول لقائمة الاسماء
والحقل F_name في النموذج يكتب فيه الاسم المطلوب البحث عنه
حسناً .. لو أردت أن ابحث في القاعدة عن سجل بالاسم ورقم الجوال مثلا ( على فرضية ان العميل لديه اكثر من سجل ) ، فكتبت السطر التالي ، ولكنه فشل
فتظهر لي رسالة خطأ !!
أرجو من الأخوة الخبراء تصحيح الكود للبحث عن أكثر من نتيجة في سجل واحد
شاكرا لكم تعاونكم
السلام عليكم ورحمة الله وبركاته
بالملف المرفق برنامج جمعية
كل شهر الأعضاء يدفعوا مبالغ مختلفة ،
شخص يدفع 1000 ( سهم واحد ) شهريا
والثاني 2000 ( داخل بسهمني ) وهكذا
سويت شاشة لادخال البيانات وفيها زر واحد
الزر هذا ابغا اذا ضغطت عليه يسحل لي ان الشخص هذا سدد جمعيته
مثلا : أحمد يبغى يسدد جمعية شهر شعبان
نضغط على الزر ، يتقيد في قاعدة البيانات ان أحمد دفع 1000 ريال لشهر شعبان
لو ضغطنا على الزر مرة أخرى في سجل أحمد في شهر شعبان ، تطلع رسالة تقول بأن هذا الشخص دفع جمعية شعبان
ولما يدخل مثلا شهر رمضان ، ونضغط الزر ، يتم قيد ذلك في القاعدة بأن أحمد دفع جمعية شهر رمضان ، وتظهر رسالة تفيد بإتمام عملية الدفع
انا استخدمت دالة FindFirst بحيث يبحث لي في القاعدة عن اسم احمد ، ولكن المشكلة ، أن هذه الدالة تبحث عن اسم أحمد ولكن لا تبحث في خانة الدفع ، هل دفع أحمد الجمعية أو لا ،
اترككم مع المثال في الملف المرفق وأعتذر لو في أخطاء في البرنامج نتيجة تحويل اكسس 2016 إلى 2003 :
maysoon.rar
السلام عليكم يا جماعة الخير
عندي نافذة برنامج أكسس ، أضفت فيها زر أريد اضع فيه كود لإيقاف تشغيل الكمبيوتر
اللي يعرف الكود يزودنا فيه بالخير
(( عندي الوندوز - وندوز عشرة )
وشكرا لكم
شئون العاملين.rar
السلام عليكم ورحمة الله وبركاته
قرأت للاستاذ العزيز ابو خليل موضوع عن ربط برنامج تطبيقي معمول باكسس في رسائل الجوال بحيث يمكنك ترسل رسالة إلى جوال شخص من خلال الاكسس
وجربت الطريقة ونجحت والحمد لله ، ولكن فشل اطبقها على حسابي في موقع سمارس لرسائل الجوال
http://ssms.ws/api
هذه صفحة تعليمات الربط :
http://ssms.ws/api/index.php?action=pages&id=3
طبعا استطعت ان استعلم عن رصيد الرسائل ولكني فشلت في ارسال الرسالة
برنامجي عبارة عن برنامج صغير لشئون الموظفين
وفي حقل لتاريخ انتهاء الهوية
والمطلوب بارك الله فيكم اي موظف انتهت هويته يتم ارسال رسالة على جواله تفيد بانتهاء الهوية ويجب عليه تجديدها
السلام عليكم ورحمة الله وبركاته
سويت فورم بالأكسس ، وعندي مساحة في الفورم اريد اضع فيه مربع يعرض لي صفحة انترنت معينة ، هل يمكن ذلك ، مع الشكر والتقدير لجميع الاخوة والاخوات اللي يساعدوني في هذا الموضوع
ملاحظة ( أريد المربع يعرض لي صفحة الويب نفسها وليس رابط أو عنوان لها يحولني عليها )
الله يوفقك
أنا سويت تعديل وضبط بنفس الطريقة التي علمتني اياها
ألف شكر
[تاريخ نهاية الاشتراك ] = DateAdd("m", [مدة الاشتراك], [تاريخ بدء الاشتراك])
يعني بدال رقم اربعة حطيت حقل مدة الاشتراك وضبط
ألف ألف ألف شكر
أشكرك أخي أبو خليل على الرد والاهتمام ، وفقنا الله وإياك لكل خير
ولكن أنا وضعت رقم ( 4 ) كمثال وليس الحصر
أنا أريد المعادلة بأن ( تاريخ نهاية الاشتراك ) = قيمة حقل ( مدة الاشتراك ) وهو حقل رقمي يمثل عدد شهور الاشتراك + حقل (تاريخ بداية الاشتراك )
السلام عليكم ورحمة الله وبركاته
سويت لي برنامج بسيط يخص اشتراكات
فيه مجموعة حقول عن معلومات المشترك ، اسمه وعنوانه
وفي قسم الاشتراكات في ثلاثة حقول
الحقل الأول ( مدة الاشتراك بالشهور )
الحقل الثاني ( تاريخ بدء الاشتراك )
الحقل الثالث ( تاريخ نهاؤة الاشتراك )
طبعا انا اكتب في أول حقل مدة الاشتراك بالشهور ، ( مثلا 4 ) يعني أربع شهور
وفي الحقل الثاني أحدد تاريخ بداية الاشتراك
أريد في الحقل الثالث يطلع لي تاريخ نهاية الاشتراك
يعني تاريخ بداية الاشتراك + 4 شهور اللي أنا حددتها في حقل مدة الاشتراك
والله دورت على حل في أكثر من منتدى
حتى في المواقع الاجنبية ما لقيت حل شافي
شاكرا ومقدرا حسن تعاونكم