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

الطريقة الاسهل لتنفيذ ذلك في حدث بعد التحديث للقائمة المنسدلة comb1 نضع الامر Me.comb2.RowSource = "SELECT * FROM info WHERE (((info.ID)<>[Forms]![نموذج1]![Comb1])) ORDER BY info.ID;" وتفسيره ان يكون مصدر القائمة المنسدلة حقلي الجدول info بشرط ان لايكون بين الاسماء في القائمة ما تم اختياره في comb1 وبالامكان تكرار الشرط اذا كان لديك عدد اكبر من القوائم بحيث تكون القائمة الاخير تحتوي فقط على الاسماء التي لم يسبق اختيارها استخدمت علامة النجمة لكون الجدول يحتوي على حقلي الرقم والاسم فقط . الملف مرفق 11.accdb

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Hide() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "Sheet4" And ws.Name <> "Sheet5" Then ws.Rows("10:15").EntireRow.Hidden = Not ws.Rows("10:15").EntireRow.Hidden End If Next End Sub كود لإخفاء الصفوف واظهارها.xlsm

السلام عليكم اريد طريقة اخفاء زر الطباعة و زر تأكيد الحفظ حتى يكمل ملء جميع الحقول

السلام عليكم ورحمة الله تعالى وبركاته اخوانى الكرام منذ ان بدأت هذا المشروع ولم افكر لحظة فى ان احيد عنه الان اقدم لكم مكتبة جديدة متلافيا فيها بعض المشاكل التي قابلتنا قديما وادرجت بها دوال جاهزة وسهلة المكتبة بها اداة listview وبها ثلاث دوال الدالة الاولي ListFolder(ByVal FolderPath As String) وهى دالة لعرض الملفات فى مجلد معين حيث FolderPath هو مسار المجلد ويتم استدعااء الدوال بهذا الكود Option Explicit Option Compare Database Public listv As MsAccessListviewACX1_00.UCBySedo Private Sub Command115_Click() Set listv = Me.UCBySedo2.Object call listv.ListFolder ("C:\Users\Elsayed\Desktop\New folder\") End Sub حيث UCBySedo2 هي اسم Activex التى ادرجتها فى النموذج ========================== الدالة الثانية FillListviewWithRecord(ByVal CurrntDb As String, ByVal QuerySQl As String) وهذه الدالة لتعبئة الليست فيو بالسجلات وجهلها مثل النموذج الفرعي حيث CurrntDb هي المسار الكامل لقاعدة البيانات وهذه خاصية جيدة حيث يمكن الاتصال ياقاعدة بيانات خارجية واذا كنت تريد نفس قاعدة البيانات يمكنك ادراج هذه الجملة بدل المسار CurrentProject.FullName ============================== QuerySQl وهو الاستعلام المراد عرضه ويتم ادراجه بطريقة SQL "SELECT Accounts.ID AS [م], Customers.Customer AS [العميل], Accounts.Debit AS [مدين], Accounts.Credit AS [دائن], Accounts.Dates AS [التاريخ], Accounts.Notes AS [البيان] FROM Accounts INNER JOIN Customers ON Accounts.Customer_ID = Customers.Customer_ID;" طبعا انشئ الاستعلام الخاص بك واعرضه بطريقة SQL وانسخه وادرجه ======================= الدالة الثالثة filLvWithImage(ByVal ImgType As String, ByVal FolderPath As String) هذه الدالة لعرض الصور حيث ImgType هي نوع الصور الموجودة في المسار حيث FolderPath هو المسار المراد عرض الصور بداخله طريقة التسجيل اتمنى ان تنال اعجابكم وانا فى خدمتكم لادراج اى تحديث بها او انشاء ادوات جديدة نستفيد بها فى الاكسس --------------------------------------------------------------------------------------------------- تعديل : 12-02-2021 : قمت بانشاء قاعدة بيانات مدرج بها الاداة والدوال الثلاثة وطريقة الاستخدام الدالة الاولى وهى تعبئة الاداة بالسجلات من نفس قاعدة البيانات قم باختيار الاستعلام ( يتم عمل قائمة بالاستعلامات تلقائيا فى حدث عند التحميل وادرجها فى الكمبوبوكس ) بعد اختيار الاستعلام سيتم تحويل الاستعلام الى صيغة سيكوال تلقائيا فقط ما عليك الا ان تضغط على عرض السجلات ) الدالة الثانية اختر المسار ونوع الصورة المراد عرضها فى المسار ثم عرض الدالة الثالثة الملفات فى مجلد معين اضافة الى ايقوناتها اختر المسار ثم عرض قاعدة البيانات MsAccessListviewACX1.01.rar

أخى الكريم كان عليك قراءة قواعد وقوانين المنتدى قبل الرد هكذا فكان عليك فقط كتابة ... للـــرفع فقط عند طلب المساعدة أو إستعجال الرد ولا يصح الردود هكذا لأنك لابد من وضع الإلتماس دائماً وأبداً لهم بالأعذار عند طلب ردود الإخوة والأساتذة والخبراء لأنك لا تعرف مدى ارتباطهم بأعمالهم فتواجدهم وردودهم بالمنتدى لا يتقاضون أجر لذلك , وهو لوجه الله فقط بل وزيادة يعتبر استقطاع من الوقت الذين يقضونه مع أولادهم وأسرهم !!! بارك الله فيك

في جدول الإستعلام ضع >0 في سطر criteria في حقل التولد

بعد اذن اخي حسام انت بحاجة لمثل هذا Dim rs1 As DAO.Recordset: Dim rs2 As DAO.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الأول حسب اليوم Set rs2 = CurrentDb.OpenRecordset("SELECT ........")'استعلام يظهر المراقب الثاني حسب اليوم rs1.Edit: rs1!tech_code = المراقب الثاني rs2.Edit: rs2!tech_code = المراقب الأول rs1.Update: rs2.Update لاحظ انه غالبا يصعب تمرير المعايير لنموذج غير منضم داخل الاستعلام ، لذا نلجأ الى انشاء وحدات نمطية عامة كوسيط tabdeel2.rar

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

شكرا لكما احبتي @jjafferr و @kha9009lid سوف اقوم بالاطلاع والتجربة

أهلا أ. جمال.. واجهتني مشاكل في التسجيل

ما عليك إلى أن تذهب إلى المجلد التالي : C:\Program Files\Common Files\Microsoft Shared ثم ستجد مجلدين أحدهما DTNASKH و الثاني DTRUQAH افتحهما واضغط على البرنامجين الموجودين بهما . بعد ذلك اذهب إلى الوورد أو البور بوينت و من قائمة ادرج اختر كائن ثم اختر لخط النسخ DecoType Naskh و لخط الرقعة DecoType Ruq'ah و اكتب ما تريد على فكرة هذه الملفات موجودة على ما أعتقد للاوفيس العربي