Foksh

أخي الكريم ، سطر واحد غير مكتمل لشرح المطلوب 

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

31 دقائق مضت, UserUser2 said:

كيفيه استخدام تاريخ في حقل البحث بدلا من النص 

قم بإضافة هذا الجزء الى كود الفلترة ، طبعاً تنسيق التاريخ سيكون 00/00/0000 ، كما يتم تخزين القيم في الجدول لأنك تتعامل مع مربع نص وظيفته البحث عما يُكتب فيه من قيم .

OR Format([State], 'Short Date') LIKE '*" & filterText & "*'"

31 دقائق مضت, UserUser2 said:

كيفيه الغاء LIKE عن بعض الحقول 

على سبيل الفرض من أحد الحقول لو اردت ازالة Like وتوابعها فخذ مثال على الحقل EmpName 

مع Like :-

OR [EmpName] LIKE '*" & filterText & "*'

بدون Like :-

OR [EmpName] = '" & filterText & "'

4 ساعات مضت, عمر ضاحى said:

ما شاء الله 🌹

كالعادة ابداع 🌹

دائما ما تبهرنا باعمالك 🌹🌹🌹

أستاذي وصديقي @عمر ضاحى 

انت مختفي بقالك فترة ، لازم ناخد حضور وغياب من النهار ده 

يسعدني مرورك العطر 

9 دقائق مضت, الحلبي said:

ابهار ابداع تألق استاذنا ومعملنا الفاضل / foksh

جزاك الله كل خير على الابداع والتألق  جعله الله فى ميزان الحسنات

دكتور @الحلبي ، يسعدني مرورك وكلامك الجميل 

3 دقائق مضت, ابوخليل said:

لا تؤاخذني استاذنا .. الخطأ مني .. بحكم السن

الزر يعمل .. ولكني لم الاحظ ان قائمة الألوان تخص الإطارات .. كنت اظنها للتبديل بين ملفات الصوت ... لذا ذكرت لك هنا :

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

ولا يهمك معلمي الفاضل ، قلتلك الخطأ في عدم إبراز الإزرار كأزرار  🤗

2 دقائق مضت, ابوخليل said:

اذا تقصد زر المثلث الصغير فكما بينت لك لا يعمل عندي

فقط يمكنني تجربة الصوت بتشغيل الملف الصوتي مباشرة من المجلد

🤔 ، غريب ( وما غريب إلا الشيطان )

مع العلم انه تمت التجربة على أكثر من إصدار أوفيس 🥺

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

ولا يهمك 🥰

5 ساعات مضت, الحلبي said:

منتظرين نسخة 32 ان شاء الله لكى نرى ابداعات الاستاذ الفاضل / foksh جزاك الله كل خير

تم التحديث للنسخة 32 ، تفضل أستاذي @الحلبي

8 دقائق مضت, ابوخليل said:

نعم رجعت اتأكد  وفتح .. المؤشر غير دقيق على الجرس .. 

ايضا التسمية الألوان : توحي للوهلة الأولى انها تخص الستايل ولون الخلفية ..

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

 

 

الخطأ مني أستاذي ومعلمي الجليل ، يمكن ذوقي بعدم ظهور الأزرار كأزرار هو المشكلة .

رغم إني في تطبيقاتي أتعمد ان الأزرار يكون لها شكل اليد بدل سهم الماوس الإفتراضي 🤗

وسماع النغمة قبل التطبيق موجودة لحرية الاختيار 😅

يسعدني ملاحظاتك 

8 دقائق مضت, ابوخليل said:

الملفات الصوتية كما هي في مجلد Notification وبجانب قاعدة البيانات ( والبرنامج يطالب .. ولم تضع آلية لاختيار الملف) .. المفروض يربط آليا بواحد منها .. بعد ذلك يكون حرية الاختيار في اختيار الملف الصوتي المناسب

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

اعتذر اذا لم يتم التلميح لهذه النقطة ، تم إضافة الملاحظة .

😬

16 دقائق مضت, UserUser2 said:

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

هذه مساهمة اخي الكريم ، تفضل 🤗

HAA.accdb

منذ ساعه, ابوخليل said:

نزلت الملف في مجلد التنزيلات

لا يجلب ملف الصوت من المجلد الخاص بملفات الصوت .. ورسالة تطالب بملف الصوت

أستاذي ومعلمي @ابوخليل ، وجوب ان يكون الملف الصوتي في مجلد Notification ، سأعمل على تصحيح هذه الجزئية بحيث عند اختيار ملف صوتي خارج المجلد ان يتم نقله اليه واعتماده .

أشكرك للفت انتباهي لهذه النقطة 🤗

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

هل يمكن بعد اذنك نضيف نفس فورم فاتورة الشراء فاتورة بيع

 

حتى يستفيد من المشاركات أكبر عدد من الأخوة المنتسبين و زوار المنتدى ، قم بفتح موضوع جديد لهذا الطلب.

وإن شاء الله متابعين معك ، رغم أنني قمت تقريباً بتأسيس الفكرة لفاتورة البيع 

12 ساعات مضت, alhourriah said:

للاستفادة والتعلم ماذا كان الخطأ في ربط الجداول؟

انظر سهولة تتبع العلاقات عندما يكون لديك جدول حركة واحد :-

وعندما يكون لديك جدولين حركة ( واحد لحركة الصنف ، و آخر للحركة المالية إن صح التعبير )

ونصيحة لك أخي العزيز ، حاول استخدام مسميات داخل الجداول والنماذج باللغة الإنجليزية 

بناءً على الأفكار اللامعة للأستاذ @Moosak :-

 تم إضافة تشغيل البرنامج عند تشغيل الويندوز ( تمت التجربة على الإصدارات Windows 10 & Windows 7 & Windows XP ) .

 تم إضافة زر التصغير Minimize .

 تم تحديث شكل بعض الأزرار .

 تحديث بعض الأخطاء البرمجية .

⏱️ ملاحظة ، عند تشغيل البرنامج لأول مرة ، يجب اختيار الثيم ، ونغمة التنبيه من مجلد Notification من خلال الضغط على صورة الجرس .

     جاري العمل على إضافة عرض درجة الحرارة لواجهة المنبه حسب البلد أو المدينة ( يلزم إتصال إنترنت )     

10 ساعات مضت, ايناس said:

مساء الخيرات من تونس 

اريد كتابة شرط في استعلام اضافة 

في نموذج سيقع اختيار3 شروط بكمبو بوكس

و في الاستعلام اريده يضيف حسب الشروط 

هل من مساعد لاني لم انجح في كتابة الشرط شكرا 

 

أختنا الفاضلة @ايناس ،

هذه المشاركة الـ 24 لك . وللأسف في معظم مشاركاتك تكون التفاصيل في طلبك غير واضحة 🙄 ، بالإضافة لعدم إرفاق أي ملف حتى يتم تطبيق طلباتك عليه.

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

متمنياً لك الحصول على طلبك

بعد الاطلاع على المرفق أعتقد المشكلة في استعلام التوحيد.

سبب كلامي هذا هو انني انشأت استعلام للجدول Cridi مشتق من استعلامك التوحيدي وقد تم جلب السجلات ، أما من الاستعلام فلم يتم جلب اي سجلات من اي جدول .

وهذه صورة من نتيجة استعلام التوحيد بعد بعض التعديلات ،

وأنا ( أعوذ بالله من كلمة أنا ) أعرف قدراتي في استعلامات التوحيد 😅

قد يكون لأحد الأخوة معلومة تفيدك وتفيدني معك 🥰

9 ساعات مضت, كريمو2 said:

اليك المرفق للتعديل

 

VermCcp.accdb 760 kB · 1 download

في هذا المرفق ؟؟

تريد فتح التقرير على الفلترة حسب السنة ؟؟

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

بس زين لو تشرح الفكرة 🙂

 

في هذا التعديل ، قمت بتحديث القيمة في النموذج مباشرةً بدلاً من عرضها في رسالة ، باستخدام السطر :-
 

Me.FieldChangedFrom = rs.Fields(1).Value

بدلاً من السطرين السابقين :-

 Beep
 MsgBox rs.Fields(1)

لتحديث القيمة في النموذج مباشرةً بالقيمة الموجودة في السجل الحالي.

وأما بالنسبة للجزئية المتعلقة بالحدث عند فتح النموذج المتعقب للتغييرات فهي فقط لتحديث الحقل ، فبدونها سيتوجب على المستخدم ان يقف على مربع النص FieldChangedFrom ليتم تطبيق التحديث ، كون الحدث يعمل في الحالي . فاستبدلت الفكرة لفتح النموذج والذهاب الى آخر سجل وعمل تحديث له .

DoCmd.GoToRecord , , acLast
[Forms]![frmAudit]![FieldChangedFrom].SetFocus
[Forms]![frmAudit]![FieldChangedFrom].Requery

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

توقعتك تسأل .. 😄🖐🏻️ .. هذه واحدة من الطرق الجميلة لتطبيق دالة معينة على مجموعة من العناصر مرة واحدة ..
قمت بتحديد جميع العناصر ثم كتبت اسم الدالة في حدث بعد التحديث هكذا ( ()AddToAudit= ) وهذه الطريقة أسهل من كتابة الحدث لكل عنصر على حده .. 🙂 

ولها شروط سأذكرها لك ..

 

أما بالنسبة للقائمة المنسدلة وضعت لها دالة منفصلة وذلك لحفظ القيمة الحالية في متغير عام قبل التغيير عند حدث ( عند التركيز ) ..
ولو كانت عندك أكثر من قائمة منسدلة حددها جميعا وألصق اسم الدالة لها جميعا مرة واحدة ..

من شروط استخدام هذه الطريقة :

1- أن يكون الكود (الإجرائية) من نوع Function وليس Sub .
2- أن لا يكون لنفس العنصر أي أكواد أخرى في نفس الحدث ..
    وفي حال الحاجة لوضع أكواد أخرى في نفس الحدث يتم العودة للطريقة الإعتيادية لكتابة الكود ويتم مناداة الدالة بالطريقة المعتادة : 

Call AddToAudit()

 

مميز ومبدع 

استخدم الدالة Dmax أخي الكريم ، وارسل مرفق لمساعدة

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

النسخة الجديدة مع التعديلات والتحديثات ،

ولكني كنت منشغلاً في تحدي بيني وبين نفسي في موضوع آخر 

وهذه مشاركتي بطريقة أخرى 

تم إجراء تعديلات على الكود الذي يظهر النتيجة برسالة عند النقر المزدوج على الحقل FieldChangedFrom . واستخدامه في حدث ( في الحالي ) للنموذج FrmAudit ، على النحو التالي :-

Private Sub Form_Current()
On Error GoTo flderr
Dim tbl As String
Dim fld As String
tbl = Me.tblNm
fld = FieldChangedFrom
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset(tbl)
rs.MoveFirst
Do While Not rs.EOF
    If rs.Fields(0) = fld Then
        Me.FieldChangedFrom = rs.Fields(1).Value
        Exit Sub
    End If
    rs.MoveNext
Loop

flderr:
Exit Sub
End Sub

وفي حدث زر تتبع التغييرات ، قمت بإضافة سطرين ليصبح الكود كالتالي :-

Me.Refresh
DoCmd.OpenForm "frmAudit", acNormal
DoCmd.GoToRecord , , acLast
[Forms]![frmAudit]![FieldChangedFrom].SetFocus
[Forms]![frmAudit]![FieldChangedFrom].Requery

Database4.accdb

اخي الكريم هناك الكثير من المواضيع ضمن نفس الطلب ، تفضل هذا أحدثها

تفضل

تفضل اخي الكريم ، هذه محاولتي مع اجراء بعض التغييرات والتعديلات .

مخازن.zip

14 ساعات مضت, alhourriah said:

معرفة ما هي المشكلة التي حدثت والأهم

المشكلة كانت في ربط العلاقات بين الجداول 

أستاذ موسى ، كلامك الجميل هو نابع من شخصك الجميل لا شك .

ربي يسعدك ويرزقك من علمه ما تنتفع به .

بالنسبة لهذه النقطة

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

هناك زري إغلاق (يمين ) و ( أعلى يسار )

فهي سهواً سقطت أثناء حفظ الملف بآخر لحظة ، وسيتم الانتباه لها في التحديث بكل تأكيد .

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

حبذا لو تضيف زر تصغير الشاشة للأسفل Minimize

أيضاً سيتم في التحديث القادم إن شاء الله .

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

حبذا لو تضيف خيار تشغيل البرنامج عند تشغيل الكمبيوتر ليعمل البرنامج مباشرة عند تحميل الويندوز

فكرة جميلة ، قيد العمل أيضاً .

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

استفسار : ما الداعي لإعادة تشغيل البرنامج بعد تغيير الإعدادات ؟ أليست تتطبق بعد حفظها مباشرة ؟

استفسارك في محله ، ولها أيضاً تصريف عما قريب .

بارك الله فيك على ملاحظاتك التي يسعدني وجودها 

لا بالعكس ، سرعة قراءتي بطيئة جداً صدقني هههه 

لكني انا عرضت فكرتي ، ولا اعلم ما هي فكرتك التي أشرت إليها في ذيل موضوعك