نجوم المشاركات

مسالة البحث نعود للاستاذ صالح ولي عودة

تحية للجميع هذا تعديل بسيط على مشاركة الاستاذ صالح وكيفية البحث على جميع المواقع تعمدت ان يكون الكود مشترك بين طريقة الاخت السائلة في الدوران وطريقة الاستاذ صالح في البحث والتي اعتبرها هي الاجابة للسؤال شاركت فقط بكيفية الانتظار حتى تحميل الصفحة ثم البحث بنفس طريقة الاستاذ صالح Private Sub أمر86_Click() For i = 1 To DCount("*", "AppFiller2") Me.WebBrowser4.Navigate Me.الموقع While Me.WebBrowser4.Busy Or Me.WebBrowser4.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend If Me.WebBrowser4.Document.all.Item(i).innerText Like "*" & Me.t & "*" Then MsgBox "لقد تم العثور على الكلمة المطلوبة داخل هذه الصفحة" Exit Sub End If DoCmd.GoToRecord , , acNext Next i MsgBox "لم يتم العثور على كلمة البحث في هذه الصفحة" End Sub بالتوفيق وحبذا لو وضعت اختنا رابط الموضوع ل تحياتي

كنت أضفت الرد هنا منذ يومين لكن الظاهر أنه لم يصل بسبب ضعف النت تستطيع استعمال نفس الطريقة السابقة إضافة جدول به ثلاثة حقول (اسم الحقل . اسمه بالعربية . الجدول) و تستعمل الفلترة من أجل ظهور حقول الجدول المختار فقط. تفضل طلبك هنا و المسار موجود بالعبارة أدناه تستطيع تغييرها كما تشاء curPath = "e:\salah88.xls" كما لا تنسوا الضغط على زر الإعجاب للإجابات الصحيحة final.rar

فرضا أنك تريدين البحث داخل الصفحة 1- طريقة البحث و الدوران لا تصلح لأنه يجب أن تحمل الصفحة في المتصفح أولا. 2-لقد قمت بإنشاء مثال بسيط يمكنك من البحث داخل المتصفح عن كلمة أو قيمة ما. لقد أضفت زرين و مربع نص. تضغط على زر تصفح الموقع لظهور الموقع أمامك ثم. تكتبين الكلمة المراد البحث عنها داخل مربع النص ثم تضغط على زر بحث إذا الكلمة موجودة تظهر رسالة لقد تم العثور... و إذا الكلمة غير موجودة تظهر رسالة لم يتم العثور.... و الصورة أدناه توضح ذلك: WebAppFiller (1) (1).rar

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

السلام عليكم اخواني : الظاهر المشتهر في معظم منتديات الاكسس بالنسبة لهذا الموضوع أن الاستعلامات الجدولية لا تقبل المعايير وابحث ان شئت لترى النتائج . حيث ان بعض الحلول تقترح عمل تحايل لقبول ذلك وذلك بإنشاء جداول مؤقته يصاحبها استعلام انشاء لهذه الجداول واستعلام حذف . وحلول أخرى ترى ان يستند الاستعلام الجدولي الى استعلام تحديد توضع فيه المعايير بدلا من الجدول والصحيح أن الحل أقرب من ذلك وقد نجد تلميحات في بعض المشاركات ولكنها لم تعط الموضوع حقه من الشرح والايضاح . وسبب كون الاستعلامات الجدولية لا تقبل المعايير هو أن هذه المعايير غير معرفة لمحرك قاعدة البيانات فعند وضع معيار مثل القوسين [] ثم تشغيل الاستعلام تظهر الرسالة التالية : (محرك قاعدة البيانات microsoft.jet لايتعرف على[] كاسم حقل اوتعبير صالح) اذا الطريقة لجعل الاستعلام يعمل ويقبل المعيار هو ان نقوم بتعريف المعيار ويتم ذلك بخطوتين كالتالي: افتح الاستعلام الجدولي في عرض التصميم اكتب المعيار الذي ترغب ثم قم بتحديده ومن ثم انسخه من شريط الادوات افتح التبويب : استعلام ثم اختر : معلمات سيظهر مربع حوار المعلمات ويشتمل على عمودين : معلمة ، نوع البيانات في الحقل : معلمة الصق ما نسخته وفي الحقل : نوع البيانات اختر نوع بيانات الحقل (الذي هو مثبت في الجدول) انقر موافق كرر العملية لكل معيار شغل الاستعلام ستجد أنه استجاب لما وضعته من معايير معلومة صغيرة ارجو ان يكون فيها نفع كبير الصورة تتحدث :

ياراجل .. بس كده .. ايه الحلاوة دي انا ذهب تفكيري كيف الف على النماذج الفرعية وافلترهم واحد واحد فكرة ولا احلى منها تحياتي

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

بالتوفيق وكلها بركات الاستاذ صالح ودعواتكم لوالدي بالشفاء وجميع مرضى المسلمين اجمعين

نجح الامر اخي في الله لساني عاجز عن الشكر وابكي الان بكاءا مظفرا لشدة فرحتي لك تحياتي من كل قلبي انت والاخ صالح بارك الله فيكما وجعل لكم كل حياتكم خير وسعادة ودمت بخير الي الابد والله اني ابكي بكاءا مظفرا الان لاني وجدت ما اريد كم يعجز لساني عن الشكر ودمعي هي التي تشكركم الان

اختنا الكريمة في كود لاستاذ صالح استخدم دوران وبعدد 100 ليضمن المرور على جميع العناصر حسب فهمي وان اصبت انا هنا عدلت تعديل بسيط حيث يبحث في جسم الصفحة بغض النظر النظر عن العنصر ولم افهم لماذا لجاتي للتايمر .. هنا اكتبي النص المراد البحث عنه وسيتم الدوران حتى ايجاد الصفحة وسيتوقف القي نظرة ومازال كود الاستاذ صالح حاضر هنا web_seach.accdb

السلام عليكم ورحمة الله تفضل ما تريده في الملف المرفق... بن علية حاجي جلب الاسم عند كتابة الرقم حسب التاريخ.rar

الف الف شكر الك استاذ سيد هذا المطلوب

تفضل يا اخى مثال .rar

اخي الكريم.. تأكد من اللغة في control panal ان تكون اللغة العربية (السعودية) لان الملف شغال عندي تمام...

سوف أحاول

عليكم السلام ورحمة الله وبركاته تم عمل المطلوب باستخدام دالة countifs تفضل الملف Book1.xlsx

1- عندما تظهر الصفحة و تضغطي على زر بحث هل تظهر النتائج بشكل جيد و عدم ظهور رسالة خطأ. 2- ماذا تريدين أن تفعل الآن أو ما هي الإضافات التي تريدينها

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

تسلم اخى الغالى دايما متألق ربنا يجازيك خير

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

السلام عليكم سؤال1 : هل الكلمات المراد البحث عنها تكون في عنوان الصفحة المسجل داخل الجدول (في هذه الحالة الأمر بسيط) أم البحث سوف يكون في داخل الصفحة ذاتها (هذا الأمر صعب لكن سوف نحاول ما بوسعنا) سؤال2 : هل هذه روابط صفحات أنترنت مباشرة أو صفحات محفوظة في جهاز الكمبيوتر

هذه المعادلة في الخلية A2 واسحب نزولاً =IF(B2="","",SUBTOTAL(103,$B$2:B2)) اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتصبح هكذا =IF(B2="";"";SUBTOTAL(103;$B$2:B2)) File included _salimتصفية.xlsx

انا حملت لك الكود في حدث عند التحميل تقدر تحطه حيث تشاء نحن هنا نوصل المعلومه كي يستفيد الاخرين Me.Text10 = Format(Me.Text14, "dddd") Me.Text12 = Time() Me.Text14 = Date

تفضل اخى الكريم العاملين5.xlsm

هذه المعادلة =SUMPRODUCT((WEEKDAY(ROW(INDIRECT(A2&":"&B2)))<>3)*(WEEKDAY(ROW(INDIRECT(A2&":"&B2)))<6))-SUMPRODUCT(--(ROW(INDIRECT(A2&":"&B2))=$E$2:$J$2)) الملف مرفق أيام الشهر 2.xlsm

لحساب التاواريخ المستثناة هذه المعادلة يجب تطبيقها ياستعمال (Ctrl+Shift+Enter) وليس Enter وحدها =SUMPRODUCT((WEEKDAY($N$4:$N$34)<6)*(WEEKDAY($N$4:$N$34)<>3))-SUMPRODUCT(IF(ISNUMBER(MATCH($E$2:$J$2,$N$4:$N$34,0)),1,0))

هذه المعادلة =SUMPRODUCT((WEEKDAY($N$4:$N$34)<6)*(WEEKDAY($N$4:$N$34)<>3))

عدل على ملف ابو محمد بما اشرت اليه اتفضل test age (1).rar

=COUNT(A2:A20) هذه الدالة لمعرفة عدد الخلايا التي تحتوي أرقام وإذا أردت عدد الخلايا التي تحتوي أرقام وحروف ( فيها أي قيمة ) تستخدم الدالة التالية : =counta(A2:A20) أخي المحترم : طلب العضو واضح ، لماذا نطلب منه رفع ملف ؟

اهلا بك اخى الكريم فى المنتدى وعليكم السلام لا يمكن العمل على التخمين يمكنك رفع ملف وشرح المطلوب بالتفصيل

نسيت أمر هذا السؤال ليس عليك تغيير اسم الجدول ليظهر أمام المستخدم بالعربية. إطلع على المرفق و وافني بالنتيجة الآن zeyad.rar

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

هذا الكود يقوم بتغيير اسم الجدول و ليس اسم الحقل لماذا تريد تغيير اسماء هذه الجداول للعربية لماذا تكررها أكثر من 12 مرة لقد أجبت عن هذا السؤال في هذه المشاركة:

السلام عليكم أولا: معذرة على الإطالة كنت مشغولا جدا و لم أدخل على الموقع يوم أمس ثانيا: أظنك فهمت الموضوع بالخطأ فالطريقة لا تكون بهذا الشكل بين 3 جداول لاحظ معي جيدا: 1- عندما تريد معرفة طريقة كتابة استعلام مركب من جدولين أو أكثر أو حتى جدول وحيد قم بإنشاء هذا الاستعلام و اتبع الخطوات الموجودة بالصور أدناه و هذا هو المرفق بعد التعديل جربه و وافني بالنتيجة zeyad.rar

يمكنك إجراء بحث عن: (<[0-9]@>) واستبدال بـ: (\1) مع اختيار استخدام أحرف البدل. غير أن هذه الطريقة لا تنجح تماماً إن وُجدت أحرف موصولة بالعدد (مثلاً: رجلان و3 نساء... في عام 1400هـ.) في هذه الحال جرّب هذه الطريقة البديلة (مع اختيار استخدام أحرف البدل): بحث عن: ([![0-9])([0-9]@)([![0-9]) واستبدال بـ: \1(\2)\3

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

نعم هناك بعض الإضافات يجب التعديل عليها. أولا: عند ربط جدولين في الاستعلام يجب استخدام INNER JOIN. ثانيا: هناك أحد جداول النظام اسمه MSysRelationships يخزن العلاقات بين الجداول و حقول ربطها نستطيع من خلاله معرفة الحقول الربط بين الجداول. ثالثا: لقد قمت بإضافت مربعي نص t1 و t2 لحفظ أسماء الجداول المستعملة في الاستعلام. أما الكود فقد قمت بالتعديل على كائنين فقط. الكائن الأول: هو مربع التحرير و السرد الخاص بإضافة الحقول و هذا هو الكود المضاف : If IsNull(Me.tb1) Then Me.tb1 = Me.ChooseTble ElseIf Me.tb1 <> Me.ChooseTble Then Me.tb2 = Me.ChooseTble End If الكائن الثاني: هو زر إنهاء التحديد و هذا هو الكود بعد الإضافة و التعديل: On Error Resume Next Dim x As Integer Dim xstr As String Dim CountStrTbl As Integer If Not IsNull(Me.tb1) And Not IsNull(Me.tb2) Then x = 2 If DCount("*", "MSysRelationships", "szRelationship='" & Me.tb1 & Me.tb2 & "'") > 0 Then xstr = Me.tb1 & Me.tb2 Else xstr = Me.tb2 & Me.tb1 End If End If CountStrTbl = Len(Me.ChooseTble) Me.ExportTo.Enabled = True If Left(Me.TxtForQuery, CountStrTbl) = Me.ChooseTble Then Exit Sub If x = 2 Then Me.TxtForQuery = Me.TxtForQuery & " From " & Me.tb1 & " INNER JOIN " & Me.tb2 & " ON " & DLookup("szObject", "MSysRelationships", "szRelationship='" & xstr & "'") & "." & DLookup("szColumn", "MSysRelationships", "szRelationship='" & xstr & "'") & " = " & DLookup("szReferencedObject", "MSysRelationships", "szRelationship='" & xstr & "'") & "." & DLookup("szReferencedColumn", "MSysRelationships", "szRelationship='" & xstr & "'") & ";" Else Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble End If Me.EndForQuery.Enabled = False

جيد اسمك جميل هكذا نستطيع مناداتك باسمك أخي زياد تفضل إطلع على هذا التعديل و وافني بالنتيجة: 111.rar

Private Sub Dispatch_ID_AfterUpdate() Dim i As Integer, ii As Integer For i = 1 To Me.Dest_office.ListCount - 1 If Me.Dest_office.ItemData(i) = Mid([Dispatch_ID], 1, 3) Then Dest_office = Mid([Dispatch_ID], 1, 3) Else Dest_office = Null Next i For ii = 1 To Me.Subclass.ListCount If Me.Subclass.ItemData(i) = Mid([Dispatch_ID], 4, 2) Then Subclass = Mid([Dispatch_ID], 4, 2) Else Subclass = Null Next ii 'Dest_office = Mid([Dispatch_ID], 1, 3) 'Subclass = Mid([Dispatch_ID], 4, 2) Dispatch_year = Mid([Dispatch_ID], 5, 2) no_dispatch = Mid([Dispatch_ID], 8, 2) End Sub 1.rar

السلام عليكم انظر الي الملف وانظر ترحيب 2 ترحيب.xls ترحيب2.xls

وعليكم السلام عليك بلصق هذه الأكواد فى حدث This Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "مع السلامة " & Application.UserName & _ vbNewLine & "فى حفظ الله شرفتنا", _ vbInformation, "منتدى أوفيسنا" ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() MsgBox "أهلا وسهلا يا " & Application.UserName & _ vbNewLine & "أتمنى أن تكون فى أفضل حال", _ vbInformation, "منتدى أوفيسنا" End Sub

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

وعليكم السلام لو كنت مخبرنا من البداية قصدك ، كنا اعطيناك الحل من البداية والكود هو: myApp = Me.txtOpenFile 'myApp = "F:\Temp\myDatabase.mdb" 'Shell myApp, 1 Application.FollowHyperlink myApp اما مربع النص ، فيمكنك ان تكتب فيه المسار يدويا كذلك ، مع اني اضفت امكانية فتح ملفات الاكسس كذلك. جعفر 53-Word_Print.zip

كود لاخفاء واظهار الأعمدة الأكواد المستخدمة Sub إخفاء() Sheets("ورقة1").Select Columns("A:d").Select Selection.EntireColumn.Hidden = True MsgBox "مع تحياتى / قنديل الصياد' " End Sub Sub اظهار() Sheets("ورقة1").Select Columns("A:d").Select Selection.EntireColumn.Hidden = False MsgBox "مع تحياتى / قنديل الصياد" End Sub اخقاء واظهار الاغمدة.rar

اخى العزيز كود لاخفاء واظهار الصفوف مع عمل حماية للورقة كلمة السر لفك حماية الورقة 1964 الكود المستخدم للاخفاء Sub اخفاء() SpreadsheetPassword = 1964 ActiveSheet.Unprotect Password:=SpreadsheetPassword Rows("8:20").EntireRow.Hidden = True ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True ActiveSheet.EnableOutlining = True MsgBox "مع تحياتى / قنديل الصياد" End Sub الكود المستخدم للاظهار Sub اظهار() SpreadsheetPassword = 1964 ActiveSheet.Unprotect Password:=SpreadsheetPassword Rows("8:20").EntireRow.Hidden = False ActiveSheet.Protect Password:=SpreadsheetPassword, UserInterfaceOnly:=True ActiveSheet.EnableOutlining = True MsgBox "مع تحيات تى / قنديل الصياد" End Sub