ابوخليل

تفضل حسب طلبك Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub ضبط ارتفاع جميع الخلايا_ تقرير .mdb

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

اهلا وسهلا ابا جودي .. وعودا حميدا عمل جميل .. شكرا لك المهم التعبير عن الانبثاق في الصورة .هههههههه

استخدم هذه الدالة UCase في الحدث المناسب في الحقل مثلا : عند فقدان التركيز أو بعد التحديث للحقل المطلوب field1 = UCase(field1)

تفضل Private Sub zer1_Click() Dim ctl As CommandButton Set ctl = Me!zer1 With ctl .HyperlinkAddress = "https://www.google.com/maps/place/" & Me.comloc .Hyperlink.Follow End With End Sub db1.mdb

وعليكم السلام ورحمة الله وبركاته اخي الكريم من المهم قراءة قواعد المشاركة والتقيد بما جاء فيها .. ومنها : 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. سيتم غلق الموضوع .. ويمكنك انشاء موضوعك من جديد مراعيا قواعد المشاركة

تفضل تم تعديل المثال اعلاه حسب طلبك Access2.mdb

وعليكم السلام اخي الفاضل من ضمن قواعد المشاركة البحث في المنتدى ابحث عن : الرقم القومي .. ستجد الكثير من الاكواد والدالات والامثلة

نعم يمكن استخدم الارتباط التشعبي https://www.google.com/maps/place/28°46'11.5"N 30°53'56.4"E db1.mdb

عليكم السلام Private Sub endpage_Click() strSql = "SELECT * FROM tblData WHERE tblData.ID > ( (select COUNT(*) from tblData) - 10)" Me.RecordSource = strSql End Sub Private Sub firstpage_Click() strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData WHERE (((tblData.ID)>=1))" Me.RecordSource = strSql End Sub السجلات في النموذج .mdb

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

السلام عليكم مشاركة معكم احبتي علما انني لم اطلع على المرفق انظر في هذا الموضوع قد تستفيد من بعض افكاره

لحظات _ ان شاء الله _ وارسلها لك على الخاص

السلام عليكم ابو اشرف يمكنك استيراد الجداول الى قاعدة Accdb

اخي نبيل يجب ان تضع مرفقا يتضمن المشكلة

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

عندي يعمل

عليكم السلام اخي احمد ، انظر الى المثال ادناه ، كنت عملته من وقت بعيد وهو لكيفية عمل جدول ثابت السجلات داخل التقرير اتمنى ان تستفيد من الفكرة بالنسبة للأعمدة داخل التقرير فاعتقد انه يمكن استبدال النموذج الفرعي بتقرير فرعي واعتذر عن المتابعة .. اخوانك هنا فيهم الخير والبركة رسم جدول في التقرير.mdb

الف مبروك اخي خلف .. تستحق وأكثر زادك الله علما ونفعا لإخوانك

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

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

اخي الكريم في مواضيعك القادمة حاول ان تهتم بعنوان الموضوع بحيث تكتب عنوان يصف الموضوع بإيجاز ، والا سوف موضوعك للغلق تم تغيير العنوان ،،

بما انك ضيف جديد : تم تعديل العنوان الرجاء في مشاركاتك القادمة ان تهتم بعنوان الطلب

والنتيجة ستكون بصالح السائل يغلق الموضوع يمكنك انشاء موضوع جديد مراعيا قواعد المشاركة