Moosak

وعليكم السلام ورحمة الله وبركاته 🙂 نعم يوجد .. ضع الأوامر التي تريدها في public sub وناديها من حيث شئت في البرنامج ..

ومسائك سعيد أخي @TQTHAMI 🙂 أضفت لك الحقل IsAdmin في الجدول وهذه الأسطر في الكود : Dim IsAdmin As Boolean .... .... IsAdmin = DLookup("IsAdmin", "users", "[id] =" & Forms![FrmSign]!a) .... .... .... .... If IsAdmin = True Then DoCmd.OpenForm "frm2" Else DoCmd.OpenForm "frm1" End If .... .... مثال (2).accdb

قام أخي @kanory بالواجب جزاه الله خيرا 🙂 ولكن لدي ملاحظتين : 1- أعتقد أنه من الخطأ الاعتماد على اسم المستخدم لمعرفة إن كان هو المشرف أو مستخدم عادي .. فلو تم تغيير الاسم في الجدول لن يعمل معك الكود .. وأقترح أن تضيف حقل جديد من نوع (نعم/لا) يكون اسمه IsAdmin مثلا .. وعليه تبني الكود . 2- ما أجمل الكود عندما يكون مرتب بطريقة سهلة القراءة .. أولا سترتاح أنت في كتابته وتعديله والرجوع إليه .. وثانيا ستريح من يأتي بعدك لتعديله وفهمه لاحقا 🙂 .. لاحظ الفرق الآن بعد أن كان مكدسا كله على جهة اليسار 🙂 : 3- والثالثة مجانية من عندي 😎 غير اسم حقل الاسم إلى UserName مثلا .. لأن كلمة Name وحدها محجوزة للأكسس..

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل : شعار.accdb

السلام عليك أخي النجاشي 🙂 جرب المرفق أخي العزيز .. قمت بعمل الكثير من التنسيقات للخلايا بحيث تم ربطها مع بعض لكي تتحرك جميعها ككتلة واحدة .. ثم أضفت مربعات على يسارها جميعا ، تكبر وتصغر تلقائيا حسب عدد الحقول .. وهذه هي الجزئية التي أضفتها في الكود ( الدالة GenerateDate ) لكي تتحكم بأحجام المربعات (w1 - w2 - w3) Dim w ' لحساب عدد الخلايا المخفية For x = 1 To 50 If Me("D" & x).Caption = "" Then w = w + 1 Me("s" & x).Width = 0 Me("DDDD" & x).Width = 0 Me("D" & x).Width = 0 Me("day" & x).Width = 0 Me("SUM" & x).Width = 0 End If Next w = 50 - w Me.w1.Width = (700 * w) Me.w2.Width = (700 * w) Me.w3.Width = (700 * w) وطبيعي جدا أن يكون هناك اختلافات في النتائج من جهاز لآخر وهذا يعتمد حسب حجم الشاشة .. لذلك إذا وجدت إزاحة كبيرة للخلايا عندك فقم باللعب في الرقم ( 700 ) الذي في الكود تكبيرا أو تصغيرا حسب الحاجة ‏‏‏‏‏‏AA - 3-4 .accdb

ما قصدته لك هو شرح الكود وتطبيقه .. 😅 فالفكرة واضحة كوضوح النهار 🙂

السلام عليكم 🙂 طبعا استعنت بالذكاء الصناعي لكتابة هذا الكود لك أخي ناصر 🙂 ولكي يتم تنفيذه بشكل جيد يجب أن تتحقق عدة شروط : - أن تكون هناك صياغة معينة لأرقام الهواتف في ملفات الوورد مثل : ###-####(###) مثلا .. وذلك لتخبر الكود عن ماذا يبحث بالضبط . - أن تحدد المكان الذي ستحفظ فيه الأرقام بعد استجلابها .. وكيف ستنسب كل رقم إلى صاحبه ؟ أنا أخبرته هنا أن يفتح مجموعة ملفات الوورد الموضوعة في مسار معين الواحد تلو الآخر ويبحث فيها عن أرقام الهواتف ثم ينسخها ويلصقها في جدول "Telephone_Tbl" وتحديدا في الحقل "TelephoneNumber" .. بدون تخصيصه لاسم معين .. وهذا هو الكود نقلته بدون تعديل .. وذلك للتجربته فعليا عندك وإخبارنا بالنتائج .. أو أعطنا عينة من الملفات التي عندك وقاعدة بياناتك لنجرب عليها 🙂 Sub ImportTelephoneNumbers() ' Define variables Dim objWord As New Word.Application Dim objDoc As Word.Document Dim objRange As Word.Range Dim objFolder As String Dim objFile As String Dim objTelephoneNumber As String Dim db As DAO.Database Dim rs As DAO.Recordset ' Set the folder path where the Word documents are stored objFolder = "C:\Path\To\Word\Documents" ' Open the Access database and recordset Set db = CurrentDb() Set rs = db.OpenRecordset("Telephone_Tbl") ' Loop through all files in the folder objFile = Dir(objFolder & "\*.docx") Do While objFile <> "" ' Open the Word document Set objDoc = objWord.Documents.Open(objFolder & "\" & objFile) ' Loop through the document and find all telephone numbers For Each objRange In objDoc.StoryRanges objRange.Find.Execute FindText:="(###) ###-####", MatchWildcards:=True Do While objRange.Find.Found objTelephoneNumber = objRange.Text objTelephoneNumber = Replace(objTelephoneNumber, "(", "") objTelephoneNumber = Replace(objTelephoneNumber, ")", "") objTelephoneNumber = Replace(objTelephoneNumber, " ", "") objTelephoneNumber = Replace(objTelephoneNumber, "-", "") rs.AddNew rs("TelephoneNumber").Value = objTelephoneNumber rs.Update objRange.Find.Execute Loop Next objRange ' Close the Word document objDoc.Close False ' Get the next file in the folder objFile = Dir() Loop ' Clean up and close objects rs.Close Set rs = Nothing Set db = Nothing objWord.Quit Set objWord = Nothing End Sub

أحسنت أبو أحمد .. شكرا لك 🌹🙂 حبذا شرح بسيط لكيفية التطبيق 👍🏼🙂

أخي @مهند محسن أطلع على مرفقي .. فيه يتم تحديث البيانات في الجدول كما ذكرت 🙂

وعليكم السلام 🙂 سبقتني إليها أخي أحمد 😄 وهذه مشاركتي .. 🙂 Database1 (3).rar

عمي قاسم .. أحياناً نستغرب من وجود بعض الأوامر المتاحة في ال VBA حتى تدور الحاجة إليها 🙂 مثلي تماما .. كنت مستغرب من الحاجة لأمر فتح النموذج في وضع التصميم ؟!! حتى علمت أن هناك أكواد تسهل عملية إضافة عناصر للنموذج وتسميتها فتسهل لك أيما تسهيل .. أما بالنسبة لعمل المفاتيح الأساسية لجدول معين حسب ما أتصور يفيد عندما تريد عمل تعديلات على جداول ملف قاعدة البيانات الخلفية BE عن بعد للعميل مثلاً دون الحاجة لنقله عندك .. فبأوامر الNBA سيتم التغيير بسهولة 🙂

هنا تجد الكود الذي يقوم بذلك : 🙂

جرب وأخبرنا إن نجحت عندك ؟ 🙂 وأنصحك أيضا بفحص الملف ببرنامج المهندس جعفر 👍🏼

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

وعليك السلام ورحمة الله وبركاته أخي @محب العقيدة 🙂 مجهودات رائعة منك لتسهيل الانتقال لقواعد بيانات ال SQL .. لك الأجر بإذن الله 🙂 ولازلنا نتابع بقية السلسلة 😉

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

أهلا بك @Mina_youssef9 في المنتدى 🙂 لتحقيق أقصى استفادة يرجى الإطلاع على : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. ************************************************************************** بالنسبة لسؤالك وحسب علمي .. يمكنك فتح ملف الأكسس في الموبايل عن طريق برامج الريموت (التحكم من بعد) مثل التيم فيور team viewer .. بحيث يكون جهاز اللابتوب شغال على طول وتفتح التيم فيور في الجهازين فكأنما تفتح شاشة اللابتوب في شاشة الموبايل .. وبهذا يمكنك فتح ما تشاء من اللابتوب ومن ضمنها برنامج الأكسس .. طبعا كل هذا شريطة اتصال اللابتوب بالانترنت ..

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

لدي فكرة لتطوير هذا المقترح : 1- دعنا في هذا الموضوع نجمع المواضيع التي يتم ترشيحها للتصويت .. ومن ثم في موضوع جديد يتم عمل التصويت عليها 🙂 2- يتم تجميع المواضيع المتميزة خلال سنة 2022 إلى الآن مثلا .. (هل الفترة مناسبة ؟) 3 - يتم إعادة التصويت مرة أخرى في منتصف كل عام . 4- المواضيع المتميزة يتم وضعها في موضوع خاص بها يتم تثبيته لمدة محددة تكريما لأصحابها 🙂 5- يمكن اقتراح هدية معينة للفائزين 🧐 هل من أفكار إضافية ؟

وعليكم السلام ورحمة الله وبركاته 🙂 فكرة رائعة ومحمسة .. أخي طاهر .. أقترح أن تضع أنت المواضيع .. ويرشح عليها الإخوة 🙂

وعليكم السلام أخي @moho58 🙂 بالبحث ستجد الكثير من المواضيع التي تتكلم عن جدول الحصص المدرسي .. أنظر هنا مثلا : وهذا رابط البحث : https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=جدول+حصص+مدرسية+Access&sa=Search

أنا يظهر لدي الملف فارغ .. 🙂 أوفيس 365 ويندوز 10 .. وأعتقد أن المشكلة ليس لها علاقة بالأوفيس ولا الويندوز .. لعلها مشكلة ترتيب الكود فقط ..

جرب هذا الكود أخي محمد 🙂 Public Sub PrintPicture(ByVal strFilePath As String) Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "mspaint.exe", "/p " & Chr(34) & strFilePath & Chr(34), "", "print", 1 End Sub

العفو حبيبنا سيمو 😁 لك ذاكرة طويلة المدى ما شاء الله .. ولمزيد توضيح .. يقال للشخص: أنت مُتَدَوْدِه .. بالمعنى الذي ذكرته .. وتقول عندما تدعو له : الله يبعد عنك لمْدودَهْ 😄 أبعده الله عنا وعنكم يا غاويين 😁🌹 هل تؤدي نفس الغرض أخي أبو أحمد ؟ .. وهل تتجاهل فروقات التنسيق بين الذي معنا والتنسيق الأمريكي ؟

اللهم آمين وإياكم 🙂🤲🌷