اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

أوفيسنا
  • Posts

    12840
  • تاريخ الانضمام

  • Days Won

    239

كل منشورات العضو ابوخليل

  1. اعتقد اذا تم التصفح من خلال الأداة WebBrowser فإنه يمكنك استهداف اي حقل اما اذا تم فتح المتصفح حرا خارج اكسس فإني لم امر بهذه التجربة ، ولا اعلم ان كان الامر SendKeys يقوم بالمهمة لعل احدا من اخوتنا الخبراء الأفاضل يفيدنا في ذلك
  2. لا اعلم ما هي المشكلة لديك هل لنسخة اكسس دخل في ذلك ؟؟ فأنا اعمل على الاصدار 2003 ولا يمكنني فتح المرفق الأخير المثال عندي يعمل على اكمل وجه ، انظر الصور ( عند زيادة البيانات وحين تكون قليلة )
  3. هذا ما يحدث بالفعل عند عرض النموذج للطباعة يمر الكود على جميع الحقول ، عندها يأخذ المتغير fildMaxHeight اعلى قيمة ارتفاع لاحظ ان قيمة المتغير لن تتغير حتى يتم غلق النموذج وفتحه مرة أخرى على البيانات الجديدة . لن يختلف الأمر .. فقط مكان الحدث قم بتغيير الأحداث من رأس الصفحة hed1 الى التفصيل Detail
  4. تفضل حسب طلبك 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
  5. عليكم السلام انت وضعت الحقول في قسم (مقطع) رأس الصفحة يمكن تحقيق مطلوبك ولكن تطبيق الكود داخل تفصيل التقرير اكثر اتقانا سأوافيك بمثالك معدلا وسوف نطبق من خلاله الحالتين
  6. اهلا وسهلا ابا جودي .. وعودا حميدا عمل جميل .. شكرا لك المهم التعبير عن الانبثاق في الصورة .هههههههه
  7. استخدم هذه الدالة UCase في الحدث المناسب في الحقل مثلا : عند فقدان التركيز أو بعد التحديث للحقل المطلوب field1 = UCase(field1)
  8. تفضل 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
  9. وعليكم السلام ورحمة الله وبركاته اخي الكريم من المهم قراءة قواعد المشاركة والتقيد بما جاء فيها .. ومنها : 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. سيتم غلق الموضوع .. ويمكنك انشاء موضوعك من جديد مراعيا قواعد المشاركة
  10. تفضل تم تعديل المثال اعلاه حسب طلبك Access2.mdb
  11. وعليكم السلام اخي الفاضل من ضمن قواعد المشاركة البحث في المنتدى ابحث عن : الرقم القومي .. ستجد الكثير من الاكواد والدالات والامثلة
  12. نعم يمكن استخدم الارتباط التشعبي https://www.google.com/maps/place/28°46'11.5"N 30°53'56.4"E db1.mdb
  13. عليكم السلام 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
  14. السلام عليكم لو بحث قليلا في المنتدى لوجدت كثيرا من المواضيع تتحدث عن طلبك ابحث مثلا في : تحجيم الشاشة أو دقة الشاشة أو تحجيم النموذج وهكذا ... انظر هنا مثلا
  15. السلام عليكم مشاركة معكم احبتي علما انني لم اطلع على المرفق انظر في هذا الموضوع قد تستفيد من بعض افكاره
  16. السلام عليكم ابو اشرف يمكنك استيراد الجداول الى قاعدة Accdb
  17. اخي نبيل يجب ان تضع مرفقا يتضمن المشكلة
  18. نعم يعمل عندي ، ولزيادة التأكيد انني قمت بحذفه وتنصيبه اكثر من مرة بلا مشاكل والطريقة بالضبط كما ذكر صاحب الموضوع اعلاه وايضا ذكر هذا بالتفصيل هنا علما ان جهازي وندوز 7 ، 32 بت
  19. عليكم السلام اخي احمد ، انظر الى المثال ادناه ، كنت عملته من وقت بعيد وهو لكيفية عمل جدول ثابت السجلات داخل التقرير اتمنى ان تستفيد من الفكرة بالنسبة للأعمدة داخل التقرير فاعتقد انه يمكن استبدال النموذج الفرعي بتقرير فرعي واعتذر عن المتابعة .. اخوانك هنا فيهم الخير والبركة رسم جدول في التقرير.mdb
  20. الف مبروك اخي خلف .. تستحق وأكثر زادك الله علما ونفعا لإخوانك
  21. كل كلمات الشكر لا تفي بحقك استاذنا اسأل الله الكريم ان يجعل ما بذلته من وقت وجهد في موازين حسناتك
  22. السلام عليكم اخي محمود بغض النظر عن عنوان الموضوع المخالف .. فيجب ان تطرح موضوعك في المكان المناسب هنا في هذا المنتدى يقوم الاخوة الآعضاء المبرمجين بمساعدة بعضهم البعض فيما يعترضهم من مشكلات وطلبك هو تنفيذ برنامج اكسس . ارى ان تطرح موضوعك في قسم اعلانات الأعضاء ، ولا تنسى ان تكتب وسيلة الاتصال الخاصة بك يغلق ،،،
×
×
  • اضف...

Important Information