رمهان

كفيت ووفيت استاذ محمد ايمن وهذه بطريقة الفلترة : Private Sub txtSave_AfterUpdate() If IsNull(Me.txtSave) Then Me.FilterOn = False: Exit Sub Me.Filter = "[Opérateur] =" & [txtSave] Me.FilterOn = True End Sub وتظل ازرار التنقل بكود الاستاذ محمد ايمن كماهي وهي فعلا ماكنت اقصده من اوامر سهلة للاسف استاذ محمد ولا حتى الاحرف !! تحياتي للجميع

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

اخينا ابو عبدالله اسمح لي ان ابدي رايي في الاكواد السابقة وخصوصا قي اول مشاركة لك هذه الاكواد ذكرتني ببداياتي ومع الفيجول بيسك 4 هذه الاكواد فجول بيسكية بحته او ادق هي dao بحته فهل انت قادم للاكسيس من الفيجول بيسك ؟؟؟؟؟؟؟؟ ترى المحللين لديهم فراسة !!! مارايك ان اعمل لك اول مشاركة ولكن باكسس بحت ؟ وستلاحظ السهولة والفرق! وسيكون السناريو كالتالي: 1. يكتب المستخدم الرقم في المربع ثم انتر فتفلتر النموذج على هذه السجلات فقط 2. سيتم التنقل في لبيانات المفلتره بطريقة عادية واوامر معروفة سواء للخلف او للامام 3.عند مسح البحث ثم انتر تظهر جميع البيانات بالتوفيق

هذا تطبيق لكلام الاستاذ يوسف انظر اول سطر وللزر الوراء Private Sub Previous_Click() If DCount("*", "tblRealisation", "[Opérateur] =" & [txtSave]) = 0 Then MsgBox ("no records matched"): Exit Sub If Me.NewRecord Then Me.RecordsetClone.FindLast "[Opérateur] =" & [txtSave]: Me.Bookmark = Me.RecordsetClone.Bookmark: Exit Sub With Me.RecordsetClone .FindPrevious "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "أنت الآن في السجل الأول" Else Me.Bookmark = .Bookmark End If End With End Sub وهناك تنبيه اخر اخ ابو عبدالله لوكنت في السجل الثاني من النموذج ثم كتبت في مربع البحث 392 ثم نقرت للامام ستحصل على السجل صاحب الكود 65 ولن تعود ل 63 وهو يطابق الشرط بالتوفيق

اخي ابو نادر وجدت المشكلة بالنموذج "الشاشة الرئيسية" عملت نموذج جديد form1 ثم سحب وافلات النموذج الفرعي وتركت الاسماء كماهي ثم اشرت للعنصر من خلال المربع بالتقرير وسترى المسار كامل والصحيح لعنوان المربع بالنموذج الفرعي وكل شي تمام وبدون اكواد واصبح المربع بالتقرير يقرا العنصر بالنموذج الفرعي مباشرة من التقرير بالتوفيق sss.rar

امدكم الله بالصحة والعافية استاذنا القدير ابا احمد اغلب مانشارك به تعلمناه من فيض علمكم وخبراتكم النيرة تحياتي

يتطلب اولا نقل التركيز لعنصر اخر ثم تعديل الخاصية غذرا اكتب من الموبايل

بعد اذن الاستاذ يوسف جرب Criteria = "[Machine]='" & [cboMachine] & "' And [LaDate]=#" & Format(txtDate, "mm/dd/yyyy") & "# And [Opérateur] =" & [cboOpérateur] بالتوفيق

اخي الاستاذ ايمن في قراءة الكتب يتم وضع علامة عند السطر او الصفحة المراد الرجوع لها وهي قريبة لحد ما الى عمل ال bookmark فكاني اقول ضع الموشر بسجلات النموذج كما هو المؤشر لدى سجلات recodsetclone فانت تبحث وتذهب قدما ورجوعا في سجلات ا recordsetclone وعندما تستقر عند سجل معين تريد ان النموذج يظهر هذا السجل فتشير له بخاصية ال bookmark للنموذج ولابد ان تكون القيمة مناسبة فحتما سنسند قيمة ال bookmark ل recordsetclone لخاصية ال bookmark للنموذج وهنا سيظهر السجل الحالي في ال recordsetclone وهنا اوضح شي ما : كائن recodsetclone للنموذج ما هو الا كائن من نوع recordset وجميع خصائص وطرق كائن ال recordset يمكن تطبيق مع recodsetclone اتمنى ان الشرح مفهوم تحياتي

العفو وتذكير للمشرفين

الاستاذ محمد معروف وجودها في 2003 ولكن في 2016 لا اعلم ؟ حبذا ذكر تجربتك او رابط للمعلومة مشكورا والحقيقة المواضيع مكررة ولا اعلم لماذا لا نبحث اولا ؟ وللاسف انه الاجابات احيانا تاتي من مشرفين وبل من اعضاء الفريق الاداري وهنا تتكرر المواضيع بل قد يكون الجديد ركيكا مقارنة بالمشاركات القديمة ومن خبراء ! كما انه حبذا ان يكون عنوان الموضوع يدل على المحتوى والمناقشات ! فعنوان الموضوع حذف القاعدة عند تاريخ معين والمحتوى اصبح يناقش الحماية بالفلاش وهنا روابط لموضوع الحماية امل الاستفادة منها https://www.officena.net/ib/topic/62024-ممكن-طريقة-تمنع-نقل-البرنامج-من-فلاش-ميموري-لاخر-الا-بموافقتي/ https://www.officena.net/ib/topic/41572-تطبيق-الحماية-بأسلوب-الدنكل-الا-شوي/ https://www.officena.net/ib/topic/67834-هدية-إحمل-برامجك-داخل-قاعدة-بياناتك/ https://www.officena.net/ib/topic/68490-كيف-أجعل-البرنامج-لا-يعمل-إلا-على-فلاش-ميموري/?page=1 https://www.officena.net/ib/topic/41572-تطبيق-الحماية-بأسلوب-الدنكل-الا-شوي/?page=2 http://arabteam2000-forum.com/index.php?/topic/229696-حماية-اكسس-بالفلاشة/&page=1 http://arabteam2000-forum.com/index.php?/topic/56706-حماية-قاعدة-البيانات-برقم-الهارد-دسك/&page=1 بالتوفيق

ابشر استاذ محمد وياذن الله استاذنك لاحقا وبالتفصيل

مشاركة مع الاستاذ القدير يوسف ابو احمد ضع السطر التالي في اول كود الزر الى الوراء If Me.NewRecord Then Me.RecordsetClone.FindLast "[Opérateur] =" & [txtSave]: Me.Bookmark = Me.RecordsetClone.Bookmark: Exit Sub ليصبح الكود كاملا Private Sub Previous_Click() If Me.NewRecord Then Me.RecordsetClone.FindLast "[Opérateur] =" & [txtSave]: Me.Bookmark = Me.RecordsetClone.Bookmark: Exit Sub With Me.RecordsetClone .FindPrevious "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "ÃäÊ ÇáÂä Ýí ÇáÓÌá ÇáÃæá" Else Me.Bookmark = .Bookmark End If End With End Sub بالتوفيق طبعا باعتبار ان الرقم المراد البحث عنه موجود !

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

اخي الاستاذ عبدالله اي كائن تراه في الشاشة فهو في الذاكرة فيمكن الوصول له قد تكون العائق المسميات والتسميات بعدم وجود المسار الصحيح للعنصر ولي عودة بمحاولة في اكتشاف المشكلة الاخ ابو نادر سؤال يتبادر للذهن : لماذا لا تعيد كتابة المعادلة في مربع التقرير او نسخ المربع من النموذج ولصقه في التقارير ستكون نفس البيانات لانها نفس المعادلة خصوصا ونحن نستخدم dcount تحياتي

مشكور جدا استاذ جمال الان وضحت الفكرة من التحديث ! هل يمكن ينفع مع ملفات ال accde او mde ؟

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

46488-عرض-اسم-اليوم-مثل-الأحد-ولكن-بصيغةtext/

عزيزي لحل اشكالية التنسيق من الوورد بالماوس الايمن على حقل الدمج واختر الخيار toggle field codes سيظهر لك جملة بين قوسين . بعد اسم الحقل وقبل القوس الاخير اكتب الفورمات المناسبة لنوع الحقل سواء رقم او تاريخ مثلا للرقم \#0.00 وسيظهر الحقل كامل بهذا الشكل وعلى اساس ان اسم الحقل avg {MERGEFIELD avg \#0.00} بالتوفيق

انا حشارك فقط بوجود الخطأ في اول مشاركة وفي السطر rs.FindFirst "[UserName]= ' " & Me.txtUserName & " ' And [Department]= ' " & Me.Me.cboDepartment & " ' " تلاحظ تكرار me اخ بو عبدالله

العفو استاذ عبدالله وهذه فكرة اخرى sumdebit2: DSum("[debit]","entry","left([code]," & Len([code]) & ")=" & [code]) بالتوفيق

sumdebit: DSum("[debit]","entry","[code] like '" & [code] & "*'")

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

عزيزي هذا طلب لبرنامج كامل اعتقد ان مكانه المناسب قسم الاعلانات بالتوفيق

مداخلة بسيطة حل الاستاذ ابا جودي في مكانه فهو اخذ الشرط الذي هو اساس شرط ل اللون ! وهو حل يوفر علي ان ابحث عن حل يميز لون الرقم ! فالاخ السائل غير بالشرط في المشاركة اعلاه وهو طبعا سيكون الشرط في حل الاستاذ ابا جودي وهكذا كلما عدلت الشرط في كود عند الطباعة سيكون هو الشرط في حل الاستاذ ابا جودي وهكذا تحياتي