ابو جودي

طيب ممكن طلب ممكن حد عنده ويندوز 7 32 Bit ادخل ريموت معاه واشوف اللى موافق يقول لى اراسلة خاص واخد منه اى بى ال anydesk انا للاسف فرق نسخ الويندوز مش قادر اتاكد من المعلومة اللى راح اطرحها الا لما اكتشف بنفسى الاعدادت وطريقة الضبط يا دكتور @الحلبي انت ويندوز 7 , 32 بيت ؟! او الاستاذ @حسام نصير عند حضرتك مانع ادخل الان على جهازك ريموت ونشوف المشكلة سوا وان شاء الله نحاول نلاقى حل ؟!

طيب جرب حمل هاد التطبيق https://drive.google.com/uc?id=1xHo6J688Vox4u9zwLzNbZUE1Mm1-9Vp4&export=download

حلو قوى فكرة الربط دى Early binding لم يعتمد على مكتبات الـ API من خلال الربط المباشر عن طريق الـ Reference المثال يحتاج لروقان وسطلين شاى ومش وقته لم انم منذ يومان 🥱

نوع الويندوز ايه وكام بيت

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

ام نتبه لها ذت مرة وصار لى يومين او ثلاث اراجع الاكواد وما كنت فاهم وين المشكلة وما ناتبهت لموضوع المسافة وبفضل الله تعالى صم توجيه استاذى الجليل ومعلمى القدير الاستاذ @jjafferr بارك الله له فى صحته وفى علمه نبهنى لتلك الجزئية وانتهت معها مشكلتى ووكنت مذبهل لدقائق معدودة وانا اضحك على تلك المشكلة العجيبة والغريبة ان الاكسس فى محرر الاكواد لم يضع المسافة من تلقاء نفسه ولم يعطى اى أخطاء عند استخدام الـ Debug وكان هذا الموضوع الخاص بتلك المشكلة

ملاحظة هامة للامانة الكود منقول من احد الامصلة من مكتبتى حصلتها من احد المنتديات الأجنبية ذات مرة وضعت تعديلات طفيفة جدا جدا تكاد تكون لا تذكر كما ان المثال يستطيع قراءة النصوص بمختلف اللغات والتى يشترط تحميلها فى نظام التشغيل لديك ك Speech ضمن اللغات المتوفرة فى الويندوز

وزيادة فى الخير فكرة تانى اسهل للمبتدئين أمثالى ونصيحة لا تقم بالغاء حقل الترقيم الاساسى ID من الجداول فتح نافذة بناء على أكثر من شرط 2003.accdb بعد اذن حضرتك يا باش مهندس @Eng.Qassim تعديل ثغنون stLinkCriteria = "[Sys_ID]=" & Me![Sys_ID] & " And [Sys_Year]=" & Me![Sys_Year] & " and [Sys_Type]='" & Me![Sys_Type] & "'" الافضل فى وضع مسافة بين علامة التنصيص وكلمة And لتكون " And بدلا من "And

جرب الفكرة copy.accdb

السلام عليكم استاذ @محمد مدحت اهلا بيك مبدئيا بدون زعيق قبل أى شئ انا مررت على القاعدة والموضوع مرور الكرام بصراحة من فضلك جرب المرفق او تمام قول الحمد لله ولو لا قدر الله مش تمام سامحنى لان انا الى الان لم افهم اى شئ test(2).zip

السلام عليكم ورحمة الله تعالى وبركاته استاذ @حسام نصير ممكن تجربة المرفق الاتى اولا ولى عودة ان شاء الله وكان لى فى العمر بقية هذه تجربة جديدة فقط لقراءة النصوص العربية واعتقد انها تعتمد على وجود اللغة العربية ك Speech ضمن الويندوز لذا بعد تجربتكم رجاء أخبرنى هل تمت القراة بنجاح ام لا وفى حالة لم تتم القراءة رجاء أخبرنى بيانات الويندوز الذى تعمل عليه ؟ ومرفق ملف تطبيق يساعدك على تثبيت اللغة التى تريد قم بتجربته VoicesInstaller Test.accdb VoicesInstaller.zip

للعلم هذا اختيار موقف وللعلم ان اردت النقر على هذا الباب ابتعد عن VB.Net هى ليست حديثه بدأت اللغة كما عرفت اولا بـالـ C ثم الـ C++ ثم الـ C# https://ar.wikipedia.org/wiki/سي%2B%2B ثم تم التطوير بعد ذلك https://ar.wikipedia.org/wiki/سي_شارب وذلك لتنافس Java ولغات البرمجة الاخرى

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

اتفضل Gyab_2.rar

اتفضل قم بمشاهدة هذا الموضوع برنامج انتظار الدور

راجع الموضوع الاتى عدم عرض التقرير إذا كان فارغ

طيب سوى جدول باسم tblRegistrationDate وسوى بداخلة حقل من نوع تاريخ باسم RegistrationDate وسوى جدول للتجربة باسم tblData وسوى بداخله اى حقول من اى نوع بيانات تريدها للتجربة سوى نموذج مصدر بياناته الجدول tblData على ان يكون داخل النموذج فى الفوتر مثلا بعيد عن الحقول الرئيسية للجدول العناصر الاتية بالترتيب بالاسماء الاتية عدد 2 مربع نص + عدد 1 زر أمر مربع النص الاول يكون باسم txtRegistrationDate مربع النص الثانى يكون باسم txtDayDate زر الامر سمه ما شئت الاكواد المستخدمة تكون كالاتى اولا عند فتح النموذج txtRegistrationDate = Nz(DLast("[RegistrationDate]", "tblRegistrationDate")) وهذا لجلب آخر قيمة تاريخ سوف تقوم بتسجيلها داخل جدول tblRegistrationDate ثانيا مربع النص txtDayDate اعتبره تاريخ اليوم ضع فيه تاريخ اليوم للتجارب كما تريد قصدت فى الشرح استخدامه كمربع نص لتغير قيمة التاربخ لمرونة التجربة بعد ذلك استبدله بدالة Date() ثالثا على زر الامر عند النقر ضع الكود الاتى Select Case Nz(txtRegistrationDate, "") Case Is = "": Exit Sub Case 1 = Format(CVDate(txtDayDate), "dd/mm/yyyy") > Format(CVDate(txtRegistrationDate), "dd/mm/yyyy") Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Case Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End Select Me.Requery اعتذر لتقديم الاجابة النظرية فقط فى الوقت الراهن

الكود يعمل بنجاح على الرغم من غرابة السؤال والاغرب منه تصور الافادة من تلك النتيجة قطعا اذا عرف السبب بطل العجب

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

ماشاء الله .. شغل جميل سلمت يمناك

ولكن الكود السابق قد نلاقى من وراءه بعذ الاخطاء فى حالة عدم وجود بيانات دولة فى جدول Cuntries حقل text1 فى جدول1 لا يحتوى على اى قيم وتلك هى السيناريوهات التى قد تحدث نتيجتها اخطاء وتوقف الكود عن العمل والتى خطرت على بالى لتلاشى تلك الاخطاء يكون الكود كالأتى On Error GoTo ErrorHandler Dim i As Integer Dim LookFor As String Dim FullName As String Dim strErrMsgTitel As String Dim strMsgErrPrt1 As String DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount LookFor = Trim(Nz(Me.text1)) FullName = DLookup("[LongName]", "[Cuntries]", "[ShortName] Like '*" & LookFor & "*'") If IsNull(Me.text1) Then: Me.text2 = vbNullString: Else Me.text2 = FullName DoCmd.GoToRecord , , acNext GoTo nxfor DoCmd.GoToRecord , , acNext nxfor: Next i procDone: Exit Sub ErrorHandler: strErrMsgTitel = ChrW("1582") & ChrW("1591") & ChrW("1571") strMsgErrPrt1 = ChrW("62") & ChrW("62") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("62") & ChrW("32") & ChrW("32") & ChrW("1607") & ChrW("1584") & ChrW("1607") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1583") & ChrW("1608") & ChrW("1604") & ChrW("1577") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1583") & ChrW("1585") & ChrW("1580") & ChrW("1577") & ChrW("32") & ChrW("1576") & ChrW("1580") & ChrW("1583") & ChrW("1608") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1583") & ChrW("1608") & ChrW("1604") Select Case Err.Number Case Is = 94 MsgBox$ LookFor & " " & strMsgErrPrt1, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, strErrMsgTitel FullName = vbNullString Resume Next Case Else MsgBox$ Err.Number & ": " & Err.Description End Select Resume procDone db2_text (5).mdb

ولو اخدت بالك انا قلت واسمح لى استاذى @Moosak طالما سبقتمونى اليها لانى كنت ناوى اقدم الفكرة الاخرى اليوم تعديل بسيط بوضع الكود على زر الامر كما يريد الاستاذ @سمير1404 Dim i As Integer Dim LookFor As String Dim FullName As String DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount LookFor = Trim(Nz(Me.text1)) FullName = DLookup("[LongName]", "[Cuntries]", "[ShortName] Like '*" & LookFor & "*'") If IsNull(Me.text1) Then: Me.text2 = vbNullString: Else Me.text2 = FullName DoCmd.GoToRecord , , acNext GoTo nxfor DoCmd.GoToRecord , , acNext nxfor: Next i db2_text (4).mdb

هذا تعديل بسيط New Microsoft Office Access 2007 قاعدة بيانات(2).mdb

من عيونى تحت امرك اولا الدالة InStr هى تستخم لمعرفة موضع أول ظهور لسلسة نصية فى سلسلة نصية آخرى وهنا لاننا نريد الكلمة الأولى والتى تبدأ بعدها مسافة سوف نعتبر ان المسافة هى المرشد الذى نستخدمه نريد معرفة موضع المسافة الاولى فى السلسة النصية كلها وعندما نستخدم الدالة InStr بهذا الشكل InStr([text1] & ""," ") سوف تعيد لنا رقم موضع المسافة داخل السلسلة النصية ثانيا الدالة Left تستخدم هذه الداله لاستخلاص جزء من الجهه اليسرى من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليسرى من النص وبما اننا حصلنا على رقم موضع المسافة من الدالة السابقة سيكون هو الوسيط الثانى الـ length فتكون الدالة بهذا الشكل Left([text1],8-1) وطبعا لاننا نريد حذف المسافة اضفنا -1 وبالنسبة لباقى الكود Select Case اعتقد مفهوم انظر للمرفق الاتى فى الاستعلام Query1 سوف تتضح لكم الررية افضل db2_text (3).mdb جزاكم الله خيرا .. اهلا بك ولكن لى وجهة نظر صغيرة لم نضع القيم مرة اخرى فى الحقل text2 بينما فكرتى الأولى توفر لك استخدما البيانات وتوفير حقل فى الجدول لقد وضعت لكم الفكرة تفى بالغرض وتصل بكم لمبتغاكم بطريقة مباشرة مع امكانية الاستغناء عن الحقل text2 فى الجدول وتوفير حجم البيانات

اتفضل db2_text (2).mdb