Moosak

أخي العزيز @محمد احمد لطفى أعتذر منك عن عمل التعديل المطلوب لارتباطي بعدة مشاريع أخرى 🙂 وأترك المجال للإخوة الأعزاء لنرى إبداعاتهم 😅✌🏼️

أحسنت أخي محمد 👍🏼🌷

أخي أبو فتحي لم يقبل البرنامج التحويل للنسخة 2003 لهذه الأسباب : أقترح عليك الإنتقال لنسخة أحدث 🙂

شكرا لمروركم جميعا أساتذتنا ومعلمينا الأفاضل .. 😊 غمرتمونا بكرم دعواتكم وثنائكم تقبل الله منا ومنكم 🌷 شكرا لكم فردا فردا 🙂🌹 أخي محمد أحسنت وأحسن الله إليك .. 🙂🌷 كم وضعت قيمة الـ Sleep ؟

أخي محمد هناك أفكار كثيرة يمكن تطبيقها بسهولة وتختلف حسب الحاجة إليها… وعلى سبيل المثال : ـ نفس الرسالة بس يتغير الاسم كل مرة .. ومرفق واحد ـ رسالة مختلفة لكل شخص .. ومرفق خاص لكل واحد منهم.. ـ وأمثلة كثيرة لا حصر لها… 😁 طبعا يمكن عمل كل ذلك بإجراء تعديلات بسيطة على نفس الكود والجدول..

﴿كُلُّ مَن عَلَيها فانٍ۝وَيَبقى وَجهُ رَبِّكَ ذُو الجَلالِ وَالإِكرامِ﴾ [الرحمن: ٢٦-٢٧]

أنا شغلته على ويندوز 10 وأوفيس 365 وأوفيس 2010 ربما تكون إعدادات أمان أو برنامج فيروسات أو إعدادات الأمان (المواقع الموثوقة) لديك في الأوفيس ..

شكرازجزيلا لكم جميعا على كلماتكم الطيبة ودعواتكم المباركة 😊🌹 إن شاء الله 👍🏼 أخي qathi لم يظهر لدي أي مشكلة مما ذكرت .. وكل شي كان يعمل بسلاسة تامة .. لابد أن هناك خلل في إعدادات الجهاز عندك أو إعدادات الأكسس نفسه 🙂 وياليت لو نسمع آراء الإخوة ممن جربوا البرنامج .. 🌹

:: السلام عليكم ورحمة الله وبركاته :: 🙂 يطيب لي أن أهديكم هذه الهدية البسيطة 🎁 :: مرسال الواتسأب :: وهو برنامج بسيط جدا لإرسال الرسائل عن طريق الواتسأب .. مع إمكانية إرسال المرفقات كذلك ( صور أو مستندات ) 🙂 وله واجهتين رئيسيتين : 1 - الرسائل الفردية 2 - الرسائل الموجهة لعدة أشخاص :: وهذه صور لواجهات البرنامج :: طبعا من الضروري تنصيب برنامج الواتسأب للكمبيوتر وتشغيله قبل تشغيل البرنامج 🙂 وبملاحظاتكم ودعواتكم دوما نرتقي 🙂 :: وأخيرا :: التحميل :: ☺️👌🏼 مرسال الواتسأب.accdb

وعليكم السلام ورحمة الله وبركاته 🙂 هل تقصد كتابة ( لا يساوي ) ؟ في ال VBA تكتب هكذا: لا يساوي <> أكبر من أو يساوي =< أصغر من أو يساوي =>

أنا تظهر معي هكذا ( أوفيس 365 ) : 🙂

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

وعليك سلام الله 🙂✋🏻 حسب ما تذكر الرسالة أن المشكة في الأمر الذي وضعته في حدث (عند التركيز) لمربع النص .. عد للكود الذي وضعته وتتبع المشكلة أو الخطأ الذي فيه.

وعليكم السلام ورحمة الله وبركاته 🙂 بدل القائمة المتعددة أيش رايك لو تعمل 3 حقول من نوع (صح/خطأ) للمقاسات الثلاثة وبهذا بيسهل عليك التعامل معها ..؟ إلا إذا كان عدد المقاسات يزيد وينقص ..

ننتظرك بلهفة 👍🏼🙂 وحبذا لو تتطرق لموضوع كيفية نقل قاعدة البيانات وتنصيبها على السيرفر في جهاز العميل أو المستخدم والاتصال بها .. وكذلك قضية كيفية التعامل مع المرفقات والملفات التي يتم تخزينها في نفس مجلد قاعدة البيانات .. كيف يتم تحديد المسار وكيف يتم نسخ الملفات الى مسار القاعدة ؟ وهل هناك طريقة لتخزين الملفات داخل قاعدة ال SQL ؟

الآن انتبهت أنه نفس المرفق 😅

وجدت هذا الملف في أحد المنتديات الأجنبية .. 🙂 وهي حيلة لعمل ذلك .. TabRight.accdb

وعليكم السلام أخي أزهر 🙂 هكذا مثلا : IIF([bookavailable]-[bookback]<>0 ;[bookavailable]-[bookback];[bookavailable])

لله درك مهندسنا العود @jjafferr .. 🙂 الله يزيدك من واسع علمه وفضله وينفع بك البلاد والعباد يارب 😊🤲🏼 ------------------------------------------------------- تمت التجربة ولله الحمد .... ولا غلطة 😉👌🏼

أخي عبدالله ضع دالة DCount هذه في مصدر بيانات مربع النص 🙂 =DCount("*";"[Unique Value]")

وعليكم السلام أخي أبو عبدالله 🙂 عن طريق استعلام الإجماليات تستطيع تجميع القيم المنفردة .. ثم تستدعي الاستعلام في أي مكان شئت .. ولكن سؤالك الآن يعتبر سؤال عام حتى تخصص ما هو نوع بيانتك بالضبط وترفق نموذج يمكن من خلاله تشخيص حالتك بدقة .. 🙂

حياك الله أخي حامل المسك 🙂 ضع هذا السطر في أول الكود .. If IsNull(Me.nox) Or Me.nox = "" Then Exit Sub

@jjafferr الحين طمعتنا في رؤية الناتج لهذا الطموح والحلم ( عجل الله فرجه ) 😅 الله يوفقك لإنجازه وييسر لك كل الإمكانيات المتاحة لذلك 😊

كلمة شكر وعرفان لك مهنسنا العزيز @SEMO.Pa3x 🙂 هذي الأداة مريحة جدا ماشاء الله .. تخف علينا نصف العناء أثناء التنصيب وخصوصا للأجهزة البعيدة فقط أنا قمت بتعديل بسيط في الكود لتعمل على النظامين 32 و 64 بت .. 🙂 وأتمنى لو يكون فيه طريقة أيضا لإضافة تعيين التنسيق الإقليمي مرة وحدة ( كتعديل على الأداة ) وبالمرة أتمنى لو يكون فيه طريقة لعمل كل هذا عن طريق الأكسس بدون أدوات خارجية مساعدة 🙂 الكود المعدل : #If VBA7 Then Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #Else Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #End If Const SW_SHOWNORMAL = 1 Private Sub cmd_change_Click() If IsNull(comb_countries) Then Exit Sub Dim SetLocaleInfo_File As String Dim Parameters As String SetLocaleInfo_File = CurrentProject.Path + "\SetLocaleInfo.exe" Parameters = comb_countries ShellExecute 0, "runas", SetLocaleInfo_File, Parameters, vbNullString, SW_SHOWNORMAL End Sub والمرفق بعد التعديل : SetLocaleInfo.rar

كل الشكر لك أخي @عمر ضاحى 🙂 وأستغل هذه المناسبة الجميلة لعرض طريقة جديدة تعلمتها لكتابة الأكواد مع قيم True & False .. جرب كتابة الأكواد بهذه الطريقة : Private Sub Command31_Click() Me.ApprovedOK = Not ApprovedOK Me.imgApproved.Visible = ApprovedOK End Sub Private Sub Form_AfterUpdate() Me.imgApproved.Visible = ApprovedOK End Sub Private Sub Form_Current() Me.imgApproved.Visible = ApprovedOK End Sub والنتيجة نفسها طبعا .. مع زيادة إمكانية التراجع عن الموافقة 🙂