jjafferr

السلام عليكم 🙂 لا يمكن تصفية مربع التحرير إلا من حقل واحد ، لذا ، سنستخدم حيلة في انه اذا القيمة غير موجودة في الحقل ، فنستخدم الكود التالي لجلب القيمة المطلوبة: Option Compare Database Option Explicit Private Sub idbf_NotInList(NewData As String, Response As Integer) Dim ctlList As Control, i As Integer ' Return Control object variable pointing to list box. Set ctlList = Me.idbf ' Enumerate through selected items. For i = 0 To ctlList.ListCount - 1 If ctlList.Column(2, i) = NewData Then ctlList.Value = CInt(ctlList.Column(0, i)) Me.fo.SetFocus GoTo Get_Out End If Next MsgBox "هذه القيمة غير موجودة في القائمة" Get_Out: Response = acDataErrContinue End Sub . جعفر Combo_value_from_another_column.zip

يعني تريد اظهار قيم fo ، بشرط انها تكون موجود في الحقل bo كذلك ؟

وعليكم السلام 🙂 استعمل استعلام union ، بحيث من اول استعلام يظهر لك قيمة الحقل fo ، والاستعلام الآخر يظهر لك قيمة الحقل bo ، وتجمع الاستعلامين في استعلام union 🙂 االشرط الوحيد في استعلام union هو ان يكون عدد حقول الاستعلامات فيه ، نفسها ، يعني كل استعلام يظهر نفي عدد الحقول ، وهذا الاستعلام لا يميز بين نوع الحقول ، فتستطيع دمج حقل النص مع حقل الرقم مع حقل التاريخ ... جعفر

السلام عليكم 🙂 حيا الله اخوي حربي 🙂 ادارة الموقع وضعت قانون خاص بك 🙂 اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية جعفر

اريدك تعمل ملف اكسل فيه بعض النتائج الصحيحة (على الاقل 4 - 5) ، للحقول الثلاثة ، ومن البيانات الموجودة في مرفقك الاصل (وبدون عمل اضافات عليه) ، حتى اقدر افهم الموضوع كاملا 🙂 جعفر

العفو اخوي ، ولا يهمك 🙂 وان شاء الله تقوم بالسلامة 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك اخي مهند في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة وقد قمت بتغيير اسم الموضوع ، نظرا لأن اسم الموضوع السابق يخالف قوانين المنتدى: 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. جعفر

عفوا ، كان لازم اكتب هذه الجملة في مشاركتي السابقة ، ونسيت 😁 انتبه للعلاقة الجديدة التي عملناها ، فقد تؤثر على اشياء اخرى في برنامجك ، وتذكّر ، ان تجربتي كانت لهذه الجزئية لبرنامجك ، بعيدا عن بقية البرنامج 🙂 جعفر

تم دمج الموضوعين 🙂

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

وعليكم السلام 🙂 1. مرحلة التحليل: بما ان العلاقة بين الجدولين . اذن خلينا نشوف القيم كما هي بين الجدولين: . اذن هذه هي قيم MNO التي نريدها من مجاميع الحقل MUSNAD ، اي ان مجاميع الحقل MUSNAD ويقابلها اقل قيمة للحقل MNO . 2. مرحلة التطبيق: في الجدول TAB ، يجب تجميع الحقل MUSNAD ، واخذ اقل قيمة من الحقل MNO لكل MUSNAD . وهذه هي النتيجة ، وللتأكد (تطابق البيانات كما في الصورة اعلاه) : . نريد جملة SQL الاستعلام (نفس الاستعلام ، ولكننا نريد الحقل MNO فقط) . نضع جملة SQL الاستعلام السابق كمعيار للحقل (هذه يسمى استعلام فرعي) : . هذا يصير فقط اذا كان فيه علاقة بين الحقلين : بسبب وجود علاقة بين الجدولين TAB و Tab_Msaneed ، فنستطيع اضافة حقل آخر في العلاقة ، ولكن الاكسس لا يقبل بسبب عدم وجود فهرسة للحقل MNO في الجدول Tab_Msaneed الطريقة الاخرى لعمل هذه العلاقة: 1. نضيف الجدول TAB مرة اخرى في العلاقات ، فقام الاكسس بتسميته TAB_1 ، 2. نسحب الحل MNO من الجدول TAB_1 الى الحقل MNO في الجدول Tab_Msaneed (او العكس) ، فتظهر لنا هذه النافذة ، نختار الاختيارات الثلاث: Enforce : يتأكد من ان القيم صحيحة في الجدولين ، ولا يسمح بعمل قيمة في جدول غير موجودة في الجدول الآخر (الحقل الرأس) ، Update : عند تبديل القيمة في الحقل الرأس ، تلقائيا تتغير القيمة في الحقل الآخر (سواء كان سجل او مجموعة سجلات) ، Delete : عند حذف لقيمة في الحقل الرأس ، يتم حذف القيمة في الحقل الآخر (سواء كان سجل او مجموعة سجلات) . . جعفر 1418.Musnad.accdb.zip

ما شاء الله ، واقعا هذه اشياء جديدة علينا ، وفي انتظارها على احر من الجمر 🙂 الاكسس مليء بالمفاجآت ، ومفاجآته لا تنتهي 🙂 جعفر

السلام عليكم 🙂 انزلت المرفقين ، ولازلت لا اعرف مالذي يعمله اخيار الالوان من القائمة !! جعفر

موجودة في المشاركة https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=190590

السلام عليكم 🙂 هذا فهمي لقصدك: عندك شبكة فيها كمبيوترات ، تريد ان ترسل اي ملف من الشبكة الى كمبيوترك ، ليقوم كمبيوترك بطباعة الملف (سواء صور ، او ملفات اكسل او وورد ، او txt ، او اي ملفات اخرى يتعرف عليها حاسبك) ، ثم حفظ الملف في مجلد معين . اذا كان فهمي صحيح ، فالطريقة الامثل هي: ابحث في الانترنت عن: Hot Folder ، واختار البرنامج المناسب لك 🙂 هو برنامج تنصبه في كمبيوترك ، ويعمل مجلد (اعمل له مشاركة في الشبكة حتى تراه بقية الكمبيوترات وتستطيع ارسال الملف فيه) ، وتستطيع ان تبرمج هذا المجلد لعمل الذي تريده عن طريق اعداداته ، ومن ضمنها ان تطبع الملف الذي يُرسل اليه ، وبعد الطباعة ، يا تحذفه او تحفظه في مجلد آخر 🙂 جعفر

صدقني لا زعلان ولا متنرفس ، بس الظاهر ما عرفت كيف اصير ظريف !! جعفر

تم استبدال المرفق بمرفق آخر في مشاركتي السابقة ، ليكون كود نواة 64بت افضل 🙂 ولكن لا تزال مشكلة عدم رجوع البرنامج الى وضعه ، بعد تصغيره جنب الساعة!! جعفر

بس انا انا انا وش دخلني مع مايكروسوفت ، انا انا انا مجرد ناقل المعلومة ، وهذا الموضوع ليس فرض كفاية ، فادلو بدلوك في بئرهم 🙂 جعفر

وعليكم السلام 🙂 ما شاء الله عليك اخوي اباجودي ، جمعت الفريق كله في مكان واحد ، وفي منهم اللي ما يحب يلعب مع صاحبه 🙂 كنت اتمنى ان اقدم شرح ، ولكن هناك الكثير والكثير من التعديلات ، فسأجعلك تتابع التعديلات بنفسك ، واذا في اي سؤال خاص ، ان شاء الله اقدر ارد عليك 🙂 جعفر 8.1.Utilities Hide Ico Minimze To SysTray.accdb.zip

السلام عليكم 🙂 شفت بعض الاوقات لما تحس ان مخك ما يشتغل ، هذا انا الحين 😁 بما انك حددت وين المشكلة في برنامجك ، فانا عملت لك هذه المساعدة : وحدة نمطية اسمها mod_Global_Variables ، وفيها نحتفظ بنوع المستخدم في الحقل ppos ، ويمكن للبرنامج قراءته من اي مكان في البرنامج ، وعلى اساس قيمة ppos ، فقد وضعتها في حدث "الحالي" للنموذج ، فالرجاء وضعها بالطريقة الصحيحة (قلت لك مخي ما يشتغل 🙂) . جعفر 1417.moh.accdb.zip

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

عفوا ، رجاء ارسال ملاحظاتكم للرابط اعلاه ، الى مايكروسوفت مباشرة 🙂 جعفر

السلام عليكم 🙂 الله ان شاء الله يسهل عليك ، وقوم بالسلامة ان شاء الله 🙂 من الصعب التغلب على سرعة اباجودي 🙂 هذه محاولتي: الاستعلام: الحقل ALL ينادي الوحدة النمطية Count_Chr ، ويرسل معها قيمة الحقل Enter ، . الحقل ALL يستلم عدد مرات وجود الحقول الاخرى ، وبين كل قيمة حقل ، وضعت حرف ابجدي متسلسل ، حتى استطيع من خلال الاستعلام ان: انادي الوحدة النمطية مرة واحدة فقط لكل سجل ، ثم نفكك قيمة الحقل ALL الى بقية الحقول (وعلشان تجربة التفكيك ، قمت بعمل وحدة نمطية اسمها myTest ، وكل حقل اعطيته رقم a1 ثم a2 ... وهكذا) . الآن وعندك هذه القيم في استعلام ، وفي وحدة نمطية ، يمكنك الاستفادة منه بالطريقة التي تريدها 🙂 هذه هي الوحدات النمطية: Public Function Count_chr(str As String) As String 'NA = رقم عربي 'CA1 = حرف عربي 'NE = رقم انجليزي 'CE1 = حروف انجليزي كبيرة 'CE2 = حروف انجليزي صغيرة 'B1 = اشكال و رموز Dim i As Integer Dim NA As Integer, CA1 As Integer, NE As Integer, CE1 As Integer, CE2 As Integer, B1 As Integer Dim Each_Letter As String For i = 1 To Len(str) Each_Letter = Mid(str, i, 1) If Asc(Each_Letter) >= 48 And Asc(Each_Letter) <= 57 Then 'English Numbers NE = NE + 1 ElseIf Asc(Each_Letter) >= 65 And Asc(Each_Letter) <= 90 Then 'English, Capital letters CE1 = CE1 + 1 ElseIf Asc(Each_Letter) >= 97 And Asc(Each_Letter) <= 122 Then 'English, Samall letters CE2 = CE2 + 1 ElseIf (AscW(Each_Letter) >= 1569 And AscW(Each_Letter) <= 1594) Or _ (AscW(Each_Letter) >= 1600 And AscW(Each_Letter) <= 1610) Then 'Arabic Letters CA1 = CA1 + 1 ElseIf AscW(Each_Letter) >= 1632 And AscW(Each_Letter) <= 1641 Then 'Arabic Numbers NA = NA + 1 Else 'Symbols B1 = B1 + 1 End If Next i 'send the result, seperated with letters, 'then parse the result into its 6 components (see Function myTest) Count_chr = NA & "A" & CA1 & "B" & NE & "C" & CE1 & "D" & CE2 & "E" & B1 & "F" 'Debug.Print NA & vbTab & CA1 & vbTab & NE & vbTab & CE1 & vbTab & CE2 & vbTab & B1 & vbTab & str End Function Function myTest() Dim a1 As String, a2 As String, a3 As String, a4 As String, a5 As String, a6 As String, ALL As String ALL = "1A22B333C4444D55555E666666F" a1 = Mid(ALL, 1, InStr(ALL, "A") - 1) a2 = Mid(ALL, InStr(ALL, "A") + 1, InStr(ALL, "B") - (InStr(ALL, "A") + 1)) a3 = Mid(ALL, InStr(ALL, "B") + 1, InStr(ALL, "C") - (InStr(ALL, "B") + 1)) a4 = Mid(ALL, InStr(ALL, "C") + 1, InStr(ALL, "D") - (InStr(ALL, "C") + 1)) a5 = Mid(ALL, InStr(ALL, "D") + 1, InStr(ALL, "E") - (InStr(ALL, "D") + 1)) a6 = Mid(ALL, InStr(ALL, "E") + 1, InStr(ALL, "F") - (InStr(ALL, "E") + 1)) End Function . للحصول على الارقام الصحيحة للامر Asc (للارقام والحروف الانجليزية) و AscW (للارقام والحروف العربية) ، استعنت بالصور الموجودة في هذا الموضوع: https://www.officena.net/ib/topic/104923-قراءة-وتفكيك-بيانات-الحقل-الى-حقول/ ولكني لم افهم قصدك في آخر سجلين: المطوب لايتكرر و يسمح له بتكرر مرة واحدة جعفر 1408.Parse_a_Value.accdb.zip

السلام عليكم شباب 🙂 طريقتي: . وفي حدث "بعد تحديث" Date Start : Private Sub Date_Start_AfterUpdate() Me.cmb_3Dates.RowSourceType = "Value List" Me.cmb_3Dates.RowSource = Empty Me.cmb_3Dates.AddItem Me.Date_Start Me.cmb_3Dates.AddItem Me.Date_Start + 1 Me.cmb_3Dates.AddItem Me.Date_Start + 2 End Sub جعفر 1416.3Dates.accdb.zip

شكرا جزيلا اخوي موسى على هذا الاطراء 🙂 الحمدلله ، هذا من فضل ربي 🙂 جعفر