lordring

ماشاء الله عليك جاري التطبيق شكرا لك اخي الكريم ........

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

السلام عليكم على قدر تطبيقي للكود المرفق يظهر لدي التالي

الملف بتنسيق 2003 http://dl.dropbox.com/u/9352509/access/accessleson/2003.rar

السلام عليكم في المرفق التالي النموذج مبني على استعلام . هل بالامكان عمل زر لطباعة ما اقوم بتصفيته باختيار خيارات التصفية الموجود بالكلك الايمن ..وعلى اي حقل اختاره اي ان يتم طباعة مجموع مايتم تصفيته من على النموذج مباشرة وشكرا http://dl.dropbox.com/u/9352509/access/accessleson/za-17-3_2-UP2.rar

شكرا اخي

وهذا رابط 2003 http://dl.dropbox.com/u/9352509/access/is/za-17-3_2_2.rar

السلام عليكم في النموذج المرفع وفي مربع البحث عن السجلات حسب ارقامها هل يمكن اضافة رسالة تنبيه في حال عدم وجود رقم السجل الذي يتم البحث عنه مع التقدير http://dl.dropbox.com/u/9352509/access/is/24-3.rar

السلام عليكم في النموذج الافتتاحي للبرنامج مطلوب مربع نص لكتابة رقم السجل ومن ثم الضغط على المفتاح انتر او زر بحث لايجاد هذا السجل وعرضه كتقرير منبثق ... وفي حالة عدم وجود هذا السجل تظهر رسالة تنبيه بعدم وجود هكذا سجل مع فائق التقدير http://dl.dropbox.com/u/9352509/access/is/start.rar

السلام عليكم في المرفق التالي اود عمل التالي كما في الصورة لدي خليتين الاولى تمثل درجة الحرارة المئوية والثانية تمثل الدرجة بالفهرنهايت بمعنى المطلوب او كتب قيمة داخل خلية الاولى التي تمثل الدرجة المئوية يتم احتساب الدرجة بالفهرنهايت في الخلية الثانية بشكل الي والعكس صحيح .. علما ان ˚c = ( f – 32) × 5/9 . و ˚f = ˚c × 9/5 + 32 . وشكرا لكم مقدما http://dl.dropbox.com/u/9352509/access/4.rar

بارك الله بيك اخي الكريم ... وشكرا جزيلا

بارك الله بيك اخي الكريم وشكرا جزيلا

اخي الكريم لم استطيع تطبيق الكود يظهر خطاء في المعادلة هل بامكانك تطبيقه على الملف ؟؟؟ مع التقدير

السلام عليكم كيف اقوم بما في الصورة التالية في برنامج الاكسل مع التقدير الملف المرفق للتعديل http://dl.dropbox.com/u/9352509/exel/1.xls

السلام عليكم كيف اعدل في الكود ليشمل ثلاثة معايير للتصفية وليس واحد وشكرا مثلا في المثال التالي Dim SF As String 2 SF = "([الشهادة_الحالية]='" & "ماجستير" & "')" 3 DoCmd.OpenReport "الذاتية", acViewPreview, , SF هو للتصفية حسب الشهادة " ماجستير" على فرض ريد جعل الكود يصفي التقرير باظهار الشهادة لكل من ماجستير دكتوراه وبكلوريوس اي ثلاثة معايير للتصفية بدل معيار واحد وشكرا

السلام عليكم الاخوة الاعزاء الموضوع كالتالي لدي نموذج افتتاحي يحوي ازرار تقوم بتصفية تقرير داخل البرنامج هذا مثال للبرنامج http://dl.dropbox.com/u/9352509/access/za-Database1-UP.rar المطلوب ان اتمكن من تغيير عنوان التقرير قبل طباعته ... من على التقرير مباشرة لاني اريد وضع عنوان للتقرير يمثل ماقمت بتصفيته من خلال الازرار المثال اعلاه للتجربة فقط .. اتسال عن امكانية الكتابة مباشرة على التقرير .. وشكرا

السلام عليكم ورحمة الله وبركاته هل بالإمكان وضع مربع نص داخل التقرير نستطيع التغير فيه قبل الطباعة الفكرة انه لدي تقرير واقوم بعدة انواع تصفية بين فترة واخرى لهذا التقرير حسب الطلب وبالتالي اريد ان اغير في عنوان التقرير "عنوان يعبر عن نوع التصفية " وبحسب التصفية التي اقوم بها وبشكل مباشر من على التقرير قبل اعطاء امر الطباعة .. وشكراً لكم

تقصد انك قمت بالخطوة التالية بتحويل اليونكود هذا من بديهيات استخدام الوندوز لانه يؤثر في كثير من الامور المتعلقة باللغة العربية .. ولاحاجة للتحويل الى الواجهة العربية

فكيف احول لغة الجهاز الى اللغة العربية ( ويندوز 7 ) تحميل ملف اللغة العربية اي تعريب الوندوز 7 في حال توفر الانترنت لديك وكمافي الصورة التالية تحميل وتنصيب الواجهة .............. او تحميل الملف على الحاسبة ومن ثم تنصيبه كالتالي من الاعدادات الاقليمية رقم 1 للتحديث عبر الانترنت رقم اذا ليد الملف على الحاسوب ومن ثم الانتقال الى الواجهة العربية كالتالي ملف الواجهة العربية بتنسيق lp.cab اي تحويل الواجهة والقوائم والمتلائم مع حزمة الخدمات الجديدة سيرفس باك 1 وهذا رابط لتحميله http://www.mediafire.com/?t1aicnyf2ibuafg#2

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

شكرا اخي بارك الله بيك تحياتي

شكرا اخي المشكلة كانت بسبب التصحيح التلقائي حيث كان يقوم استبدال كلمة اي ب أي تم ازالتها من التصحيح التلقائي شكرا لك

السلام عليكم في المرفق التالي يوجد مربع بحث بالحرف الاول اود الاستفادة منه في برنامجي كما في الصورة واجهتني مشكل غريبة فقط عندما اكتب اي عند البحث فان حرف ال ا يتحول الى أ وبالتالي عندما اكمل الى الكلمة لايجدها لانها تصبح مثلا أيمان بدلا من ايمان كما في الصورة ادناه فمالمشكلة وكيف يتم تلافيها .. مع انها لاتظهر عندما اكتب احمد او غيرها فقط عندما يكون الحرف ا وبعده ي وشكرا http://dl.dropbox.co.../access/aem.rar

السلام عليكم لدي نموذج وفيه على جانبه مجموعة قوائم تصفية اي تصفية باكثر من معيار لاكثر من حقل المشكلة انه يقوم بالتصفية بصيغة يتضمن وليس بصيغة يساوي بمعنى عندما اطلب تصفية مدير مثلا فانه يقوم بالتصفية باظهار كل سجل يحوي في الحقل المصفى كلمة مدير فيظهر مدير مدير قسم مدير قسم الافراد دون تمييز ... المطلوب جعل الكود يقومم بالتصفية باظهر السجل الذي يحتوي القسيمة المختارة فقط اي فقط مدير على سبيل المثال وطبعا الاحتفاظ بامكانية التصفية المتعددة بنفس الوقت لاكثر من حقل الكود كالتالي Private Sub BDetail_Click() Dim strWhere As String Dim lngLen As Long If Not IsNull(Me.direct) Then strWhere = strWhere & "([الدائرة] Like ""*" & Me.direct & "*"") AND " End If If Not IsNull(Me.center) Then strWhere = strWhere & "([المركز] Like ""*" & Me.center & "*"") AND " End If If Not IsNull(Me.depart) Then strWhere = strWhere & "([القسم] Like ""*" & Me.depart & "*"") AND " End If If Not IsNull(Me.shoaba) Then strWhere = strWhere & "([الشعبة] Like ""*" & Me.shoaba & "*"") AND " End If lngLen = Len(strWhere) - 5 If lngLen <= 0 Then MsgBox "لايوجد شي للبحث عنه", vbInformation, "نتائج البحث" Else strWhere = Left$(strWhere, lngLen) Me.Filter = strWhere Me.FilterOn = True نتيجة_البحث.Visible = True Me.RecordsetClone.MoveLast نتيجة_البحث.Caption = "لقد عثرت على :" & vbCrLf & Me.RecordsetClone.RecordCount End If Me.Requery End Sub وشكرا لكم مقدما

تم التعديل بواسطة الكود كالتالي Dim strWhere As String Dim lngLen As Long If Not IsNull(Me.lakeb) Then strWhere = "[اللقب العلمي]='" & Me.lakeb & "'" End If lngLen = Len(strWhere) If lngLen <= 0 Then MsgBox "لايوجد شي للبحث عنه", vbInformation, "نتائج البحث" Else Me.Filter = strWhere Me.FilterOn = True نتيجة_البحث.Visible = True Me.RecordsetClone.MoveLast نتيجة_البحث.Caption = "لقد عثرت على :" & vbCrLf & Me.RecordsetClone.RecordCount End If Me.Requery