امير عاطف

تفضل Record_Num.zip

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

طيب هناك حل آخر !!! بحيث بدلاً من سؤالك في كل عملية بيع من اي سجل تريد الخصم وهو ان تضع رقم العمليه التي تريد الخصم منها مثلاً انك قمت ببيع 50 شاشه وتريد ان تقوم بخصم 45 شاشه من سجل محدد و5 شاشات من سجل اخر فتقوم بتسجيل عمليتين بيع الاولى 45 وتقوم بوضع رقم عملية البيع الذي تريد الخصم منها في الحقل الخاص بتسجيل رقم عملية البيع والثانيه 5 وتقوم بوضع رقم عملية البيع الذي تريد الخصم منها في الحقل الخاص بتسجيل رقم عملية البيع ايضاً اتمنى ان تكون وصلت الفكرة

لم اجرب الملف الذي بالرابط ولكن قمت بوضعه لأن الاخ E-Creativity يريد ان يقوم بانزال القاموس من الانترنت لأنه لا يستطيع الحصول على سي دي للاوفيس

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

ويمكنك وضع كلمة مرور للتحكم بفتح العرض Tools >> Option >> Security >> Password To Open ================================= وكلمة مرور اخرى للتحكم بالتعديل بالعرض Tools >> Option >> Security >> Password To Modify

اخي الكريم Micro : بالفعل يمكن فتح الملف والتعديل به في حالة فتحه من خلال الباوربوينت فقط يمكنك التحكم في ذلك اذا قمت بوضع كلمة مرور للعرض

هنـــــــــــــــــــــــــــــا

للعلم ايضاً اسرع طريقة للوصول للقاموس بالوورد هو الضغط على Ctrl + Shift + F7 في قت واحد

ضع السي دي الخاصة Office Xp ثم قم بتثبيت هذه الميزه وفي حالة انك قمت بعمل Complete وليس Custom اثناء اعداد ال Office سوف يتم تثبيتها تلقائياً

لو سمحت توضح المشكلة بشكل آخر حيث لم افهم ما تريد !!!!

مثال رائع مثل صاحبه :)

:lol: :lol: :lol:

قم بعمل ضغط واصلاح للقاعدة Tools >> Database Utilities >> Compact And Repair Database

10002545210 شكر :d

قبل ان اجرب الفكرة .... جزاك الله كل خير

ضع عند حدث زر الامر الذي يقوم باضافة سجل جديد الكود التالي : DoCmd.SetWarnings False If Me.RecordsetClone.RecordCount > 10 Then DoCmd.GoToRecord , , acFirst DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.GoToRecord , , acNewRec

الاخ الكريم ha98 قمت بعمل فكرة أخرى لمثال للبحث بمجرد الكتابة مباشرةً وتظهر نتائج البحث بــــ List Box جرب مثلاً واكتب في مربع البحث (حمد) سوف يظهر احمد ومحمد وحمدان وحمدون وحمد بمجرد كتابة كل حرف وها هو المثال Ser_ListBox.zip

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

اهلاً بك PPS هي اختصار لــــ Power Point Slide Show ويأخذ ملف عرض الباور وينت هذا الامتداد اذا كان يحتوي على شرائح للعرض فقط اي لا يمكن التعديل بها

يمكنك وضع اداة List Boxt في النموذج السابق ووضع اسم الحقل الذي تبحث عنه وهو هنا بمثالنا السابق [customer_name] امام الخاصية Control Source للأداة list box بدون اي تغيير بالكود السابق ستؤدي الى نفس النتيجة

اذا اردت عمل زر للتنقل للورقة التالية قم بوضع الحدث التالي في حدث النقر لزر الأمر SendKeys ("^{pgdn}") اذا اردت عمل زر للتنقل للورقة السابقة قم بوضع الحدث التالي في حدث النقر لزر الأمر SendKeys ("^{pgup}") --------------------------------------------------- ويمكنك عمل ذلك بدون كتابة كود فيجوال بيسك او تسجيل ماكرو بنفسك وهو عن طريق الضغط على مفتاحي Ctrl + Page Down للتنقل لورقة العمل التالية ويمكنك عمل ذلك بدون الماكرو وهو عن طريق الضغط على مفتاحي Ctrl + Page Up للتنقل لورقة العمل السابقة للعلم Ctrl + Page Up و Ctrl + Page Down هي ماكروات جاهزة تم عملها من قبل الشركة المصنعة للاكسيل وهي مايكروسوفت --------------------------------------------------- أو يمكنك تسجيل ماكرو لعمل ذلك ..... لمزيد من المعلومات عن تسجيل الماكرو اضغط هنـا

اذا كنت تعني ظهرو الأسماء التي تم كتابتها سابقاً بنفس الحقل اذن قم بوضع مربع تحرير وسرد بدل القائمة وعند خاصية Row Source قم بوضع استعلام على على نفس الحقل (تجميع حسب) بمعنى اذا كان عندك حقل اسم المستخدم وتريد عند كتابة حرف الالف يظهر اول مستخدم بحرف الالف واذا كتبت حرف الحاء يظهر اول مستخدم بحرف الالف والحاء وهكذا ... اذهب الى الخاصية Row Source وقم بجلب استعلام من الجدول الذي يحتوي على حقل اسم المستخدم وقم بوضع حقل اسم المستخدم وقم بتعيين القيمة (تجميع حسب) ... هذا فقط

هذه فكرة تم عملها على عجالة ... ولكن اعتقد هناك الأفضل Private Sub ser_KeyUp(KeyCode As Integer, Shift As Integer) DoCmd.ApplyFilter , "customer_name like '*" & [Forms]![FormName]![ser] & "*'" End Sub حيث يتم كتابة اي اسم او جزء من الاسم للسجل أو مجموعة السجلات للحقل [customer_name] في مربع النص المسمى [ser] داخل النموذج [formname] بحيث يكون مصدر السجل للنموذج [formname] هو الجدول الذي به حقل [customer_name] والذي نقوم بالبحث عنه ومن الافضل ان تكون طريقة العرض الافتراضية للنموذج هو نماذج مستمرة حتى اذا كتبت مثلاً [حمد] يظهر محمد و احمد وحمد وحمدان للعلم ... اذهب الى Tools ثم Option ثم Keyboard ثم اسفل الاطار Behaviouring Entering Field علم على الخيار Go To End Of Field

هذه دلة من عمل الاخ الكريم طارق الحمامي -- اعتقد انها تفي بالمطلوب قم بلصق الدالة بوحدة نمطية عامة : Function h_date(m_day As Variant, ty_d As Integer) As String Rem "معادلة التارخ الهجرى " Static adays(12) As Long Static edays(12) As Long Static amonth(12) As String Dim ed As Long, ay As Long, at As Long, am As Long, i As Integer adays(1) = 29: adays(2) = 29: adays(3) = 30: adays(4) = 29 adays(5) = 29: adays(6) = 30: adays(7) = 29: adays(8) = 30 adays(9) = 30: adays(10) = 30: adays(11) = 29: adays(12) = 30 edays(1) = 31: edays(2) = 28: edays(3) = 31: edays(4) = 30 edays(5) = 31: edays(6) = 30: edays(7) = 31: edays(8) = 31 edays(9) = 30: edays(10) = 31: edays(11) = 30: edays(12) = 31 amonth(1) = " محـرم": amonth(2) = " صــفر": amonth(3) = " ربيع اول": amonth(4) = " ربيع ثانى" amonth(5) = " جمادى اول": amonth(6) = "جمادى ثانى": amonth(7) = " رجـــب": amonth(8) = " شعبان" amonth(9) = " رمضان": amonth(10) = " شــوال": amonth(11) = " ذوالقعدة": amonth(12) = " ذو الحجة" ed = Day(m_day) For i = 1 To Month(m_day) - 1 ed = ed + edays(i) Next i ed = ed + (Year(m_day) - 1) * 365.242199 at = ed - 227012 ay = Int(at / 354.36706) + 1 am = ((at / 354.36706) - Int(at / 354.36706)) * 354.36706 i = 1 Do While adays(i) <= am am = am - adays(i) i = i + 1 Loop If ty_d = 1 Then h_date = Str(Int(am)) & " " & amonth(i) & " " & Str(ay) & " هـ " Else h_date = Str(Int(am)) & "/" & i & "/" & Str(ay) & " هـ " End If End Function Function J_DATE(m_day As Variant, ty_d As Integer) As String Rem " معادلة التاريخ الميلادى" Static jweek(7) As String Static jmonth(12) As String Dim jd As Long, jm As Long, jy As Long, i As Long jweek(1) = "الاحد": jweek(2) = "الاثنين": jweek(3) = "الثلاثاء" jweek(4) = "الاربعاء": jweek(5) = "الخميس": jweek(6) = "الجمعة": jweek(7) = "السبت" jmonth(1) = "يناير": jmonth(2) = "فبراير": jmonth(3) = "مارس": jmonth(4) = "أبريل" jmonth(5) = "مايو": jmonth(6) = "يونيو": jmonth(7) = "يوليو": jmonth(8) = "اغسطس" jmonth(9) = "سبتمبر": jmonth(10) = "اكتوبر": jmonth(11) = "نوفمبر": jmonth(12) = "ديسمبر" jd = Day(m_day) jm = Month(m_day) jy = Year(m_day) i = WeekDay(m_day) If ty_d = 1 Then J_DATE = jweek(i) & " " & Str(jd) & " " & jmonth(jm) & " " & Str(jy) & " " & "م" Else J_DATE = Str(jd) & "/" & Str(jm) & "/" & Str(jy) & " " & "م" End If End Function بعد ذلك قم باستدعاء الدالة من اي مكان تريد عن طريق كتابة هذا التعبير داخل مربع نص : =ConvertDateString(Date();0;1;1)