Dream_Works

أرجو أن تقوم بتعديل كود الحدث AfterInsert ليصبح كالتالي Private Sub Form_AfterInsert() Dim ActiveControlName As String ActiveControlName = Me.ActiveControl.Name Me.Requery DoCmd.GoToRecord , Record:=acNewRec Me(ActiveControlName).SetFocus End Sub أرجو أن يكون هذا طلبك

أرجو أن يكون هذا طلبك تم إضافة الكود التالي Private Sub أمر5_Click() Dim Criteria As String, VarItem As Variant Dim stDocName As String With Me.List0 ' Check if The user Selected Rows Or Not If .ItemsSelected.Count > 0 Then ' Making the Report Criteria Criteria = "[ID] In (" For Each VarItem In .ItemsSelected Criteria = Criteria + .ItemData(VarItem) + "," Next VarItem Criteria = Criteria + ")" End If End With report_by_selection.zip

أخي الكريم قمت بتعديل الكود بحيث يتم تحديث البيانات مره ثم عرض شريط التمرير مره .... و هكذا أرجو أن يكون هذا هو المطلوب Private Sub أمر6_Click() Dim Max As Integer, Value As Integer, Min As Byte Min = 1 Max = DCount("[age]", "tab") DoCmd.OpenForm "form2" DoCmd.GoToRecord acForm, Me.name, acFirst For Value = 1 To Max Call ProgCtrl(Forms!form2!Frame1, Value, 1, Min, Max, True) age = "7" If Value < Max Then DoCmd.GoToRecord acForm, Me.name, acNext Next Value DoCmd.Close acForm, "Form2" End sub 1.zip

أخي الكريم أعتقد أن عملية التحديث تتم على التواريخ القديمة ( التي كانت موجودة قبل اعتماد التاريخ الهجري ) أما التواريخ التي يتم ادخالها بعد وضع التقويم الهجري فلا تتأثر ... لذلك أعتقد أنه توجد عدة حلول ... و لكني لا أنصحك بتطبيقها على قاعدة بياناتك الأصلية ... بل قم بعمل ( باك أب أو نسخة أخرى ) و جرب عليها الحل الأول 1- ترك التقويم الميلادي كما كان 2- نسخ عمود التواريخ ووضعة في ملف خارجي (أكسيس أو إكسيل أو وورد ) 3- تحويل التقويم إلى هجري 4- استرجاع القيم من الملف الخارجي مرة أخرى الحل الثاني 1- تحويل التقويم إلى هجري 2- عمل استعلام تحديث لحقل التاريخ ... حيث أن التاريخ يتغير بنسبة ثابتة و هي 1429 - 849 = 580 ففي الاستعلام تستخدم الدالة DateAdd لإضافة 580 سنة لجميع قيم التاريخ الموجودة في الجدول ملاحظات : أعتقد أن الحل الأول هو الأفضل يجب تجربة التعديلات على نسخة من قاعدة بياناتك و ليس الملف الأصلي

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

أرجو إدراج قاعدة بياناتك

ما هي المشكلة بالضبط ؟؟ جرب إزالة الأقواس ... احتمال ينفع

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

التعديلات المطلوبة كانت بسيطة لذلك اعتقد أنك ستقوم بها ... المهم تفضل الملف الجديد و أرجو أن يكون به ما طلبت New_Microsoft_Office_Access_2003_Database.zip

للأسف لم أفهم المطلوب بالضبط ... (هل هو التقويم الهجري أم الميلادي ) .. ( الذي فهمته أنك تريد الشهر هجري و لكن السنة ميلادي ) !!! ... إذا أردت وضع اسم الشهر فيمكن عمل ذلك بالكود و ببساطة .... أرجو إرفاق قاعدة بياناتك مع وضع شرح للمطلوب بالضبط

تفضل أخي الكريم ربط بين الاكسس والانترنت, مساعدة عاجلة بارك الله فيكم

أخي الكريم أعتقد أنه يمكنك عمل استعلام إنشاء جدول (Make Table Query) يعتمد على تصفية البيانات المتكررة كالتالي تقريباً Select DistinctRow T1 , T2 From Table1 و بالتالي يمكنك حذف الجدول القديم و الاعتماد على الجديد أو .... في حالة وجود ارتباطات مع جداول أخرى يمكنك فقط حذف السجلات من الجدول القديم و استعادتها من الجدول الجديد

أرجو أن يفيدك الرابط التالي هل يمكن إظهار التاريخ الهجري والميلادي في تقرير

إذا زادت القيمة ... لن تظل الكتابة في منتصف الصفحة بل ستنزل إلى الأسفل ... لذلك اعتقد أن الحل الذي قدمته هو الذي سيحافظ على المستوى الثابت لعرض السجلات أفضل تعديل يمكن وضعه هو إزالة الكود الموجود في الحدث AfterUpdate ووضع هذا الكود مكانه في الحدث AfterInsert Private Sub Form_AfterInsert() Me.Requery DoCmd.GoToRecord , , acNewRec End Sub

تم التعديل لا أعتقد ذلك ... يمكنك التعديل على تصميمات النماذج .... فالصلاحيات التي يحددها البرنامج للبيانات و ليس التصميمات db1_.zip

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

أخي الكريم أعتذر لأني لم أشرح بشكل جيد أنا قصدت بالاسم الآخر هو اسم المربع الذي يحتوي على النموذج الفرعي داخل النموذج الرئيسي ( Subform ) ... و هو أحد مكونات النموذج الرئيسي الاعتيادية التي تستخدم في استيراد أو استرجاع نموذج آخر بالنهاية ... أعتقد أنه يمكنك الاستغناء عن فتح النموذج الفرعي بالزر ( " المكافآت " ) و الاكتفاء بإظهار و إخفاء ال Subform ( المربع المذكور سابقا ) الموجود في النموذج الرئيسي يمكنك بكل بساطة إزالة كل الكود في زر المكافآت و الاكتفاء بسطر واحد كالتالي Private Sub أمر40_Click() reword.Visible = True End Sub

جرب إزالة هذا الجزء من الكود If InStr(Machine, "") = 1 Then Machine = Right(Machine, Len(Machine) - 2) End If

أرجو وضع الكود التالي في النموذج الفرعي ... في الحدث BeforeUpdate لمربع النص Total Private Sub total_BeforeUpdate(Cancel As Integer) If Me.total.Value <> Me.total.OldValue Then With Forms("نموذج1") .Controls("Revenue_For_Individual") = Me.total.Value / .Controls("Number_Of_Family") End With End If End Sub ملحوظة : هذا الكود لن يعمل بشكل جيد إذا فتحت النموذج الفرعي لوحده

أشكرك أخي يوسف على مداخلتك ... أعتقد أن كلامك صحيح ... للأسف لم أنتبه الى ذلك لو كان يوجد حل لهذه المشكلة فسيصبح معقداً لا يستحق التفكير فيه

يمكنك ذلك بسهوله بالضغط على السهم الموجود بجانب اسمه لتظهر القائمة التي تحتوي على الأمر المطلوب

وضع إضافة بسيطة في الكود السابق ... ليصبح كالتالي If Not IsNull(Me.Epre) Then Me.reword.Controls("Epression") = Me.Epre End If للإخفاء Me.reword.Visible = False للإظهار Me.reword.Visible = True

أخي الكريم لا أعتقد أنه يوجد فرق كبير بين قاعدة البيانات 2002 (XP) و قاعدة البيانات 2003 ... لأنه عند تحويل نوعية قاعدة البيانات فإن اختيار 2002 موجود مع 2003 على العموم احتمال أنا أكون غلطان و لكنني لم ألحظ شئ كهذا من قبل أرجو النظر في الرابط التالي لمعرفة كيفية تحويل نوع قاعدة البيانات .... عسى أن ينفع تحويل نوع قاعدة البيانات أعتقد أن 2007 هو الأفضل حالياً ... و لكن 2003 أفضل من XP و يمكنك رؤية هذا الرابط الذي يشرح بعض الفروقات بين النسختين Difference Between Access XP and 2003

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

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