طاحن

شكرا أخي (التقني) بالنسبة لمربع التحرير والسرد عندي جميع الأسماء ظاهرة من الألف حتى الياء يعني كل الأسماء اللي في الجدول ، يعني لو عندي 1000 إسم تكون موجوده لما نفتح مربع التحرير والسرد بس أنا أريد لما أبدأ بالكتابة تحصل عملية تصفية وفرز ويظهر في القائمة فقط الأسماء حسب الإدخالات وعدم إظهار البقية . أو أنت قصدك ما يصلح كذا مع الشكر......

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

الأخ salman20032 مثل ما قال لك الأخ ( الكابتن ) بس تعقيب بسيط ( ما عندك مشكلة) والحل هو : عند إدخال بيانات سجل شخص معين وتريد إدراج صورة له : 1- إضغط بزر الفأرة الأيمن ومن القائمة النسدلة إختر ( إدراج كائن ) 2- رايح يظهر لك مربع حوار إختيار ( نوع كائن ) تخلي الخيار على الخيار الأول ( bitmap image ) ثم أنقر موافق 3- تعود للنموذج وأنقر خارج المربع لإلغاء التفعيل ثم تعود وتنقر يمين الفأرة وتختار هذه المرة ( كائن bitmap image ) ومن الخيارات تختار ( فتح ، open ) 4- يفتح معك الرسام العادي للويندوز 0 5- تذهب الى قائمة ( تحرير ) وتختار ( لصق من ...) 6- يبقى عليك تحديد الصورة والنقر عليها ( دبل كليك )ثم تغلق الرسام (وتنقر خارج مربع الصورة) ملاحظات : (أ)- لا تترك فراغات بيضاء حول الصورة في الرسام (ب)- العملية السابقة من 1 الى 2 فقط عند تدوين سجل جديد لم يتم إدراج صورة به سابقا أما إذا تريد إستبدال الصورة فاعمل من النقطة 3الى6 . (ج)- في خصائص مربع الصورة يجب ضبط ( حجم الصورة ) على ،{تمدد}0 أرفق لك مثالك بعد التعديل وتحياتي ____________________.rar

شكرا أخي التقني على إهتمامك وفهامتك أنا متعشم فيك إنك رايح تلقى لي حل المهم النموذج في المرفقات دخول المسئول (1) وكلمة المرور(1) دخول مستخدم مقيد (2) وكلمة المرور(2) شوف كيف إن المستخدم غير قادر على التحرير في قائمة البحث وأتمنى من أخواننا العمالقة الإطلاع __________.rar

أخواني هي الطريقة مش معقدة ومثال على ذلك If .GetAbility(Me.Name, OpenForm) Then Me.AllowAdditions = .GetAbility(Me.Name, Add) Me.AllowEdits = .GetAbility(Me.Name, Edit) Me.AllowDeletions = .GetAbility(Me.Name, Del) '******************************************* 'MsgBox Me.AllowEdits If Me.AllowEdits = flase Then مربع_تحرير_وسرد60.SetFocus '******************************************* '******************************************* الإسم.Enabled = False الرقم_العسكري.Enabled = False Else مربع_تحرير_وسرد60.SetFocus الإسم.Enabled = True الرقم_العسكري.Enabled = True '********************************************* '********************************************* End If يعني بامختصر أنا اللي أريده هو بعد then مثلا If .GetAbility(Me.Name, OpenForm) Then Me.AllowAdditions = .GetAbility(Me.Name, Add) Me.AllowEdits = .GetAbility(Me.Name, Edit) Me.AllowDeletions = .GetAbility(Me.Name, Del) '******************************************* 'MsgBox Me.AllowEdits If Me.AllowEdits = flase Then مربع_تحرير_وسرد60= خارج المعادلة '******************************************* '******************************************* الإسم.Enabled = False الرقم_العسكري.Enabled = False Else مربع_تحرير_وسرد60.SetFocus الإسم.Enabled = True الرقم_العسكري.Enabled = True '********************************************* '********************************************* End If ساعدونا أخوانا الفاهمين

أعزائي لو سمحتوا همتكم معي عملت قاعدة بيانات وهي عبارة عن دليل هاتف ولكن أضفت إليها نظام المستخدمين بإستخدام ملف Users Maker 2 والمشكلة هي أنني عندما أعطي للمستخدم صلاحية الفتح فقط فإن المستخدم لم يتمكن من تحرير أي حرف في مربع تحرير وسرد وهو معمول أصلا للبحث وبذلك لم يكن هذا المستخدم قادرا على تغيير أي شيء وبطبيعة الحال إذا سمحنا للمستخدم أن يضيف فإنه لا يزال لا يستطيع التحرير في مربع التحرير والسرد ، إلا إذا أعطيناه صلاحية التعديل وأنا لا أريد أن أعطي جميع المستخدمين الصلاحية بالإضافة والتعديل والحذف!!!!!! إذا الحل هو إخراج مربع التحرير والسرد من قيود صلاحيات المستخدمين أرجو من اخواني مساعدتي في عمل هذا الكود وهذا كود صلاحيات المستخدمين في النموذج Private Sub Form_Open(Cancel As Integer) Dim SF As Control With MyUser If .GetAbility(Me.Name, OpenForm) Then Me.AllowAdditions = .GetAbility(Me.Name, Add) Me.AllowEdits = .GetAbility(Me.Name, Edit) Me.AllowDeletions = .GetAbility(Me.Name, Del) For Each SF In Me.Controls If SF.ControlType = acSubform Then SF.Form.AllowAdditions = Me.AllowAdditions SF.Form.AllowEdits = Me.AllowEdits SF.Form.AllowDeletions = Me.AllowDeletions End If Next Else MsgBox "" & .UserName & " " & vbCr & vbCr & "áíÓ áÏíß ÇáÕáÇÍíÉ áÝÊÍ åÐÇ ÇáäãæÐÌ", 0 + 16 + 1572864, "äÙÇã ÇáÕáÇÍíÇÊ" Cancel = True End If End With End Sub