أحمد مبارك الحيقي

وعليكم السلام ورحمة الله وبركاته... ملحوظة جيدة أخي محمد، ولذلك عمدت إلى استخدام الاستعلام، لأنه لا يغير في قيم الجداول شيئاً، فقط يطابق الحروف مؤقتاً للمقارنة، ولذلك لم يضرنا أي تغييرات أجرينا، مادامت متطابقة في الحقلين المعنيين... مع العلم أن الاستعلام يقوم …

وعليكم السلام ورحمة الله وبركاته والله ما شاء الله عمل ممتاز أخي محمد... بارك الله لك.

وعليكم السلام ورحمة الله وبركاته... الأخ الكريم، أولاً: الموضوع لا شأن له بعباقرة أو عمالقة أكسس... الموضوع موضوع تصميم لحل يمكن أن يقوم به مستخدم أي نظام قواعد بيانات، كما يمكن أن يقوم به من يعمل على الدفاتر... ثانياً: إن كان الأمر ما وال قائماً، فهل من الممك…

الأخ الكريم، هناك العديد من المشاكل، لكن ابتداءً فإن هذا الكود: DoCmd.RunSQL "INSERT INTO rateb_net ( w_code, cut, orderdate )SELECT w_hasmait.w_code, w_hasmait.monay, w_hasmait.orderdate from w_hasmait WHERE (((w_hasmait.w_code)=[forms]![w_rateb_f]![v3]) AND …

وبناءً على فتح الأستاذ إكسير، ما رأيك أن تجرب الاستعلام التالي: SELECT Tblnames1.name FROM Tblnames1, tblnames2 WHERE Replace(Replace(Replace([Tblnames1].[name]," ",""),"ة","ه"),"أ","ا") like Replace(Replace(Replace([Tblnames2].[a_name]," ",""),"ة","ه"),"أ","ا…

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

الأخ الحبيب محمد ندا... الدالة المرفقة هي من صنع أحد المبرمجين (اسمه في مقدمة الدالة) كان قد نشرها قديماً في موقعه، وهي من حيث هي مجرد كود قد تستخدم مثله يومياً في برامجك، لكن البعض قد تناولها شرحاً واستخداماً لشبهها مع الدالة الشهيرة DLookup، وهي مريحة لاستخد…

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

هذا مثال أخي... ELookup_Example.rar

العفو أخي، نعم يمكن ذلك إذا كنا نعلم أن إشارة الضرب (أو أي إشارة معروفة أخرى) ستكون هناك دائماً. الفكرة هي في فصل جملة واحدة إلى أجزاء بالاعتماد على حرف أو تشكيلة من الحروف (مثلاً الفراغ) كفاصل، ثم عرض هذه الأجزاء في مربعات مستقلة؛ هذا الفصل هو الذي تقوم به ال…

الأخ العزيز مالك المقطري: إجابة نموذجية، وليست صحيحة فحسب، وقد أصبت في أن التجميع حسب الاسم كان لمجرد التنبيه إلى فكرة أن التجميع تعتمد على وجود قيم متطابقة (في حقل التجميع) بين بعض الصفوف حتى يتم تجميعها في مجموعة واحدة، وإلا كان كل صف مجموعة بحد ذاته، وفقد ا…

وعليكم السلام ورحمة الله وبركاته... أولاً: أحيي أخي العزيز محمد ندا على اهتمامه، وملحوظته منطقية جداً، وأظن أنها بالفعل أفضل للسائل والمسؤول، وكل من يهتم بالموضوع حالياً، أو فيما بعد. ثانياً: أحيي الأخ الكريم m00j على روحه العالية، وأسلوبه المهذب. ثالثاً: دالة…

Private Sub cmdSplit_Click() Dim arrOps() As String arrOps = Split(txtExpression, " ") If UBound(arrOps) > 0 Then txtOp1 = arrOps(0) txtOperator = arrOps(1) txtOp2 = arrOps(2) Else txtOp1 = "0" txtOperator = "x" txtOp2 = arrOps(0) End If End Sub

هذه من الطرق المختصرة الممكنة، واستخدمت فيها الدالة split: Private Sub cmdStatistics_Click() Dim txt As String txt = Trim(tstNames) txtLines = UBound(Split(txt, vbCrLf)) + 1 txtWords = UBound(Split(txt, " ")) + Val(txtLines) txtLetters = Len(txt) - (Val(txtLin…

يمكن ذلك باستخدام الدالة split كحل سريع على سبيل المثال، كما في ملفك المرفق أخي: Private Sub cmdSplit_Click() Dim arrOps As String arrOps = Split(txtExpression, " ") txtOp1 = arrOps(0) txtOperator = arrOps(1) txtOp2 = arrOps(2) End Sub لاحظ أن الحل يفترض أن بي…

على الرحب والسعة أخي، ولكن لم أفهم السؤال: count لماذا؟ لعدد الحروف، أم عدد الأسطر؟ أم ماذا؟ وإن شاء الله طلبك مجاب... أخوك أحمد

الإخوة الأعزاء جميعاً، المدير محمد ندا، سامح، sandm: بارك الله فيكم، مسرور للقاكم مرة أخرى، فإن قصرت أو أخطأت فالسماح، وإن وجدتم فائدة فالدعاء، ومن قال جزاك الله خيراً فقد كافأ... الأخ مالك: يا مرحباً بك، سعيد لوجودك معنا، ودع عنك حكاية الخبير هذه، فكلنا يأخذ …

في هذه الحالة فإن غاية ما يمكنني تقديمه لك هو المثال التالي في الملف المرفق، مع ملحوظتين: 1. ارجع إلى http://www.codeproject.com/Messages/262266...T-function.aspx من أجل مصدر المثال. 2. هذه واحدة من محاولات التقريب التي وجدتها بعد استخدام الجوجل، ويمكنك باستخد…

وعليكــم السـلام ورحمة الله وبركاتـه.. إليك أخي هذا المثال... SelStart.rar

أخي الكريم، تستطيع استخدام كائن إكسل من VBA لملف أكسس، ثم استخدام كائناته وطرقه كالتالي (لا تنس إضافة المرجع كما في الصورة): وهذه هي النتيجة: والله أعلم