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

ابوخليل

أوفيسنا
  • Posts

    9,947
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    133

Community Answers

  1. ابوخليل's post in فتح قوقل ماب عن طريق النموذج بواسطة الاحداثيات المكتوبة في النموذج was marked as the answer   
    نعم يمكن
    استخدم الارتباط التشعبي
    https://www.google.com/maps/place/28°46'11.5"N 30°53'56.4"E  
    db1.mdb
  2. ابوخليل's post in كود الذهاب الى آخر صفحة بالنموذج was marked as the answer   
    عليكم السلام
    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
  3. ابوخليل's post in فتح قاعدة البيانات وتحويلها الى امتداد accdb للضرورة القصوى was marked as the answer   
    السلام عليكم
    ابو اشرف يمكنك استيراد الجداول الى قاعدة Accdb
  4. ابوخليل's post in كود نقل البيانات من استعلام الى جدول was marked as the answer   
    يمكنك انشاء جدول جديد مبني على استعلام
    هذه الخاصية موجودة في اكسس
  5. ابوخليل's post in المساعدة في انهاء برنامج خاص بالمكتبات was marked as the answer   
    تفضل اخي ازهر من هنا
  6. ابوخليل's post in لمسات وأفكار على شجرة الحسابات was marked as the answer   
    اذا فهمت عنك فأنت بحاجة الى وضع اللون في حدث التركيز  ولونا اخر في حدث ذهاب التركيز
    TreeView2.SelectedItem.BackColor = 16777215 الرقم هذا يعني اللون الابيض
    DB4.mdb
  7. ابوخليل's post in طلب كود ايقاف حدث was marked as the answer   
    الذي اعرفه 
    CancelEvent  تستخدم عادة في  حدث قبل التحديث  حين لا يتحقق شرط ما .. يتم إلغاء الإجراء ( البيانات المدخلة) .. ويمتنع التحديث
    اما Exit sub فهي عند عدم تحقق الشرط تلغي الإجراء وتتيح القفز  الى اجراء آخر داخل الحدث
  8. ابوخليل's post in مستخدم يعمل على مخزن واحد ولا يستطيع الدخول لبقية المخازن(معدل) was marked as the answer   
    عليكم السلام
    يمكنك ذلك وبكل يسر وسهولة
    فقط عند كل عملية ادخال او كل سجل جديد يتم تسجيله يتم ايضا ادراج معرف المستخدم في حقل خاص من حقول هذا السجل
    هنا يأتي دور الاستعلام في التصفية والعرض 
    المعيار في الاستعلام سيكون دالة  او وحدة نمطية عامة تأخذ قيمتها من معرف المستخدم عند الدخول للبرنامج
  9. ابوخليل's post in كود لصورة تتحرك في النموذج was marked as the answer   
    عليكم السلام
    جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور
    وهذا واحد منها
     
    وهذا مثال من مكتبتي
    سرعة_سيارات.mdb
  10. ابوخليل's post in ضغط مفتاح انتر 3 مرات was marked as the answer   
    لم اطلع على المرفق
    ولكني عملت لك هذا حسب ما فهمت
    Dim i As Integer Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then i = i + 1 If i = 3 Then MsgBox "اعمل الإجراء" Exit Sub End If Else i = 0 End If End Sub  
    test1.mdb
  11. ابوخليل's post in تنسيق حقل التاريخ was marked as the answer   
    مشاركة مع اخي الاستاذ خالد
    اذا كان مصدر التقرير استعلام ، اعمل عمود جديد وضع هذه القيمة فيه واجعله هو مصدر بيانات الحقل
    date1 : format([textedate];"dd/mm/yyyy") باعتبار  textedate هو حقل التاريخ الموجود في الاستعلام
    اذا توصلت للحل والا كما اشار عليك الاستاذ خالد بارفاق مثالك
  12. ابوخليل's post in أريد طريقة لحساب تكرار حرف ما في مربع نص was marked as the answer   
    عليكم السلام
    مثلا لمعرفة عدد تكرار الحرف a في مربع النص text1 استخدم مثل هذا
    Len([text1])-Len(Replace([text1];"a";""))  
  13. ابوخليل's post in استعلام التوحيد was marked as the answer   
    تفضل من هنا
  14. ابوخليل's post in تعديل علي كود was marked as the answer   
    بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا
    بالطريقة التي ذكرتها يتم تحقيق ذلك
    If Dir(CurrentProject.Path & "\Pic", vbDirectory) <> "" Then SetAttr (CurrentProject.Path & "\Pic"), vbHidden ElseIf Dir(CurrentProject.Path & "\Pic", vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " SetAttr (CurrentProject.Path & "\Pic"), vbNormal  
  15. ابوخليل's post in استعلام اضافة لا يريد العمل was marked as the answer   
    عليكم السلام
    تأكد من نوع الحقول وحجمها في الجداول .. لابد ان تكون متشابهة
    في مثالك تريد الحاق حقل رقمي الى حقل عملة ..
  16. ابوخليل's post in طريقة لعدم حذف السجل في الفورم من الكيبورد was marked as the answer   
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then KeyCode = 0 MsgBox "يمكنك الحذف من النموذج فقط" End If End Sub  
  17. ابوخليل's post in نسخ قيمة اي حقل في نموذج من الحقل السابق was marked as the answer   
    تفضل
    Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF6 Then SendKeys "^'", True End If End Sub  
     
    db2.mdb
  18. ابوخليل's post in ممنوع الذهاب الى سجل جديد was marked as the answer   
    تفضل تم تحقيق المطلوب
    الحدث الذي ماسك حقل الاسم هو حدث الخروج ، ولما يكون الحقل خالي يستحيل الخروج منه
    لذا عملنا وسيط  تكون قيمته شرطا في تشغيل الحدث
    هذا الوسيط هو متغير  تجده في اعلى الصفحة
    واستخدمنا زر الهروب Esc لتغيير قيمة المتغير ولتحريك السجلات
    ____________
    عند الرغبة في الرجوع من السجل الجديد  الى آخر سجل  فقط انقر على زر الهروب
     
    Lab 2019_up2.rar
  19. ابوخليل's post in الجمع فى التقارير was marked as the answer   
    اخي خالد  انظر   هنا  و  هنا 
    افكار احصائية
    ولكن يعيبها البطء عند كثرة البيانات
    فالدالات  : dlookup , dcount , dsum  لا تقارن بــــ select
  20. ابوخليل's post in مشكلة في مفتاح انتر Enter was marked as the answer   
    السلام عليكم
    طبق كما في الصورة

  21. ابوخليل's post in المساعدة في طباعة تقرير بعد اختيار الاسم من مربع تحرير وسرد was marked as the answer   
    تفضل
    PrgDB2.rar
  22. ابوخليل's post in عمل ارتباط بقاعدة بيانات خارجية was marked as the answer   
    تفضل  تم عمل المثال اللازم
    لاحظ :
    جميع امتدادات النسخ وحتى  القاعدة الخلفية  هي db  من اجل الخصوصية  
    لاحظ ان القاعدة  2015.db  محمية بكلمة مرور
    بعد  التبديل بين القاعدة الاساسية وبين النسخة السابقة  افتح الجداول ولا حظ فرق البيانات
    من اجل تتأكد من انك فعلا ارتبطت بالقاعدة الهدف
    المثال شامل  لاخذ نسخة احتياطية ولاستعادة  النسخ
    أمل ان ينال استحسانكم
    myback.rar
  23. ابوخليل's post in ظهور رساله عدم التطابق عند الادارج من نموذج الي اخر was marked as the answer   
    تفضل
    2.rar
  24. ابوخليل's post in مطلوب تحويل ملف يعمل على أكسس 2003 إلى 2007 was marked as the answer   
    تفضل تم التعديل والتجربة على 2010
    السبب وجود وحدة نمطية معارضة ليس لها مرجع
    School2.rar
  25. ابوخليل's post in نقل سجل واحد محدد من نموذج الى نموذج اخر بشرط was marked as the answer   
    تفضل
    openandclose.rar
×
×
  • اضف...

Important Information