Mo3taz3zzat

طبعاً موضوع رائع مشكور اخوي وكان عندي طلب حابب استغل هالطريقة بية انا بستخدم cascading combo box وبتوصل ل 3 مستويات .. طبعاً 3 مستويات يعني 3 جداول مابينهم علاقه one to many هل اقدر استخدم طريقة ال context menu مع ال 3 جداول؟ مثل الصورة المرفقة .. ولو ينفع، هل في امكانية ايضاً ان الاختيار الى اختارتة كل level يتحط في textbox كل مستوي مرفق نسخة من قاعدة البيانات للتجربة officena-example.accdb شكراً مرة ثانية وفي انتظار ردكم

هذا الخطأ ممكن يكون معناه ان الفورم الى بتفتحة فيه عنصر Control او كود VBA او ان الفورم بيفتح باستعلام وفية شرط انه يجيب حقل او قيمة موجودة في فورم تاني، والفورم التاني دة مقفول، فانت بتفتح الفورم بتاعك ولما يجي يشوف القيمة او الحقل في الفورم التاني ميلاقيش ان الفورم موجود اصلا. --- ممكن يكون انت حاطط في عنصر control بتشير لعنصر تاني في نفس الفورم .. والعنصر التاني دة مش موجود اصلا فيظهرلك الايرور ده

اجابة سؤالك الاول هو عمل استعلام حذف Delete Query مثل الصورة بتوضح فيه ان الغي جميع السجلات Records لو كان في حقل معين فارغ والحقل دة لازم يكون فيه بيانات لو صحيح ممكن تعمل نفس الاستعلام لكل الجداول الى تبي تلغي فيها كل السجلات الفاضية ومن زر تقدر تشغل منه كل الاستعلامات دة بدون اشعار With DoCmd .SetWarnings (False) ' Delete All null records in tables .OpenQuery "del_table1" .OpenQuery "del_table2" .OpenQuery "del_table3" .SetWarnings (true) End with وممكن بدل ما تعمل استعلامات، ممكن تنفذ اكواد الحذف من خلال تحويل الاستعلام ل SQL واستخدامه داخل الVBA مثل With DoCmd .SetWarnings (False) .RunSQL "DELETE tbl_Topics.TopicSubject FROM tbl_Topics WHERE (((tbl_Topics.TopicSubject) Is Null));" .SetWarnings (true) End with ---- بالنسبة لسؤالك التاني، فهو غير مفهوم بالنسبالي لانه مفيش نسخة من القاعدة مرفقة وشكراً

السلام عليكم عيدكم مبارك كان عندي سؤال وراح اشرح الفكرة للتسهيل ( مرفق مثال للقاعدة ) عندي جدول باسماء الموظفين وجدول فيه ملفات الموظفين على هيئة مسارات ملفات داخل الجهاز ومربوطين ب Card ID وهو رقم الموظف المطلوب استخراج ملفات الPDF لكل موظف في ملف واحد فقط Merged PDF --- من خلال النموذج التالي احدد السنة وليكن 2019 واختار مكان الحفظ واختار اسم الموظف من الUsername Combo واضغط على Generate PDF ف المفروض انا عاوز الزر دة يحفظلي ملفات ال Sick Leave و Urgent Leave في ملف واحد باسم الموظف في المكان الى اخترتة للحفظ يعني في المثال المذكور لو اخترت اول موظف الى اسمو Jan Kotas من الكومبو بوكس المفروض يروح يجيب المسارات هذي C:\Sample DB\Attachments\1.pdf C:\Sample DB\Attachments\3.pdf فقط ويدمجمهم في ملف واحد PDF باسم Jan Kotas.pdf ويحفظه في الديسكتوب في المسار المحدد مسبقاً هذا C:\Users\Mezo\Desktop\ ولو ماخترت اسماء وضغط على Generate PDF يعمل نفس العملية لجميع الموظفين ويحفظ كل موظف على الديسكتوب ملف واحد PDF باسمو --- بعد بحث على الانترنت لموضوع الدمج وجدت هذا الموضوع https://wellsr.com/vba/2017/word/combine-pdfs-with-vba-and-adobe-acrobat/ فهل تقدرو تفيدوني ياجماعة الخير SamplePDF.zip

متشكر جداً يا استاذي .. هيا فكرة برضو اني اعملها من خلال ال VBA بس كنت فاكر ان لها حل من غير م استنخدم If Conditions

تم حل المشكلة شباب واسف على الرد المتأخر تم الربط من خلال ان ال Sub Reports بتاخد من Query والاستعلام دة بيفلتر برقم الموظف من الفورم الاساسي شكراً

السلام عليكم ورحمة الله وبركاتة انا عندي Text Box فيه تاريخ وليكن 17/10/2019 - وفيه Text Box اسم اليوم عاوزة يجي اوتوماتيك وباللغه العربية يعني مثلا يوم 17 دة موافق يوم : الخميس انا عندي سيستم الكمبيوتر انجليزي ومش عاوز اقلبه عربي وعارف اني لو قلبته نظام الويندوز عربي كتعريب للCalender هيتعمل التاريخ اوتومايتك بالعربي بس هل في مجال ان دة يحصل من جوة الاكسيس بدون تعريب الكمبيوتر حقل اليوم انا عاملة بالكود دة =Format([M_Date],"dddd") وشكراً جزيلاً

وعليكم السلام هتيجي عند زر تحديث وتضيف كود IF يراجع على كل الحقول If IsNull(field1) = True Then MsgBox "حقل 1 فارغ" else if Me.field2 ="" then MsgBox "حقل 2 فارغ" else if Me.field3 ="" then MsgBox "حقل 3 فارغ" Else MsgBox "اسم الموظف " & Me.txtEmplName.Value & vbNewLine & "رقم الموظف: " & Me.txtNumber.Value ' Refresh code here End If مرفق قاعدة مثال بها الكود Refresh.accdb

السلام عليكم عندي جدول ولنفترض فيه ارقام فواتير ... وكل سنة ارقام الفواتير بتتصفر وبنرجع نرقم من 1 تاني .. ( حقل رقم الفاتورة يسمع بالتكرار ) فانا عندي فورم بحث فيه شهر و سنة و رقم فاتورة - فعاوز انا ادخل الشهر والسنة او السنة فقط وادوس على زرار تقرير الارقام المفقودة ... يعني مثلا لو حددت شهر 8/2018 المفترض ارقام الفواتير من 500 لـ 820 يقولي مثلا الارقام المفقودة في التاريخ الى حددتو 513 540 618 728 وهكذا (( ومش عاوز رينج !! - يعني محتاج ارقام صريحة وميقوليش من 513 ل 514 مثلا )) وانا عملت قاعدة بسيطة كدة فيها جدول فواتير وفورم بحث من خلال استعلام ومحتاج يتنفذ عليها الحل ان امكن .. واكون شاكر جداً ليكم Missing Numbers.accdb

السلام عليكم عندي اوفيس 365 في برنامج Word عند اضافة ترقيم .. المفترض بيقولي هتحط الترقيم فوق او تحت - شمال يمين وهكذا .. كل هذه الامثلة غير موجودة عندي - وبحلها عن طريق اختصار ALT-Shift-P بس فية مشكلة عدم وجود امثلة لحاجات كتير منها مثلا حاجة انا محتاجها الى هيا جدول المحتويات Table of content المفترض بتبقي فيه نماذج جاهزة للادراج برضو مش موجودة .... ومرفق صور توضيحية ألمشكلة في الورد عموماً وليس في ملف ورد محدد!! ارجو الافاده وشكراً

ممكن ترفق القاعدة

وعليكم السلام توجد اكثر من طريقة - بس بالطريقة الى طالبها دة كدة يبقي شاشة دخول سوريه يعني مالها داعي وشكلاً فقط ابسطها هنعمل فورم شاشة تسجيل دخول ونسميها Login وهنفترض ان الشاشة الرئيسية عندك بعد تسجيل الدخول اسمها Intro هنعملQuery من جدول الى فيه اسماء المستخدمين والباسورد هنخلي الـ Record Source لفورم الـ Login عليه ونعمل 2 text boxes الاول باسم txtuser ويكون ال Control source بتاعه خانة اليوزر من ال Query والتاني باسم txtpass ويكون ال Control source بتاعه خانة ألباسورد من ال Query ونعمل زرار اسمو btnLogin وندخل نحرر كود الزرار عند الضغط ونكتب فيه الاتي If Me.txtUser = Me.UserName And Me.txtPass = Me.Passwrd Then ' if username/password in form = username/password in table DoCmd.OpenForm "Intro", , , , , acWindowNormal ' open intro form DoCmd.Close acForm, "login", acSaveYes ' close login form Else MsgBox "Wrong Login info", vbCritical, "Error" End If كدة اول م تفتح الفورم هيكون واقف على اسم اليوزر والباسورد الى موجودين في الجدول ملف القاعدة مرفق شكراً Login.accdb

راجع الملف سويتلك مثال نفس مثالك الشرح : بتعمل Query للجدول كامل وتعمل فورم على ال Query وبتلغي خانة اسم الموظف وبتعمل كومبو وتقولو Find a Record on my form based on the value i selected in my combo box ولما بتختار من الكومبو اسم الموظف بياناته هتظهرله عندك ف الفورم Combo.accdb