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

وعليكم السلام ورحمة الله وبركاته أكواد VBA لا تعمل على الجوال لأن الجوال لا يدعم تشغيل برامج Excel التي تحتوي على VBA

غالبا قاعدة الجداول تكون في مكان ثابت على الخادم نعم يقوم بالربط ولكن لا حاجة لإدراج الباسوورد .. رغم وجود الحماية على قاعدة الجداول ، حتى لو تم نقلها الى مكان مختلف .. لأن الباسوورد محفوظ في القاعدة الأمامية ولا حاجة لتمريره بالكود الأشكالية التي غابت عنكم هي الربط لأول مرة لقاعدة جداول تحتوي على كلمة مرور ..................................................................................... ادناه مثال صغير للعملية ، استخدمت اداة فيجوال كمفتاح بديلا للملف الوسيط للتجربة والفحص السريع .. ضع المجلد على قرص الــــ C افتح المجلد وارسل الاداة الموجودة كاختصار على سطح المكتب من هناك من سطح المكتب شغل الاختصار . جميع كلمات المرور = 123 يمكن وضع المجلد في اي مكان والدخول على القاعدة الأمامية ( mainDb ) على التصميم وتحديث ربط الجداول سوف ارفق الاداة مفتوحة السورس ان شاء الله والافضل اني اجعل المفتاح ( الملف الوسيط ) قاعدة اكسس بدلا من الأداة .. حتى تصبح البيئة واحدة relink2.rar

السلام عليكم ورحمة الله وبركاته وبها نبدأ قم بالضغط على enable content كما بالصورة ولو لم تحل المشكله يمكنك الاطلاع على هذا الموضوع

ما الغرض من فك حماية جميع اوراق العمل لتقوم بافراغ الخلايا المحددة على ورقة عمل واحدة جرب هدا Sub Protect() Dim x As Worksheet Set x = ActiveSheet Application.ScreenUpdating = False x.Unprotect "bac20022002" With Selection .ClearContents End With x.Protect "bac20022002" Application.ScreenUpdating = True End Sub

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

شكرا اعضاء المنتدى المحترمين واخص بالذكر الاستاذ المحترم أ/ حسونة حسين نعم تم حل المشكلة

عربون محبة مثال لفكرة الأستاذ فادي علما انه سيتم حفظ كلمة المرور في جدول النظام ومن هنا كانت فكرتي لزوم الربط يدويا اول مرة .. وعدم تمرير الباسوورد من خلال الكود relink3.rar

ليس هناك اي احراج اخي الكريم @Zooro1 أبداً ,, في الواقع انا شاركت من عند الموضوع اللي بيتكلم عن وقت محدد اذا لم يتم تحريك الماوس فيه يتم اغلاق النموذج أو اظهار رسالة وانت تعدل حسب حاجتك للحدث عند انقضاء الوقت ، أما موضوع الصور ده فهو لم يظهر عندي من الأساس ولا اقم بمتابعته للأسف .. أما موضوع اخفاء العناصر في النموذج سهل جداً . في الكود اللي ارسلته لك في حدث عند التحميل سيتم فحص الجدول الذي أشرت اليه اذا كان هناك اي سجلات فيتم اظهار العناصر في النموذج الحالي . واذا لم يكون هناك اي سجلات ( الجدول فارغ ) فيتم اخفاء جميع العناصر في الجدول . admin.accdb جرب احذف سجلات الجدول وارجع افتح النموذج وشوف

أخي الكريم @الوااااثق ، بدايةً أهلاً وسهلاً بك في عالمنا المتواضع في هذا المنتدى . ثانياً حتى لو امكانياتك بسيطة في الآكسيس فلا بد لك من وضع حجر الأساس في مشروعك بإنشائك للجداول على الأقل . وللتوجيه من وجهة نظري اتبع ما يلي :- الإبتعاد عن تسمية الحقول بمسميات عربية أثناء تصميم الجداول . لا تستخدم رموز مثل ( $ و % و # و @ ..... الخ ) أو مسافات في أسماء الحقول كمثال ( Student Name ) فالأفضل لك كمثال إما ( Student_Name ) أو ( StudentName ) لا تستخدم أسماء للحقول في الجدول تكون من الثوابت في لغات البرمجة مثل ( Name , Date , From , To ) .... الخ لأنها ستجعل العمل مربك أثناء كتابتك للإستعلامات أو الأكواد . اهتم بأنواع الحقول ( رقمي ، نصي ، تاريخ ، ترقيم تلقائي ... الخ ) بشكل سليم أثناء التصميم . يجب ان يكون لديك حقل مفتاح أساسي أو غير مكرر ليسهل لك ربط الجداول والسجلات ببعضها البعض . ثالثاً ستجد جميع في المنتدى ( حسب وقتهم طبعاً ) قد ساعدك ولو بمعلومة بسيطة تكون لك حل لمشكلة أو جواباً لتساؤلاتك .

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

الف شكر ليك استاذنا foksh

استخدم هذا الكود في حدث عند التحميل للنموذج ، بحيث اذا كان الجدول فارغ يتم اخفاء جميع العناصر والمكونات في النموذج الحالي .. Private Sub Form_Load() Dim rs As DAO.Recordset Dim ctrl As Control Set rs = CurrentDb.OpenRecordset("SELECT * FROM Images_T") If rs.RecordCount = 0 Then For Each ctrl In Me.Controls ctrl.Visible = False Next ctrl End If rs.Close Set rs = Nothing End Sub مثال بسيط Clock Sub Form.accdb

وعليكم السلام ورحمة الله نعالى وبركاته =COUNTIFS(L6:L25;">="&O3;L6:L25;"<="&P3;G6:G25;3;K6:K25;N3;C6:C25;1) fawaz_2.xlsb

يا دكتور لست بحاجة الى اكواد ولا مكتبات اتبع الطريقة كما يلي : 1- قم بتقسيم قاعدة البيانات 2- ضع كلمة مرور على قاعدة الجداول 3- افتح الواجهات وقم بحذف الجداول المرتبطة 4 - اعد ربط الجداول سوف يطالبك بكلمة المرور ملحوظة : اعادة الربط ليس من ايقونة الجداول المرتبطة .. ولكنها من ايقونة جلب كائنات خارجية ( يوجد خيارين : جلب / ارتباط ) اختر الثاني

شكرا للإضافة منكم نتعلم،

السلام عليكم أثناء التجوال فى الإنترنت وجدت هذا الكود لحفظ مدى معين من الخلايا كصورة على جهازك قد يستفيد منه بعضكم Sub Export_Range_Images() ' ========================================= ' Code to save selected Excel Range as Image ' ========================================= Dim oRange As Range Dim oCht As Chart Dim oImg As Picture Set oRange = Range("A1:B2") Set oCht = Charts.Add oRange.CopyPicture xlScreen, xlPicture oCht.Paste oCht.Export FileName:="d:\SavedRange.jpg", Filtername:="JPG" End Sub و هذه هى صورة لمدى من صفين

السلام عليكم قمت بالتعديل بحيث انه يقوم بحفظ خلايا بمدى ملائم للشرت ويقوم بحذف الشرت بعد حفظ الصورة بدون اظهار رسالة الاكسل لتاكيد الحذف ويتم حفظ الصورة في فولدر ملف الاكسل هذا بشكل سريع وساقوم بالتعديل بطرق اخرى Sub Export_Range_Images() ' ========================================= ' Code to save selected Excel Range as Image ' ========================================= Dim P Dim oRange As Range Dim oCht As Chart Dim oImg As Picture P = ActiveWorkbook.Path & "\" Set oRange = Range("A1:O35") Set oCht = Charts.Add Application.ScreenUpdating = False Application.DisplayAlerts = False oRange.CopyPicture xlScreen, xlPicture oCht.Paste oCht.Export Filename:=P & "SavedRange.jpg", Filtername:="JPG" oCht.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub خبور خير حفظ صورة من نطاق خلايا معين.rar