ابو عارف

مشكور اخي حسام وصدقني نحن نتبادل الافكار وفي نفس الوقت مرجع لنا وارشيف نعود له وقت الحاجة وكلها بركاتكم ! اخي ابا عارف مارأيك بهذا السطر ونفس الحدث بعد التحديث للعميل وعلى نفس مثالك : Delegate = CurrentDb.OpenRecordset("Delegates").GetRows(CurrentDb.OpenRecordset("Delegates").RecordCount)(1, DCount("*", "Oprations") Mod DCount("*", "Delegates")) تحياتي مــــــاشاء الله.... أحلى سطر من احلى مهندس حسب ما توقعت و رأيي رأي الصورة المرفقة

اخواننالكرام واجهني مشكة في محاذاة مربع النص في تقرير عند اختيار خيار "توزيع" يعمل مع نص عربي و الانجليزي في عرض تقرير، ولكن في عرض معاينة قبل الطباعة يعمل مع نص الانجلزي فقط . والمثال في المرفق Align.zip

السلام عليكم و رحمة الله وبركاته ماشاء الله حلول رائعة و هذا اضافة بسيطة و نوع آخر من حلول ملا حظة: تم استبدال الملف على الآخر المعدل و ذالك للمنع خطاء عند حذف المندوب Pages.zip توزيع العمليات2.zip

السلام عليكم و رحمة الله و بركاته في ذيل نموذج يمكن وضع دالة Sum كما تفضل الأخ الشمال اما في ذيل تقرير يتطلب اكثر من خطوة كما هو في مثال المرفق Pages.zip

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

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

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

السلام عليكم حسب مصدر القوائم لا داعي استخدام دالة Dlookup و يمكن الحل بالطريقة كما هو في المرفق بالتوفيق,, accouting.rar

اخي غير الكود الى Private Sub MyLang_Afterupdat() If MyLang = 1 Then With SName .RowSource = "SELECT * FROM QryStuNamesAr ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2880,0,0,0" End With Else With SName .RowSource = "SELECT * FROM QryStuNamesEn ORDER BY ID" .ColumnCount = 4 .BoundColumn = 1 .ColumnWidths = "2880;0;0;0" End With End If End Sub حتى انا لا اعمل على اوفيس 2003 ولكن بعد تجربة الكود على 2007 ظهر نفس الرسالة ثم كتبت الفيم بالبكسل و ظبت الكود

تفضل اخي ملفك بعد تعديل snawnaw40.rar

نعم الكود الاول لترقيم تلقائى و اذا تريد على الرقم المحدد اكتب "SF=[RecordNumber]=10"

السلام عليكم اخي العزيز اكتب في مصدر عنصر تحكم مربع نص : =Last([رقم الطلب])

وعليكم السلام غير سطر الاول في الكودالى: هذا اذا كان تنسيق (رقم السجل) رقم sf="[رقم السجل]="&[رقم السجل] اوغيره الى: sf="[رقم السجل]='"&[رقم السجل]&"'" هذا اذا كان تنسيق (رقم السجل) نص و تأكد ان اسم حقل رقم السجل على نفس اسم في النموذج

السلام عليكم جرب التعديل ان شاء الله يكون حسب ما طلبت Database1.rar

تغير كودزر ( بحث) الى: بحث تطابق الاسم الكامل Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[الاسم]='" & TXT & "'" If Not rst.EOF Then Bookmark = rst.Bookmark بحث تطابق احرف الاولى في الاسم Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[الاسم]like'" & TXT & "*'" If Not rst.EOF Then Bookmark = rst.Bookmark بحث تطابق احرف اي جزء في الاسم Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[الاسم]like'*" & TXT & "*'" If Not rst.EOF Then Bookmark = rst.Bookmark و اما بنسبة التصفية: تصفية تطابق الاسم الكامل filter= "[الاسم]='" & TXT & "'" filteron=true تصفية تطابق احرف الاولى في الاسم filter= "[الاسم]like'" & TXT & "*'" filteron=true تصفية تطابق احرف اي جزء في الاسم filter= "[الاسم]like'*" & TXT & "*'" filteron=true

السلام عليكم تفضل أخي تم تفعيل بحث برقم قاعدة 222البيانات.rar

وعليكم السلام و رحمة الله وبركاته تفضل اخي انظر التعديل ان شاء الله يكون حسب المطلوب HR_5.rar

تفضل اخي اليك الصور بعد اضافة مجموعات

السلام عليكم اليك احد حلول بضغط الزر ممكن معاينة او طباعة جميع سجلات على صفحات شعب و الصفوف مستقلة H_A.rar

تفضل اخي انظر الصور ولكن من الافضل عدم ايقاف رسائل تأكيد بالشكل الدائم خاصتا الااستعلامات الاجرائية

السلام عليكم انتقل الى رابط التالي و قم بتنزيل المرفق من مشاركة الثانية افتح الملف ثم اغلقه و جرب بــ Docmd.setwarningsFalse http://www.officena.net/ib/index.php?s=e161f1e6314885ae29e87d04c0587e76&showtopic=46676

أخي اليك التعديل حذف سجلات H_Delete all records.rar

تفضل أخي H_DrobtoList.rar

تفضل اخي عزيز aziz - 2.rar

Nc1: =DLookUp("[no1]","gdwl") Nc2: =DLookUp("[no2]","gdwl") مع العلم يحضر القيم من صف الاول في الجدول سواء كان سجل واحد او اكثر