ابو عارف

السلام عليكم و رحمة الله و بركاته اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الجنس]='" & [الجنس] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا على حسب اسم المعرف و الشهر اذا تنسيق حقل الشهر نص Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]='" & [الشهر] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا اذا نتسيق حقل الشهر رقم Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]=" & [الشهر] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub بالتوفيق

وعليكم السلام تفضل =DCount("*","[tabel2]","[contact no]=" & [contact no] & " And [Type speech]='خطاب وارد'") او =DCount("*";"[tabel2]";"[contact no]=" & [contact no] & " And [Type speech]='خطاب وارد'")

وعليكم السلام و رحمة الله و بركاته غير مصدر خطابات الواردة الى: =DCount("*","[tabel2]","[contact no]=" & [contact no])

السلام عليكم و رحمة الله و بركاته اخي الكريم ، اعتقد ميزة عرض معاينة قبل الطباعة بالكود غير متوفرة في اكسس 2003 جرب الملف على 2007 و وافيني بالنتيجة

وعليكم السلام و رحمة الله و بركاته للحل المشكلة اختلاط اسماء الجديد مع اسماء قديم تم اضافة جدول جديد باسم Updater يخزن فيه اسماء جديدة و عند تغير المركز يرحل جميع الاسماء الى قائمة اسماء قديمة و يحذف الاسماء من الجدول Updater و للعرض اسماء قديمة لاحقاً اضغط على الزر الجديد. و اما عدم عرض اسم المركز في تقرير، لا ادري ما هو السبب حتى لغة الجهاز و شكل الارقام غيرتهم الى العربي ولا يوجد اي مشكلة . اصدار التراخيص2.rar

تفضل اخي تم تعديل على عدم عرض اسم المركز عند فتح نموذج اما في تقرير يعرض اسم و الرقم المركز حتى قبل التعديل اصدار التراخيص.rar

وعليكم و رحمة الله و بركاته للاغلاق نموذج الاول اولاً ثم فتح النموذج الثاني عليك تعريف المتغير برقم ID في نموذج الاول و ثم وضع اسم المتغير في الشرط بدل ID لاحظ الكود On Error Resume Next Dim IDv As Integer IDv = id DoCmd.Close DoCmd.OpenForm "form2", , , "[ID]=" & IDv

تفضل غير كود الزر الى الكود: Dim Day1 As Integer Dim Month1 As Integer Dim Yer1 As Integer Day1 = 0 + D1 + D2 Month1 = 0 + M1 + M2 year1 = 0 + Y1 + Y2 D3 = Day1 Mod 30 M3 = (Day1 \ 30 + Month1) Mod 12 Y3 = (Day1 \ 30 + Month1) \ 12 + year1

وعليكم السلام اخي الكريم ، بعد اطلاع على الملف وجدت اسماء مراكز و اسماء المؤظفون في جدول واحد يجب درج اسماء مراكز و ارقامهم في جدول منفصل و إنشاء نموذجبن وتقريرين الرئيسي(على الجدول مراكز) و الفرعي (على الجدول المؤظفون) و ربط الجدول مراكز مع جدول المؤظفون بالعلاقة رأس بالأطراف او ربط نموذجين الرئيسي و الفرعي كما هو في الملف المعدل: اسم الجدول الرئيسي Main و اسم الجدول الفرعي TTTT بالتوفيق،،، اصدار التراخيص.rar

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

بالضبط كما تفضلت ، الله يرزقك بالولد لنسميه على إسم ابن اخينا الظل الغامض (غازي) و نسميك ابو غازي إن شاء الله تحياتي

مشكور اخي حسام وصدقني نحن نتبادل الافكار وفي نفس الوقت مرجع لنا وارشيف نعود له وقت الحاجة وكلها بركاتكم ! اخي ابا عارف مارأيك بهذا السطر ونفس الحدث بعد التحديث للعميل وعلى نفس مثالك : 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