سالم فتحي

شكرا اخي صراحة لست انا الي كتب الكود هو الكود موجود عندي في ملف واردت تغييره للشكل المطلوب في السوؤال وانا كنت اضع Me. في البداية ولم يعمل تعديلك الان هو المطلوب الله يبارك فيك ويفتحها في وجهك دووووم

DoCmd.Echo False, "" On Error GoTo Err_Form_Current If Me.Image240.Visible = -1 Then Me.Image240.Picture = Application.CurrentProject.path & "\photos\pcl\" & Me.acpt20 & ".jpg" 'DoCmd.GoToRecord , , acNext End If DoCmd.Echo True, ""

اخي انت رأيت الكود الذي في المرفق ؟؟ ما علاقة ال msgbox بالموضوع تحياتي

السلام عليكم لدي الكود التالي في المرفقات code.txt حيث انه يقراء الرقم الموجود في الحقل acpt20 ويظهر الصورة المطلوبة لنفس الرقم .. المطلوب تعديل الكود ليقراء فقط الرقم الاول في الحقل مثلا لو كان الرقم الموجود في الحقل (6,3)8 فانه يعتبره رقم 8 وشكرا لكم مقدما ..

السلام عليم في الكود التالي الذي يبحث في عدة حقوول المطلوب استبدال الخيار الخاص بالبحث بواسطة end with استبداله بخيار ان يكون البحث مطابق للكلمة المكتوبة في مربع البخث اي تصبح الخيارات يبداء ب يتضمن يطابق وشكرا لكم مقدما Private Sub searchbox_AfterUpdate() Dim asem As String Select Case searchtype Case 1 asem = "Like '" & searchbox & "*'" Case 2 asem = "Like '*" & searchbox & "*'" Case 3 asem = "Like '*" & searchbox & "'" End Select If Check165 = True And Check171 = True Then Me.Filter = "[elem_name] " & asem & " or [acpt1]" & asem & " or [acpt2]" & asem & "or [acpt3]" & asem & " or [acpt4]" & asem & " or [acpt5]" & asem & "or [acpt6]" & asem & "or [acpt7]" & asem & "or [acpt8]" & asem & "or [acpt9]" & asem & "or [acpt10]" & asem & "or [acpt11]" & asem & "or [acpt12]" & asem & "or [acpt13]" & asem & "or [acpt14]" & asem & "or [acpt15]" & asem & "or [acpt16]" & asem & " or [acpt18]" & asem & " or [cas]" & asem & "or [cab20]" & asem & "or [elem_Stract]" & asem Me.FilterOn = True DoCmd.GoToControl "searchbox" If Me.RecordsetClone.RecordCount = 0 Then MsgBox "NO Record ." Me.Filter = "" Me.FilterOn = False Else Me.RecordsetClone.MoveLast End If ElseIf Check165 = False And Check171 = True Then Me.FilterOn = True DoCmd.GoToControl "searchbox" If Me.RecordsetClone.RecordCount = 0 Then MsgBox "NO Record ." Me.Filter = "" Me.FilterOn = False Else Me.RecordsetClone.MoveLast End If ElseIf Check165 = True And Check171 = False Then Me.Filter = "[elem_name] " & asem & " or [acpt1]" & asem & " or [acpt2]" & asem & "or [acpt3]" & asem & "or [acpt4]" & asem & "or [acpt5]" & asem & "or [acpt6]" & asem & "or [acpt7]" & asem & "or [acpt8]" & asem & "or [acpt9]" & asem & "or [acpt10]" & asem & "or [acpt11]" & asem & "or [acpt12]" & asem & "or [acpt13]" & asem & "or [acpt14]" & asem & "or [acpt15]" & asem & "or [acpt16]" & asem & " or [acpt18]" & asem & " or [cab20]" & asem & " or [elem_Stract]" & asem Me.FilterOn = True DoCmd.GoToControl "searchbox" If Me.RecordsetClone.RecordCount = 0 Then MsgBox "NO Record ." Me.Filter = "" Me.FilterOn = False Else Me.RecordsetClone.MoveLast End If ElseIf Check165 = False And Check171 = False Then Me.Filter = "[elem_name] " & asem & " or [acpt1]" & asem & " or [acpt2]" & asem & "or [acpt3]" & asem & "or [acpt4]" & asem & "or [acpt5]" & asem & "or [cab20]" & asem & "or [acpt6]" & asem & "or [acpt7]" & asem & "or [acpt8]" & asem & "or [acpt9]" & asem & "or [acpt10]" & asem & "or [acpt11]" & asem & "or [acpt12]" & asem & "or [acpt13]" & asem & "or [acpt14]" & asem & "or [acpt15]" & asem & "or [acpt16]" & asem & "or [cab20]" & asem & " or [acpt18]" & asem & "" Me.FilterOn = True DoCmd.GoToControl "searchbox" If Me.RecordsetClone.RecordCount = 0 Then MsgBox "NO Record ." Me.Filter = "" Me.FilterOn = False Else Me.RecordsetClone.MoveLast End If End If Me.searchbox = Null Me.Bah = Null End Sub

بارك الله فيك اخي الكريم

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

تم استخدام البحث والاستبدال ومشا الحال شكرا لكم

السلام عليكم لدي قاعدة بيانات فيها الالاف من السجلات وهناك حقل في هذه السجلات هو عبارة عن رابط تشعبي المطلوب طريقة لاستبدال النص الذي يظهر في هذا الحقل اي استبدال ال Text to Display كلها مرة واحدة بكلمة معين ولتكن DDR مثلا وشكرا

شكرا لك اخي

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

وفقك الله ..شكرا

رقم السجل هو رقم تلقائي فهل اطبق الكود الاول ؟؟

السلام عليكم لدي في النموذج الكود التالي الذي يفتح تقرير عند الضغط على اسم الموظف Dim SF As String SF = "([اسم_الموظف]='" & "وليد خالد محمد" & "')" DoCmd.OpenReport "cv", acViewPreview, , SF اريد تغييره بجعله على رقم سجله ..اي استبدال حقل اسم_الموظف بحقل التسلسل ووضع رقم السجل بدل الاسم وشكرا

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