walid7799

اليوم طريقة بحث بشكل عبقرى يبحث عنه الكثير من المبتدئين أمثالى عايز أبحث فى كل الحقول ولكن بشروط معينة (كلمة أو حرف من كل حقل ويكون البحث مرتبط ويكون فى نموذج واحد) أزاااااى ى ى ى ى ى !!! 1- أولاً نعمل نموذج به قوائم منسدلة بعدد الحقول فى الجدول أو أكثر من جدول والتى يمكن البحث فيها أياً كانت (أرقام - تواريخ - حروف ... الخ) 2- نعمل استعلام يضم كل الحقول بأى جدول نريد أن ينضم إلى البحث (حتى لو ألفين حقل) ولا يهمك .. عك وربك يفك 3- نضع فى المعايير (Criteria) وعلى سطر واحد تحت كل حقل كالتالى بالترتيب [forms] ! [أسم فورم البحث] ! [أسم مكان البحث سواء كومبوبوكس أو تكست بوكس] ونكتب OR ثم نأخذ ما تم كتابته قبل كلمة OR نسخ وبعد كلمة OR نقوم اللصق حتى تصبخ الجملة قبل كلمة OR نفس الجملة بعدها ونأخذ مسافة ونكتب Is Null وبين Is وبين Null مسافة وتكرر العملية لكل حقل ملحوظة هامة:- بالنسبة للحقول النصية نفس الطريقة ... ولكن نضع قبل الجملة الأولى Like مسافة "*" مسافة & وذلك قبل كلمة OR لتصبح النتيجة كالتالى بالنسبة للأرقام وبالنسبة للحقول النصية تصبخ النتيجة كالتالى : ونضع كل ما سبق فى نموذج يكون مصدر سجلاته هدا الاستعلام ويكون نموذج فرعى ويكون النموذج الأول اللى فيه خانات البحث ... أوعى يكون حد نسيه النموذج أللى جبنه منه خانات البحث فى الاستعلام ... أيوه ه ه ه ه (هو دة) وضبع به نموذج الاستعلام ونعمل كويرى كل حاجة لكل حاجة بمعنى أن كل خانة بنكتب فيها تعمل كويرى لكل خانات البحث الأخرى ونضع زر بحث يقوم بعمل كويرى للصب الفورم الذى تظهر به نتائج البحث ... وأخيراً ... شكل نمودج البحث والسلام عليكم ورحمة الله وبركاته برجاء لا تنسونا بالدعاء ولمن علمنا والفضل كله لله

أعطاك الله مثلما قلت وشرح صدر وحل العقدة من لسانك وفقه قولك وسدد رجاءك ولنا مثله

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

جعله الله لكم صدقة علم جارية

صورة توضيحية أكثر

السلام عليكم .... هل من مجيب أرجو الاهتمام والرد للأفادة والاستفادة ووضع هذا الكود المميز داخل قسم الأكسس بالموقع المميز جدا جداً جداً (أوفيسنا)

6- ونبدأ بعد كتابة DoCmd.RunSQL (مسافة ثم ") ودون وضع مسافة ثانية نقوم بلصق الكود وفى بداية كل سطر ما عدا أول (") بدون الأقواس طبعا وفى نهاية كل سطر نكتب (" & vbCrLf & _) بدون الأقواس طبعا ما عدا أخر سطر نكتب فى نهايته (") وبدون أقواس أيضا مثال لوضع الاستعلام بعد كل شىء وتشغيله من خلال الأكواد دون ظهور رسائل التأكيد الخاصة بالأكسس DoCmd.RunSQL "INSERT INTO ShwImages2 ( Path, IDIMG, Nme2, IDDOC2, IDDOC1 )" & vbCrLf & _ "SELECT Images2.Path, Images2.IDD, Images2.Nme2, Doc2.IDD, Doc.IDD" & vbCrLf & _ "FROM Doc INNER JOIN (Doc2 INNER JOIN Images2 ON Doc2.IDD = Images2.IDD) ON (Images2.IDD = Doc.IDD) AND (Doc.IDD = Doc2.[IDD-1])" & vbCrLf & _ "WHERE (((Doc.IDD)=[Forms]![Ser-filter]![Sub_serfil].[Form]![DocIDD]));" أرجو أن أكون أفد كما أستفد من الاساتذة والذين سبقونا بالعلم وبما فتح الله عليهم من فضله أن فضل وربك عليكم عظيماً والسلام عليكم ورحمة الله دومتم فى رعاية الله وحفظه

3- نسخ الكود الموجود فى جملة SQL كمل هو 4- ندخل الى شاشة الاكواد VBA 5- نكتب فى الأمر

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

المديول 1 ، 2 ، 3 بهم نفس الأكواد وكل مديول خاص بالنموذج الخاص به أما باقى الأكواد موجودة فى كل نموذج ويمكن أرفاق أكثر من ملف بالاعتماد على هذه الأكواد وأرفاق أكثر من ملف فى المرة الواحدة بغض النظر عن نوع الملف وعرضه بالنموذج والنموذج الذى به الأكواد الأصلية المنسوخة للموديولات الأخرى هو form1 وباعتبار ما سيكون أن يصبح form1 صب فورم بكل النماذج الموجودة بداخله داخل النموذج الأول والذي سيكون projects المشروعات وبها اختيار المحافظة والمركز وأسم المشروع لتفرع منه الخطابات الخاصة به ويكون مرتبط علاقة 1 إلى متعدد

المطلوب استخلاص كود سحب أكثر من ملف فى المرة الواحدة ووضعه فى الجدول الخاص بالمرفقات أرسل أليك قاعدة البيانات كاملة زلكن بها مشاكل أرجو الاهتمام بالنقاط الخاصة بالمرفقات على وجه الخصوص الصادر الجديد3 - Copy.rar

السلام عليكم ورحمة الله وبركاته أخوانى الكرام كثيرا ما نحتاج أضافة مرفقات متعددة عند استدعاء دالة File Dialog والحمد لله نحمده أن يسر لنا معرفة وضع الدالة واستخلاص المسارات للملفات ولصق المسارات داخل قاعدة البيانات وفقنى الله فى ايجاد مديول من عمل أحد أخواننا الكرام يسمح بأرفاق العديد من الملفات بأى امتداد ولصق المسارات المتعددة دفعه واحدة إلى الحقول داخل الجدول المراد التسجيل به لتلك المسارات ويدعم جميع الصيغ للملفات وقابلنى مشكلة أننى لا أجد حلاً لأستخلاص الكود منفصلاً لوضعه بأحد النماذج بالقاعدة النى أعمل عليها رجياً من الله ثم من اساتذتنا بالمنتدى الكريم (أوفيسنا) فتح باب نقاش للموضوع والاستفادة من خبرات معلمينا بمنتدى أوفيسنا وكيفية استخلاص الكود والمديول به نفس الطريقة للأرفاق من الاسكانر والفيدر أذا كان يمكن المساعدة ووضع كود استخلاص مسارات الملفات (متعدد) عند طريق الاسكانر ، الفيدر ، المربع الحوارى للويندوز الأضافة أخوانى أن الكود الموجود فى زر أضافة المرفقات SetPathOfFiles1 'On Error Resume Next Dim fdialog As Office.FileDialog Dim File_PathM As Variant Dim File_Path As String Set fdialog = Application.FileDialog(msoFileDialogFilePicker) If Len(Dir(PathOfFile1 & Forms![Form1]![IDD], vbDirectory)) = 0 Then MkDir PathOfFile1 & Forms![Form1]![IDD] End If With fdialog .Title = "حدد الملفات التى تريد ارفاقها" .Filters.Clear .Filters.Add "All Files", "*.*" .AllowMultiSelect = True If .Show = True Then For Each File_PathM In .SelectedItems File_Path = File_PathM Copy_file File_Path Next Else MsgBox "لم تختر اى ملفات" Exit Sub End If End With Forms![Form1]![ImagesSubform].Requery Forms![Form1].SetFocus Forms![Form1]![ImagesSubform].SetFocus DoCmd.GoToRecord , , acLast On Error Resume Next Forms![Form1]![PicView].Picture = Forms![Form1]![ImagesSubform]![Path] ويعتمد على دالة GetFilenameFromPath وهذا داخل الفورم أما المديول به دالة لعمل مسار الملف وعمل ملف على الهارد يسك بأسم ID للسجل الأصلى ووضع المرفق به MKDIR

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

ما شاء الله تبارك الله أجزت وأحسنت شكرا لوقتك واهتمامك بحال غيرك اللهم سخر من عبادك من يقضى لأخى حاجته ... السلام عليكم ورحمة الله وبركاته

صزرة توضيحية حيث الصورة تمثل الورقة وليس الرسم

السلام عليكم ورحمة الله وبركاته الأخوة والاساتذة الاعزاء الكرام لدى قاعدة بيانات شبه كاملة ولكن بها مشاكل لا أعلم حل لها وبالأخص فى عرض الصورة وتحويلها إلى هيبرلينك للتكبير وفتح المسار لها حيث يوجد المسار داخل الصب فورم الثالث داخل الفورم الأصلى ويظل الهيبرلينك لفترة يفتح نفس الصورة السابقة حيث حقل مسار الصورة على : Me.Image68.HyperlinkAddress = Trim(Forms![shwdoc2]![shwdocAch]![LokAch2]![Path]) هل يوجد كود معين أضعه فى حدث معين يمنع عرض الصورة السابقة ويحدث إلى الصورة الحالية والغريب أننى وضعت الكود فى حدث النقر المزدوج doublclick ويتم الأمر والحدث عند النقر مرة واحدة oneclick أرجو الأفادة من حضراتكم

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

أحبك فى الله يا أخى

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

اعرض الملف برنامج متابعة ذوى الاحتياجات الخاصة برنامج مجانى تماما كامل لمتابعة ذوى الاحتياجات الخاصة والمهارات والأهداف التى يجب تجاوزها فى كل مرحلة والتى توضع حسب خطط منظمة ومتسلسلة ومتصلة يصلح لمراكز التأهيل وبه اسلوب ووضع خطط لكلاً من (مهارات التنمية - صعوبات التعلم - مهارات التخاطب - تأهيل وظيفى ...) ويمكن البرنامج من وضع جلسات وأعادتها ووضع تقارير عن كل شىء من الخطط والأهداف والجلسات والاخصائى وطرق البحث المكثفة والمتخصصة عن الحالات ووضع وتقييم الحالة وما تم من انجازات خلال تنفي> الخطط اللهم أكتب الشفاء لكل من أصابه ابتلاء واللهم أليك السؤال وفعلك ما شئت فأرحم عباداً يا من كتبت على نفسك الرحمة وأن الرحمن الدنيا والأخرة ورحيمهما نسألكم الدعاء أخوكم فى الله وليد الجمل سائلاً لله أن يجعله سبباً فى تحسين حالات أولادنا وأطفالنا ورحمة من الله لنا صاحب الملف walid7799 تمت الاضافه 10 مار, 2022 الاقسام قسم الأكسيس  

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

السلام عليكم ورحمة الله وبركاته أخوانى الكرام طلب مساعدة فى كتابة كود عندى فورم رئيسيى [form1] وبداخله فورم [form2] وبداخلة فورم ثالث [form3] المطلزب كتابة كود GoToControl للفورم الثالث [form3] من المفروض أن يكون كتابة الكود كالتالى :- If Me.Command1 = -1 Then Forms![form1]![Form2].Form![ImagesSubform2].setfocus DoCmd.GoToControl "ImagesSubform2" ولكن يعطى خطأ ما الخطأ فى هذا الكود أرجو الافادة من الاساتذة الكرام وجزاكم عنا خيرا

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