ابوآمنة

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

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

مساهمة مع أخي رمهان أضف بعد هذه هذه السطر 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 أو يمكن ذلك برمجياً بإنشاء نموذج مع القيم و مربع نعم/ لا بجواره ، ثم إدراج القيم في مربع النص بهذه الصورة تصبح ( محمد _ صالح _ علي ) وهذا عندي الخيار الأخير . آملاً أن أجد الحل لديكم ؟

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

أخي وحبيبي أبا جودى هل جربت هكذا units2: G_to_K_u(IIf(IsNull([units]);0;[units])) wzn2: G_to_K_w(IIf(IsNull([units]);0;[units]);IIf(IsNull([wzn]);0;[wzn]))

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

استاذي الفاضل صالح بانتظار المرفق المفتوح بأسرع وقت لنرى الكود العجيب الذي قام بإرسال البيانات .

صحيح قوقل تقوم بتحديث الجدول مباشرة لك لكن لم أوفق لستدعاء الجدول مباشرة أما طريقتي في استدعاء البيانات هي عن طريق تصدير الجدول إلى صفحة html متزامنة كل 5 دقائق افتح الصفحة الآن لترى عبارة قوقل أسفل الصفحة . https://docs.google.com/spreadsheets/d/e/2PACX-1vSi73gAAIE9Rv8Ux43jjcvq9SSpzdVzs3M3ZEtehWqqP0pW4NLFLnkX3Iqoc9dYm_cx8vPz9S1465zd/pubhtml وهذه الطريقة التي قمت باستدعاء البيانات منها .

كيف ما فهمت ممكن نطلع على الأكواد لنفهم جيداً .

يا سلام عليك يا معلمنا جعفر بدأت أشك أنك تعرف جميع لغات البرمجة . لكن ما تبي أحد يدري .😄 لكن لا تبخل علينا حنا طلابك .

يا روعة يا أستاذ صالح صحيح تم إدخال البيانات بنجاح . شكراً لك أخي صالح باقي نعرف طريقتك بلهفة وبشوق . هذا مرفق قمت باستيراد القيم التي تم إدخاله من الجدول بهذه الطريقة استطعنا إرسال واستقبال القيم عن طريق الاكسيس أولاين عن طريق قوقل فورم لكن يعيب هذه الفكرة تحديث قوقل للجدول كل خمس دقائق . MYSite_saleh.zip

وهذا مثال قمت بالتجربة عليه . فقط نجحت فكرة إرسال القيم عن طريق صفحة مستقلة من متصفح الويندوز إكسبلورر من خلال الكود التالي : Application.FollowHyperlink Address:="https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" Pause (2) Call SendKeys("{TAB}", True) Call SendKeys(F4, True) Call SendKeys("{TAB}", True) Call SendKeys("صالح البريكان", True) Call SendKeys("{TAB}", True) Call SendKeys("~", True) Pause (2) Call SendKeys("{TAB}", True) Call SendKeys("~", True) Call SendKeys("{CLEAR}{F4}", True) MsgBox "تم إرسال القيم" لكن لها عيوب أن المستخدم إذا غير المتصفح الإفتراضي للويندوز لا يعمل الكود . MySite.zip