نجوم المشاركات

السلام عليكم تفضل المرفق لعل فيه ما تريد... ملف.xlsx

تفضل اخي سعد حاولت قدر الامكان تنفيد المطلوب لاكن بطريقة مختلفة اتمنى ان تستفيد منها مع بعض الاظافات البسيطة في انتظار الرد بعد التجربة sella v4.xlsm

نعم النص العربي يحتاج الى تشفير لحظات و يكون عندك التعديل تفضل التعديل و هذا هو كود التشفير المستخدم لتمرير النصوص عبر الويب Function EncodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String Dim n As Long For i = 1 To Len(s) n = AscW(Mid(s, i, 1)) If n < 128 Then r = r & "%" & Hex(n) ElseIf n < 2048 Then p1 = n \ 64 r = r & "%" & Hex(p1 + 192) p2 = n Mod 64 r = r & "%" & Hex(p2 + 128) Else End If Next i EncodeQP2 = r End Function sms (1).accdb

تقصد بشرط عدد السنوات ..يمكنك تغيير المعادلة بهدا الشكل =INDEX($I$3:$M$6; MATCH(C2;$H$3:$H$6;0); MATCH(B2; $I$2:$M$2; 0)) ملف v3.xlsx

تفضل اخي circle.xlsm

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

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

انشاء الله أنا عندكم بمصر (فحوصات وعمليات جراحية واستجمام ) من باكر لنهاية سبتمبر . حاضرين اذا تسمح لي صحتي. في أي وقت وأي سؤال لأني أدري برنامجك محتاج شغل كتير .

تفضل أستاذ @وائل طه ووافني بالرد . DDWaael-2.Accdb

تشريف أخي العزيز @دروب مبرمج ☺️

https://streamable.com/md5m4x

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

تصور فنان و ابداع لا حدود له كم انت رائع و كم هي تصوراتك اجمل من الخيال استمر يا مبدع فأنت مصدر لإلهامي

كلمة فنان او معلم او محترف قليلة في انسان عظيم مثلك يشرفني بأن احتفظ بهذه الشفرة في مكتبتي

تفضل التعديل sms.accdb

أعزائي أعضاء وزوار هذ المنتدى المميز نختم هذا الموضوع كما وعدتكم بالنسخة الاحترافية بأكواد VBA ماذا في هذه النسخة: في كل مرة تفتح البرنامج يحفظ لك صورة من التقويم عن الضغط على أي يوم تظهر لك رسالة معلومات عن اليوم وخيار بإضافة موعد لهذا اليوم في صفحة حول تستطيع التحكم في الصورة التي تظهر عن فتح البرنامج كيف تضع الصورة خلفية لسطح المكتب؟ اضغط على الصورة بزر الفأرة الأيمن اختر تعيين كخلفية لسطح المكتب التقويم الدراسي والمواعيدVBA.xlsm

الخطأ سببه اعدادات اللغة في الجهاز اضبط اعدادات اللغة في الجهاز الجديد مثل الاعدادات في الجهاز الذي تعمل عليه

تفضل التعديل sms.accdb

ممنون جدا عاشت الايادي شكرا جزيلا 👍

اخي هده مسالة اخرى ليس لها علاقة بالقوائم ولم نشتغل عليها من قبل على العموم تفضل اخي Dynamic Orders - Pivot_V11.xlsm

يمكنك الوقوف عند حدوث خطأ ما الحصزل على رقم الرسالة من الكود الاتى Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue End Sub ولتسجيل الاخطأء ان اردت ولتغير محتوى نص رسائل الاكسس الافتراضية يمكنك الاطلاع على هذا الموضوع مبدئيا وبعد ذلك ارجع لطلب المساعدة ان تعذر عليكم قهم شئ او التطبيق بمرفق لقاعدة البيانات بعد محاولتك تجربة التطبيق

اتفضل الحل فى الاستعلام ملاحظة الرقم 3 فى Space(3) هو عدد المسافات يمكن تغييره لما تريد Test.accdb

أهلا بك @Moosak أشكرك على ثناءك العطر.. لكن لا تبالغ 😊 أقول لك بصدق؛ إن الأفكار كثرت عليّ، وما أدري ما الذي أقدم منها فقلت أبدأ بالأيسر، ثم أتناقش معكم ماهو الأفضل والأنسب.. بعد أن أستعرض معكم مفاتيح البحث التي يوفرها الموقع. هذا صحيح! لأن الهدف هو جلب البيانات من الموقع وتكديسها في قاعدة البيانات، ثم النظر فيما بعد في كيفية استثمار تلك البيانات وفقاً لمتطلبات المطور..

نزولا عند طلب بعض الأخوة بعرض معلومات أكثر عند تحديد يوم من التقويم و الضغط على F9 من لوحة المفاتيح فقد تم في المرفق: إضافة الأسماء الدارجة للمنازل والأنواء. في الإصدار السابق لا يمكن التعرف على النطاق الملون إلا من خلال أول وآخر خلية أما هذا الإصدار فيمكن التعرف من أي خلية. والعديد من الإضافات مع F9 مثل نهاية الأسبوع واليوم الحالي ‏‏التقويم الدراسي والمواعيد - وتنظيم الأعمال والمشاريع.xlsx

أهلا بكم.. للمراسلة في بيئة مشتركة؛ يجب أن يأسس لهذه المراسلات جدول بيانات يوضع في قاعدة البيانات الخلفية. هذا أمر متعارف عليه ولا جدال فيه. لكن يبقى السؤال كيف نصل إلى معرف المرسل إليه؟ وكيف نشعره بوجود رسائل تخصه؟ من أسهل الطرق للوصول إلى معرف منضبط للمرسل والمرسل إليه: هو استخدام معرف ويندوز.. يمكن الوصول إلى هذا المعرف في أكسس باستخدم التابع ()Environ. بهذه الطريقة Public Function UserName() UserName = Environ("UserName") End Function وإرسال الرسائل واستقبالها بحاجة إلى ثلاثة عناصر... جدول البيانات.. نموذج معالجة الرسائل.. وأيضا نموذج عرض الرسائل.. مما يجب التنبيه عليه هو أن نموذج عرض الرسائل يجب أن يُفتح في وضع (التخفي) مباشرة مع النموذج الرئيسي سيقوم نموذج عرض الرسائل في حدث المؤقت بالبحث عن أخر سجل أرسل للمرسل إليه ولم يقم بتأكيد استلامة.. (وذلك كل نصف دقيقة) فإذا وجد سجلا مطابقا للشرط تقوم الشفرة بإنشاء نسخة مماثل لنموذج العرض بالسجل الأخير مع التنبه، عند المصادقة يتم إغلاقه. وإذا أرسلت رسالة أخرى قبل المصادقة، فسوف تظهر الأخيرة في نموذج عرض أخر.. ** هناك مسائل فنية في تكوين الشفرة سوف أناقشها مع الزملاء إن شاء الله.. لتجربة المثال المرفق.. جعلت نموذج معالجة الرسائل هو النموج الرئيسي وستلاحظ أن معرفك في ويندوز ظهر تلقائيا في حقل [Sender ID] قم بفتح كلتا القاعدتين المخصصة للواجهة الأمامية في آن واحد، ومن ثم قم بإعادة ربط جدول البيانات فيهما.. قم بفتح النموذج الرئسي (نموذج معالجة الرسائل) في كلا القاعدتين، ومن ثم قم بإرسالة رسالة لمعرفك (أدخل معرفك في حقل [Receiver ID]) من أحد القاعدتين ستلاحظ أن نموذج عرض الرسائل ظهر في كلا القاعدتين وذلك لأن معرف المرسل والمرسل إليه واحد.. أدخل رسالة أخرى من القاعدة الثانية ولاتنس إدخال معرف المرسل إليه (معرفك) ستلاحظ أن الرسالة ظهرت أيضا في كلا القاعدتين.. تنبيه.. عند تأكيد الرسالة اللاحقة قبل السابقة سوف تقوم الشفرة بإعادة فتح الرسالة السابقة بإعتبارها آخر سجل وفق الشروط أعلاه... هذا العيب يمكن إصلاحه بمساعدة الزملاء.. .. آمل أن تحوز هذه المشار على رضاكم.. !! أعمل على Office-64 Messanger.zip