ابوآمنة

وعليكم السلام ورحمة الله وبركاته حياك الله أخي سمير حسب فهمي لسؤالك تفضل BuySal20_V14.zip

وكل عام وأنتم بخير وتقبل الله طاعتكم وشكرا لك التهنئة اخي احمد

سررت بردك جداً .🥰 شاكر مرورك المتواضع استاذي أبو آدم فما نحن إلا حسنة من حسنات علمك المبارك . نفع الله بعلمك وعملك .

تفضل ضع الكود <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> <button idMso="Cut" label="Cut" size="large" /> <button idMso="ExportExcel" label="Export For EXC" size="large" insertBeforeMso="Cut" /> <button id="RunMacro" label="Open" size="large" imageMso="ViewsFormView" onAction="OpenForm"/> </group> </tab> </tabs> </ribbon> <!--كود إيقاف جميع أوامر file بداية--> <backstage> <button idMso="FileCloseDatabase" visible="false"/> <button idMso="SaveObjectAs" visible="false"/> <button idMso="FileSaveAsCurrentFileFormat" visible="false"/> <button idMso="FileOpen" visible="false"/> <button idMso="FileSave" visible="false"/> <tab idMso="TabInfo" visible="false"/> <tab idMso="TabRecent" visible="false"/> <tab idMso="TabNew" visible="false"/> <tab idMso="TabPrint" visible="true"/> <tab idMso="TabShare" visible="false"/> <tab idMso="TabHelp" visible="false"/> <button idMso="ApplicationOptionsDialog" visible="false"/> <button idMso="FileExit" visible="false"/> <button id="btnPrintPreviewClose" isDefinitive="true" label="Close Preview" imageMso="PrintPreviewClose" onAction="OnActionClose"/> </backstage> <!--كود إيقاف جميع أوامر file نهاية--> </customUI>

وعليكم السلام شاكر لك أخي محمد نفع الله بكم بالنسبة للاخ @eideid الاستعلام user Table معطوب لانه يعتمد على جدول users قم بحذفه لا يؤثر على عمل البرنامج . وايضا الاستفسار الثاني قم بحذف دالة if بكاملها فلا داعي لها . وشاكر للاخوة تجربتهم . وشكرا لكم.

الله يكون في العون والحمد لله على كل حال لا تتعب حالك أخي ليس بالمهم . وشكراً لك

بعد تجربة الاستماع من خلال الانترنت ممتاز جداً . أما تجربة الاستماع من خلال ملفات منزلة على جهاز الحاسب لم يعمل معي لأول مرة . حتى قمت بالدخول على جدول المسارات tblDataServerQuran كما أشرت في موضوع أعلاه 👆وتغيير موقع الملف يدوياً والحمد لله ويعمل الآن بشكل ممتاز . كما اتمنى أن يكون تغيير الرابط تلقائيا أو من خلال تحديد الملف برمجياً . وشكراً لكم من الأعماق محبك في الله آبوآمنة

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

وعليكم السلام ورحمة الله وبركاته وشكراً لثناءك و دعاءك ولك بمثله وللمسلمين أجمعين : اللهم آمين بما أني هذه الفترة مشغول بأعمال كثيرة . سوف أبدأ معك في كيفية إضافة العملة في البرنامج أين تريد إضافة أو وضع هذه العملة بعد التحويل ؟ يعني تريد إظهار القيمة بعد التحويل في إجمال الفاتورة ؟ أو مع الصنف ؟ اشرح لي الفكرة التي تريدها .

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

مساهمة مع أخي رمهان أضف بعد هذه هذه السطر DoCmd.GoToRecord , , acFirst هذا الكود rs.MoveFirst شاهد المرفق Posters5.zip

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

تفضل أخي فايز بعد التعديل لعله يكون استكمالاً لما تريده Posters4.zip

شاهدت الملف الأخير

إضافة تم تضليل عنصر البحث Posters4.zip

مساهمة مع أخواتي الخبراء تفضل لعله يكون المطلوب تم إضافة زر البحث بجزء من الكلمة يمكنك أيضا التنقل بين خانت البحث المطابق برز التنقل If IsNull(Me.txtSearch) Then Me.FilterOn = False: Exit Sub Me.Filter = "[StName] like '*" & txtSearch & "*'" Me.FilterOn = True Posters4.zip

@محب العقيدة اختيار موفق وأمثلة برمجية رائعة تشكر عليها . إن كنت من مستخدمي SQL SERVER . سأسألوك عن تجربتك ؟ و عن الأخطاء التي واجهتك ؟ وكيف تغلبت عليها .

شكراً لك أستاذي ومعلمي جعفر وهذه بعض محاولاتي لإنشاء مربع قيم متعددة تضاف القيمة بالنقر مرتين وتزال القيمة أيضا بالنقر مرتين . وهذا كود مربع القائمة Private Sub listBoox_DblClick(Cancel As Integer) 'inStr = "لمعرفة موضع ظهور السلسلة النصية" Text9 = InStr(1, txt1, listBoox.Column(0), vbTextCompare) If Text9 = 0 Or Len(txt1 & "") = 0 Then 'For Each = "الدوران على القيم وإَضافتها إلى حقل المستهدف" For Each m In listBoox.ItemsSelected txt1 = txt1 & listBoox.ItemData(m) & ";" Next Else 'في حال إضافة القيمة مرة أخرى يتم الحذف txt1 = Replace(txt1, listBoox & ";", "") End If End Sub وكود إخفاء وإظهار مربع القائمة Private Sub C_List_Click() If C_List.Caption = "إظهار" Then listBoox.Left = txt1.Left listBoox.Top = txt1.Top + txt1.Height listBoox.Height = 1400 listBoox.Width = txt1.Width listBoox.Visible = True C_List.Caption = "إخفاء" Else C_List.Caption = "إظهار" listBoox.Visible = False End If End Sub بالمرفق الملف SQL_multivalue_field.zip

استاذي محمد حل رائع معالجة البيانات أثناء استدعاءها في البرنامج شكراً لك استاذي هديتي لك 🍦 😁

عندك مجموعة حلول منها : الحل الأول : تعمل استعلام حذف للجدول وتحدد معييار لحقل Teacher = "الإسم" وهذا تضعه في جملة الاستعلام DELETE Teacher.Teacher FROM Teacher WHERE (((Teacher.Teacher)="الإسم")); تفضل بعطيك الحل الثاني إن شاء الله تعالى الحل الثاني : بالكود تفضل : Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Teacher") rst.MoveFirst rst.Delete rst.Close MsgBox "تم الغاء السجل الأول من الجدول", vbOKOnly

حل رائع ومتنوع

الحمد لله أنه قال: تفاحة ما قال عروسه لأنا مراقبين و من الخائفيين 🤣 يا ساتر 😁

السلام عليكم كل شيء عندك تمام إلا جدول Teacher غير حقل Email إلى مطلوب من نعم إلى لا فقط راح تضبط معك بإذن الله تعالى .

السلام عليكم ورحمة الله وبركاته نسأل الله لكم التوفيق والسداد ،،، واجهة مشكلة عندما قمت بتحويل جداول قاعدة البيانات إلى SQL SERVER لتكبير القاعدة . المشكلة هي : اختفى حقل القيم المتعدده من مربع التحرير والسرد حيث ظهرت لي القيم أحادية. سؤالي هل يمكن إضافة القيم المتعددة من خيارات وخصائص SQL SERVER أو يمكن ذلك برمجياً بإنشاء نموذج مع القيم و مربع نعم/ لا بجواره ، ثم إدراج القيم في مربع النص بهذه الصورة تصبح ( محمد _ صالح _ علي ) وهذا عندي الخيار الأخير . آملاً أن أجد الحل لديكم ؟

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