jjafferr

وعليكم السلام الافضل ان ترفق برنامجك ونساعدك في تطبيق الكود عليه ، لأنه حتى وإن رفعت مثالي ، فتجربتي تقول بأن صاحب الموضوع سيصر على استعمال مثاله شكرا اخي على كلماتك الجميلة 1. انا لا املك مثال ، وسأضطر الى عمل مثال ، ولكن الافضل ارفاق برنامجك للتعديل عليه فهذه الجزئية اخذتها من احد برامجي لأحد الزبائن 2. هل يمكن عمل هذا ، الجواب نعم ، ولكن كيف؟ أ- كلمة البحث يجب ان ننظفها من جميع التشكيلات ، اي ندخلها في الوحدة النمطية اعلاه مرة واحدة ، ب- كل حقل موجود في سجل يجب ان ننظفه من جميع التشكيلات ، اي ندخله في الوحدة النمطية اعلاه مرة واحدة ، ويعتمد هذا على عدد السجلات المطلوب البحث فيها ، في البرمجه عندك الاختيار بين سرعة البرنامج ، او التفنن في عمل وشكل البرنامج ، في البداية سيطلب الزبون ويطلب ، وانت ستعطي وستغير ، والفائز في النهاية سرعة البرامج ، لذلك الجواب على سؤالك هو: أ- كل حقل في الجدول يحتوي على كلمات فيها تشكيله وتريد البحث فيه ، اعمل حقل جديد في الجدول لها الحقل ، وضع فيها جميع الكلمات بدون تشكيلة ، بإستخدام الوحدة النمطية اعلاه ، او ب- اذا عندك اكثر من حقل في الجدول يحتون على كلمات فيها تشكيله وتريد البحث في جميع هذه الحقول (ليس شرطا ان تبحث في نفس النموذج في جميع هذه الحقول ، فقد يكون عندك نماذج مختلفة للبحث في حقل/حقول معينة) ، اعمل حقل جديد واحد في الجدول ، وضع فيه كلمات الحقول جميعا وبدون تشكيلة ، بإستخدام الوحدة النمطية اعلاه وسواء استخدمت أ او ب ، فطريقة البحث سيان بتقول لي كيف ، وبقول لك ارفق برنامجك جعفر

شكرا جزيلا أخي محمد

انا حاولت ولم اتوصل الى حل ، وبحثت ، ولكن كذلك بدون فائدة جعفر

وعليكم السلام اخي العزيز ، المنتدى مليء بمثل هذا الموضوع ، اعمل بحث ويتلقى الكثير يُغلق الموضوع. جعفر

أخي أحمد تأكد ان ارتفاع قسم Detail هو نفس ارتفاع الحقول ، ثم 1. اختار جميع الحقول ، 2. ستلاحظ المربع 2، 3. اذهب الى 3 ، 4. واضغط على 4 ، لحذف هذه الطريقة . احفظ الملف ، ونتيجة طباعتة التقرير على pdf ، وتكبيره 400% ، يدل على عدم وجود مسافات . اما للتخلص من المسافة تحت المربعات الرمادية ، فاعمل نفس الطريقة لها جعفر 641.New Microsoft Access Database.accdb.zip

1. العمل لازم يكون بالتسلسل اعلاه ، 2. هل جربت المرفق؟

السلام عليكم أخي محمد لوسمحت ترفق الكود بعد تعديله ، حتى نستفيد منه ، شكرا جعفر

وعليكم السلام أخي حمدي البرنامج في المرفق يعطيك المطلوب وبحيث تستخدم مصدر النموذج ، والذي يجب ان يكون استعلام جعفر

وعليكم السلام المثال السابق يُظهر لك السجلات 2 و 4 وهو السجل الذي filter عليه علامة صح ، اما اذا اردت العكس ، وهو ان يظهر لك السجلات 1 و 3 وهو السجل الذي filter ليس عليه علامة صح ، فالكود: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Nz(Me.filter1, 0) <> -1 Then Me.Section(acDetail).Visible = True Else Me.Section(acDetail).Visible = False End If End Sub جعفر

وعليكم السلام ارتفاع القسم يجب ان يكون نفس ارتفاع الحقول ، انظر رقم (1) في الصور . ارتفاع الحقول مساوي لإرتفاع القسم (1) ، ولكن توجد مسافه فارغة اعلى الحقول (2) ، وهي سبب المشكلة ، . جعلنا المسافة اعلى الحقول (2) تساوي صفر ، فارتفعت الحقول الى اعلى ، واصبح لدينا مسافة اسفلها ، والان يجب ان نضيق هذه المسافة ، فنسحب القسم من (3) . الآن ارتفاع القسم اصبح يساوي ارتفاع الحقول ، وهو المطلوب . جعفر 641.New Microsoft Access Database.accdb.zip

الحمدلله ، و شكرا جزيلا لك أخي محمد هذه معلومات مهمة قد تفيد بقية الشباب للحصول على نتائج كذلك جعفر

وعليكم السلام البرنامج بسيط وجميل وخارج عن المألوف ، تسلم ايدك ومتكامل جعفر

ياريت تخبرنا اذا اشتغل عندك البرنامج جعفر

لقد صادفت هذه المشكلة في الكيبل الطويل ، هذا يعني ان الهاتف يحتاج وقت اطول للقيام بالامر السابق ، خلينا ننتقل للنوع الآخر من الكود ، الابطء ونجرب: في الكود (لاحظ الصورة ادناه) ، اكتب الكلمة الحمراء في الكود عندك . ثم جرب تصور مرة ثانية وسأقوم بتغيير الكود لاحقا ليتم فحص كل خطوة سابقة (في الكمبيوتر وليس في الهاتف ، فالمشكلة في الكمبيوتر هنا) جعفر

شكرا جزيلا على التأكيد

بالنسبة الى تعريف الدرايف ، هذا معناه انك لم توصل الهاتف بالكمبيوتر سابقا ، وإلا فخطوة الدرايف المفروض ان نكون منتهين منها من اول مرة توصل التلفون بالكمبيوتر ، ونعم مثل ما قلت "اعتقد كل اصدار من الهواتف وله تعريف خاص به" ، لهذا السبب اشرت انا لهذه النقطة: 1 - 6 الحمدلله ، يعني خطوات سهله 7- نعم هذا صحيح ، ولكن ماذا حصل لصورك القديمة في الهاتف ، هل لاتزال موجودة بعد ان اخذت الصورة الثانية والثالثة ، وهل الصور الجديدة تأتيك للنموذج؟ شكرا جزيلا اخوي ابوخليل على الردود ، لأني للحظة اعتقدت ان الخطوات صعبه وانا فاكر انها سهلة جعفر

وعليكم السلام تفضل امثله جاهزة: http://www.lebans.com/fontcolordialog.htm https://www.microsoftaccessexpert.com/Microsoft-Access-Color-Picker.aspx http://access.mvps.org/access/api/api0060.htm جعفر

الله الله الله ، والله لو تعرف شقدر اثلجت صدري ، اثلج الله صدرك بالايمان ان شاء الله عندي لك كم سؤال لوسمحت: أ. ما مدى صعوبة توصيل الهاتف بالكمبيوتر وجعلهم يتعرفوا على بعض ، ب. ما مدى صعوبة تجهيز مجلدات البرنامج ، وتشغيل البرنامج ، ج. هل صادفتك اي مشكلة في رقم 1 و 2 ، وهل هناك شيء يجب ان اذكره في الشرح ليسهل الموضوع ، د. هل اخذت اكثر من صورة للموظف الواحد؟ 2. رجاء لا تعتمد على عدم الغاء الصور القديمة ، لأن برنامجي يطلب منه الغاء جميع صور مجلد الكاميرا /sdcard/DCIM/Camera/ جعفر

شكرا أخي شفان وبدلا عن هاتف خاص لهذا الموضوع ، تستطيع ان تنقل صورك من مجلد الكاميرا الذي ذكرته سابقا ، بحيث يصبح المجلد بدون صور ، وتستطيع تجربة البرنامج جعفر

انتم دائما على راسي وانا ما اذكر حتى اسمي في البرامج او الكود ، إلا ما ندر ، ولكني اعرف خط يدي في البرمجة ، وفي حالات كثيرة اقدر أميزه ، وحلال عليك الحمدلله ، نفعت طريقة التشجيع السلبي

حياك الله أخوي عبدالله في اعدادات النموذج ، آخر اعداد ، Key Preview ، اجعله نعم . جعفر

وعليكم السلام أخي عبدالله هاي الكود من VBA Help مباشرة ، الظاهر معمول ومفصّل لك Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' The Keycode value represents the key that ' triggered the event. Select Case KeyCode ' Check for the PAGE UP and PAGE DOWN keys. Case 33, 34 ' Cancel the keystroke. KeyCode = 0 End Select End Sub جعفر

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

وعليكم السلام تفضل ، هذا الرابط فيه شرح ومرفق لمثل طلبك: ولأنك تستخدم نموذج فرعي ، فرجاء استعمال هذا الكود بدل الذي في المرفق: Public Sub MoveScroll(n As Long) On Error GoTo err_MoveScroll Dim distance As Long Dim frm As Form 'Setting Constant Description '0 acDetail Form detail section '1 acHeader Form header section '2 acFooter Form footer section '3 acPageHeader Form page header '4 acPageFooter Form page footer Set frm = Forms!Form1!Form2.Form Form_Title_Bar_Height = 405 Form_Navegation_Bar_Height = 405 Form_Header = frm.Section(acHeader).Height Form_Footer = frm.Section(acFooter).Height Form_Page_Header = frm.Section(acPageHeader).Height Form_Page_Footer = Me.Form.Section(acPageFooter).Height Form_Sections = Form_Header + Form_Footer + Form_Page_Header + Form_Page_Footer distance = (n * (frm.WindowHeight - Form_Sections - (Form_Title_Bar_Height + Form_Navegation_Bar_Height))) Forms!Form1.Form2.SetFocus DoCmd.GoToPage 1, , distance Exit Sub err_MoveScroll: If Err.Number = 2462 Then 'ignore, section not available Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر