محمد أبوعبدالله

Book1.rar

السلام عليكم ورحمة الله وبركاته

اشكركم اخواني جزيل الشكر

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

=========

استاذي الفاضل محمد الدسوقي اشكرك جزيل الشكر

ولكن ايضا تظهر مشكلة عند اختيار صف برجاء الاطلاع على الصورة

بسم الله الرحمن الرحيم

الاخوة الكرام

السلام عليكم ورحمة الله وبركاته

ارجو من الاخوة الكرام المساعدة في الملف المرفق وهو خاص بقوائم الفصول

في الورقة 2 توجد قائمة في الحقل J1 اريد عند اختيار الصف من هذه القائمة يتم استدعاء البيانات من الورقة 1 حسب الصف

ارجو ان تكون الفكرة واضجة ولكم جزيل الشكر

تحياتي

Book1.rar

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

لم توضح ما هو اصدار الاوفيس الذي تعمل عليه

ولم توضح ايضاً طريقة التحزيم

مبدئياً : حمل access runtime الخاص بنفس النسخة التي تعمل عليها ( جميع الاصدارات الخاصة بـ access runtime متاحة مجاناً بمايكروسوفت )

ثم استخدم برنامج Smart Install Maker لتحزيم البرنامج

تحياتي

تفضل اخي الكريم

تحياتي

db1.rar

تفضل اخي الكريم

تحياتي

db1.rar

وعليكم السلام ورحمة الله وبركاته

مرفق مثال تم تصميمه لتنفيذ المطلوب

تحياتي

db1.rar

السلام عليكم

استخدم الكود التالي مع تغيير ما يلزم للبحث بكود الموظف

    Dim Rs As Object
    Set Rs = Me.Recordset.Clone
    Rs.FindFirst "[IdCustomer] = '" & Me![Textbox1] & "'"
    If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark

تحياتي

منذ ساعه, محمد سلامة said:

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

هل هذا الكود يلغي الشفت نهائي 

نعم اخي الكريم محمد سلامة الكود يقوم بتعطيل زر الشيفت

ولكن ما المقصود بالغاء الشيفت نهائي

فبعد وضع الوحدة النمطية الشابقة

عند استخدام الكود بالشكل التالي يقوم بتعطيل الشيفت

SetProperties "AllowBypassKey", DB_BOOLEAN, False

والكود بالشكل التالي يقوم بتمكين زر الشيفت

SetProperties "AllowBypassKey", DB_BOOLEAN, True

تحياتي

السلام عليكم

مرحبا اخي الكريم محمد سلامة

وظيفة الكود تعطيل زر الشيفت

وتم وضع الامر في حدث   Form_Load لكي يتم تعطيل الشيفت في كل مرة يتم فيها تشغيل النموذج الرئيسي

تحياتي

السلام عليكم
هذا الكود يوضع في وحدة نمطية جديدة

Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

On Error GoTo Err_SetProperties

Dim db As DAO.Database, prp As DAO.Property

Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing

Exit_SetProperties:
Exit Function

Err_SetProperties:
If Err = 3270 Then 'Property not found
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
MsgBox "SetProperties", Err.Number, Err.Description
Resume Exit_SetProperties
End If
End Function

وفي النموذج الرئيسي للبرنامج نضع الامر التالي في حدث   Form_Load

SetProperties "AllowBypassKey", DB_BOOLEAN, False

تحياتي

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

ما تطلبه هو بالضبط فائدة قاعدة البيانات العلائقية

باختصار يمكنك انشاء جدول باسم الاباء تضع فيه جميع البيانات اللازمة

ثم تنشىء جدول باسم الابناء وتضع فيه اسم الاب فقط ووضع حقل غريب مأخوذ من جدول الاب وعمل العلاقة بينهم ( واحد الى متعدد )

تحياتي

تم انشاء المطلوب ( جدولين + استعلام )

برجاء المراجعة واخباري بالنتيجة

تحياتي

db1.rar

السلام عليكم ورحمة الله وبركاته

مرحبا اخي الكريم

راجع الرابط التالي سيفيدك جدا

http://www.officena.net/ib/topic/39795-استخراج-معلومات-النظام-بالفيجوال-بيسك-منقول

تحياتي

السلام عليكم

راجع المرفق الجديد

بعد انشاء نموذج جديد

تحيلاي

Datterr_3.rar

السلام عليكم

يوجد استعلام باسم XDater12

برجاء الاطلاع عليه

تحياتي

السلام عليكم

مرحبا اخي الكريم

راجع المرفق

تحياتي

Datterr.rar

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

استخدم الاداة المذكورة في موضوع اداة تخفيض الامان

تحياتي

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم

يمكنك انشاء استعلام ووصع معيار في التاريخ كالتالي

between forms!xdat!dat01 and forms!xdat!dat02

xdat هو اسم النموذج

dat01 هو حقل بداية التاريخ

dat02 هو حقل نهايةالتاريخ

تحياتي

السلام عليكم

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

ادخل اي تاريخ في حقل date_to لتظهر النتيجة

تحياتي

تم التعديل ليعمل تلقائيا ان شاء الله

تحياتي

سنوات الخدمة للموظف01.rar

تم التعديل ليعمل تلقائيا ان شاء الله

وعليكم السلام ورحمة الله وبركاته

مرحبا اخي الكريم برجاء مراجعة المرفق

تحياتي

سنوات الخدمة للموظف.rar

السلام عليكم

تفضل المرفق به الكود داخل موديول

نسخة 2013 + نسخة 2003

تحياتي

001.rar

السلام عليكم

مرحبا اخي الكريم

استخدم الكود التالي لعدم عرض الشيتات

Sub auto_open()
    On Error Resume Next
        With Application
           .DisplayFullScreen = True
           .CommandBars("Full Screen").Visible = False
           .CommandBars("MyToolbar").Enabled = True
           .CommandBars("MyToolbar").Visible = True
           .CommandBars("Worksheet Menu Bar").Enabled = False
        End With
    On Error GoTo 0
End Sub

تحياتي

الله يصلح حالك ويهديك الى الجنة استاذ ياسر

الكود الجديد ما شاء الله يعمل بكفاءة وسرعة

فجزاك الله خيرا

دمت بكل خير

السلام عليكم

مرحبا استاذي الفاضل ياسر

المشكلة التى كانت عندي لدي عمود يقوم بغمل ترتيب حسب المجموع وفي المثال المرفق عمود Fo

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

فقمت بالغاء العمود Fo لحل المشكلة

ولو ان هناك حل افضل يكون لكم جزيل الشكر

دمتم بود

تحياتي

Convert Text To Numbers YK.rar