alsihran

السلام عليكم 

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

يقوم بعد خانات بالحقل b  بالجدول tbl

في ناتج العد بالاستعلام حاولت اظهر النسبة المؤية مع ازالة المنازل العشرية لكن لم اتمكن 

وضعت تنسيق  @% لتنسيق الحقل بالاستعلام والنموذج والجدول 

تظهر علامة النسبة المؤية لكن لايمكن ازالة المنازل العشرية 

المطلوب 

اظهار علامة النسبة المؤية واظهار منزلتين عشرية فقط 

ds.accdb

58 دقائق مضت, jjafferr said:

مع/بدون تصفية ، نفس الطريقة ،

الله يعطيك العافية 

@jjafferr

صباح الخير 

ما عليش استاذ 

سؤال إضافي لنفس الموضوع ولكن خاص بالتقرير 

وضعت هذا الكود لفتح التقرير بدون عامل فرز وتصفية 

لكن يظهر خطأ 

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

ام التقرير له وضع خاص 

DoCmd.OpenReport rbt_Ahsa_Empoly, acViewReport, , , , Me.Name

1 دقيقه مضت, jjafferr said:

بس ياريت تخبرنا وين كانت المشكلة  ، علشان نستفبد

مثل ما قلت لك ما كان فيه مشكلة 

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

لذلك كان يقرأ المتغير القادم من نموذج القائمة بشكل صجيج 

لكن مش عارف ومن وين يجيبه بسبب انه مش لاقي تعريف الاتصال بالسيرفر 

شكرا لك مرة أخرى 

منذ ساعه, jjafferr said:

سيدي الفاضل ، ما اعرف وين المشكلة ، ولكن خلينا نحاول نصيدها ، بتجزئة الكود

مافيه مشكلة يا استاذ 

أنا أسف جدا

الخطأ كان مني انا وضعت الكود في مكان غير صحيح 

لمى وضعته في مكانه الصحيح أشتغل بدون أي مشاكل وتمام التمام 

شاكر ومقدر لك [جميل تعاونك و  سعة صدرتك 🌹

4 ساعات مضت, jjafferr said:

سوف نرسل قيمتين في المتغير OpenArgs ،

اظهر رسالة خطأ

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

12 دقائق مضت, jjafferr said:

شو LisetViewData ، وشو القيمة اللي فيه

يتم التصفية 

حسب اول حقل  اللي هو المعرف الرقم 

6 دقائق مضت, jjafferr said:

اعتقد سؤالك كان لازم يكون كالتالي:

هذا صحيح استاذ 

كان سؤالي بقصد الرجوع للنموذج اللي استدعى النموذج 

لم وضعت انت الحل لقيت أني استخدم تقريبا نفس الكود في عامل التصفية فقط كان محتاج يضاف إليه اسم النموذج اللي استدعى النموذج للرجوع اليه عند الاغلاق 

الل هذا هو 

DoCmd.OpenForm "frm_QualityEvaluation", , , , , acDialog, LisetViewData

وعند فتح النموذج يتم طلب الذهاب الى السجل برقم Id الذي يحمله المتغير OpenArgs 

من خلال هذا الكود 

rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE id_Ccallg = '" & OpenArgs & "' And Deletrecord =1  ORDER BY tbl_QualityEvaluation.id_Ccallg DESC;", sqldb

مع ملاحظة انه 

عند استدعاء النموذج من frm1 يتم بدون طلب تصفية سجلات 

وعند استدعائه من النموذج frm2 يتم طلب تصفية السجلات 

كنت اتمنى ارفع المثال لتكون الصورة اوضح 

لكن مشكلة الارتباط ب Sqlserver تجعل الامر معقد 

ان شاء الله قدرت اوضح الفكرة 

30 دقائق مضت, jjafferr said:

فإذن استعمل الحقل ID هنا (ID هو عبارة عن حقل فيه قيمة فريدة تميز السجلات)

نعم استاذ 

 مربع القائمة اول حقل به هو حقل فريد 

ويعمل مع هذا الكود بشكل سليم 

DoCmd.OpenForm "frm_QualityEvaluation", , , , , acDialog, LisetViewData

هل افهم من هذا ان الأمر لايصلح مع اضافة اسم النموذج لتنفيذ هذا الكود 

rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE id_Ccallg = '" & OpenArgs & "' And Deletrecord =1  ORDER BY tbl_QualityEvaluation.id_Ccallg DESC;", sqldb

11 ساعات مضت, jjafferr said:

فإذا اردت تصفت النموذج frm بحقل الرقم ID مثلا واسم مربع القائمة lst_1 ، فيصبح الامر 

الله يعطيك العافية استاذ 

هذا عامل تحديد السجل في النموذج الذي نستدعية 

يجلب البيانات من SqlServer

وهو يعمل بشكل سليم 

rs.Open "SELECT * FROM tbl_QualityEvaluation WHERE id_Ccallg = '" & OpenArgs & "' And Deletrecord =1  ORDER BY tbl_QualityEvaluation.id_Ccallg DESC;", sqldb

عند استدعاء النموذج بناء على حقل التصفية والكود الذي وضعته انت 

يظهر خطأ حيث ان المتغير OpenArgs  يقرأ النموذج  ولا يقرأ حقل التصفيه 

كما هو موضح بالصورة 

39 دقائق مضت, jjafferr said:

في امر فتح النموذج ، في آخر متغير في هذا الامر ، هناك متغير اسمه OpenArgs ، 

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

الان نأتي للشق الاهم في هذه الكود 

38 دقائق مضت, jjafferr said:

إلا اذا اردت ان تضيف امر تصفية ، او ارسال معلومات اخرى في المتغير OpenArgs) :

كيف اضيف عامل التصفية حسب السجل الذي يقع عليه التركيز في مربع القائمة 

    DoCmd.OpenForm "frm_QualityEvaluation", , , , , acDialog, LisetViewData

33 دقائق مضت, Moosak said:

تفضل أخي السهران

يعطيك العافية أستاذ

السلام عليكم ورحمة الله وبركاتة 

يوجد بالمرفق 

مثال يحتوي على ثلاثة نماذج 

frm1   و frm2  نقوم من خلالهما فتح النموذج frm 

وعند فتح النموذج وضعت في الحدث عند النقر 

        Me.Visible = False

وعند اغلاق النموذج frm 

حدث 

Forms![frm1].Visible = True

بما ان النموذج frm يمكن استدعائه من اكثر من نموذج 

المطلوب :

عند اغلاق النموذج frm 

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

Forms![].Visible = True

أتمنى يكون المطلوب واضح 

visbelform.accdb

13 دقائق مضت, Moosak said:

وأنا أيضا أشتغل معي صوتين فقط ولا أدري لماذا ! 

نعم عملت مثل ما قلت 

صوتين فقط لا يوجد اصوات أخرى 

7 ساعات مضت, Moosak said:

بعد البحث وجدت لك هذا الكود أخي

الله يعطيك العافيه 

بعد التجربه على الدالة الاخيرة اشتغل عندي صوتين فقط 

يمكن ما عرفت استدعي باقي الاصوات 

لو اثقل عليك وتضع الاكواد بمثال 

شاكر ومقدر لك 

11 ساعات مضت, qathi said:

مثال أصوات الويندوز 7 أو 10

لم اقصد هذا المعنى انا اطلب استدعاء الاصوات من الاكسس نفسه 

11 ساعات مضت, Moosak said:

كتب في الكود:

Beep

نعم اخي موسى  هو المقصود 

لكن اريد بقية الاصوات 

مثل 

صوت رسالة الخطأ

صوت رسالة التنبيه 

صوت رسالة التحذير 

10 ساعات مضت, ابوخليل said:

وان اردت اصوات مختلفة من اصوات النظام فعليك تشغيل الملف عند الحدث المحدد

كما وضحت للاستاذ موسى 

السلام عليكم ورحمة الله و بركاتة 

كيف أحصل على نغمات أصوات التنبيه لرسائل أكسس

كما يعلم الجميع أن لكل رسالة صوت محدد يصدر مع ظهور الرسالة 

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

6 ساعات مضت, د.كاف يار said:

تفضل جرب هذا التعديل

و لا تنسى ان تضع عنوان السيرفر

شكرا لك استاذ 

الله يعطيك العافية

1 دقيقه مضت, jjafferr said:

ما يحتاج تعديل ،

فالكود عمل تنسيق لجانبي المعادلة 🙂

 

جربه كما هو واخبرنا بالنتيجة لوسمحت 🙂

 

جربته مثل ما هو ما طلع ولا سجل 

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

Me.ListData.RowSource = "SELECT * FROM tbl_Employ WHERE Format([Startdate],'yyyy-mm-dd') Between '" & Format(Me.TxtStartDate, "yyyy-mm-dd") & "' And '" & Format(Me.TxtEndDate, "yyyy-mm-dd") & "'"

الاستعلام في السكيول يطلع التاريخ بهذي الطريقه 

26 دقائق مضت, jjafferr said:

Me.ListData.RowSource = "SELECT * FROM tbl_Employ WHERE Format([Startdate],'yyyymmdd') Between '" & Format(Me.TxtStartDate, "yyyymmdd") & "' And '" & Format(Me.TxtEndDate, "yyyymmdd") & "'"

تسلم استاذ ذا جاب نتيجة مع بعض التعديل على التنسيق حسب تنسيق الحقل بالاستعلام 

41 دقائق مضت, د.كاف يار said:

تفضل جرب هذا التعديل

الله يعطيك العافية 

مثالك المرفق شغال تمام 

حاولت اطبقة على جملة الاتصال Sql server 

حيث حقل الفرز Taqm_Date1

rs.Open "SELECT * FROM View_1_Liset Where Deletrecord = 1 And Taqm_Date1 Between '" & TxtstartDate & "' And '" & TxtEndDate & "'", sqldb, , , adCmdText

للاستدعاء وضعت 

rs.Open = NewSours(TxtstartDate, TxtEndDate)

طلع عندي رسالة خطأ 

7 ساعات مضت, jjafferr said:

طرفي التاريخ يجب ان يكون لديهم نفس التنسيق ، مثلا:

شكرا لك استاذ 

لكن هذا ليس هو المطلوب 

انا راح استعلم عن طريق SqlServer 

محتاج التعديل يكون على جملة الاستعلام بالكود 

السلام عليكم 

في المرفق 

عند البحث عن السجلات في تاريخ 2022/05/18

يظهر سجل واحد فقط 

بينما في الجدول يوجد سجلين في نفس التاريخ 

ولي أحصل على السجل الثاني لابد لي من ادخال البحث من تاريخ 2022/05/18 الى 2022/05/19

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

لانه يبحث فقط في السجلات التي توافق نفس التاريخ ويكون الوقت المدخل 00:00:00

المطلوب عند البحث في تاريخ محدد يظهر جميع السجلات بغض النظر عن عن الوقت 

SearchFormatListBox.accdb

في 15‏/5‏/2022 at 23:42, احمد الفلاحجي said:

اتفضل اخى

يعطيك العافية أخ احمد

هذا هو المطلوب 

11 ساعات مضت, ابوخليل said:

اذا مصدرها كود يمكنك ايضا في المحرر اضافة التنسيق

نعم استاذنا مصدر القائمة كود مرتبط SQlSERVER

هذا مثال يمكن يكون قريب منه 

FormatListBox.rar