نجوم المشاركات

استأذن من استاذ @kanory اذا تريد ان يكون يضاف 5 سنوات كل مرة بدل سنة واحدة اتفضل اليك هذا Private Sub أمر24_Click() On Error GoTo g: On Error Resume Next Dim i As Integer Dim X As Date Dim DATE_POST As Date Dim MyYear As Integer DoCmd.GoToRecord , , acNewRec For i = 0 To Forms![test1]![no] - 1 MyYear = i * 5 Me.serial = Forms![test1]![serial] Me.date1 = DateAdd("yyyy", MyYear, Forms![test1]![Date_M]) Me.no = DateAdd("D", i, Forms![test1]![no1]) DoCmd.GoToRecord , , acNext 'On Error Resume Next Next g: Exit Sub End Sub test2000.mdb

سؤالك غير مفهوم ..... هل تريد في النموذج الفرعي فقط 5 سجلات أم ماذا تريد بالضبط .... ماذا تقصد بخمس سنوات ... بارك الله فيك

السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر

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

اخواني السلام عليكم تجزئة صنف كالعادة جدول شراء ـ جدول بيع ـ جدول اصناف نوع الصنف هنا عبارة : كرتونه الكرتونة تحتوي علي علب العلب تحتوي علي قطع (حبه) المطلوب حساب رصيد اي صنف حسب المخزن يعني مثلا : اشتريت 5 كرتونه وبعت منها 3 الباقي 2 كرتونه بعدين بعت علبة من الكرتونه فيكون الباقي 1 كرتونه و1 علبة يعني عمل استعلام حسابي يحسب رصيد الصنف بالكرتونه في عمود والعلبة في عمود والحبة في عمود مرفق مثال مبسط رصيد الاصناف.rar

مرحباً بما أنك لم تحدد الغرض من عملك فأسهل طريقة .. ١- اعمل استعلام ٢- و اجعل في معايير الحقل null و عندها تحصل على كامل السجلات التي فيها الحقل المذكور فارغاً . و أخيراً ما هو نوع الحقل الذي تبحث به ؟

نعم او يمكنك اخفاء محدد السجلات فقط

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

Public Function ConvertToGergDate(HijriDate As Date,F As Integer) Calendar=vbGerg Select Case F Case 0 ConvertToGergDate=Format(HijriDate,"yyyy/mm/dd") Case 2 ConvertToGergDate=Format(HijriDate,"mmmm") End Select End Function استخدم هذه الوظيفة في رأس الاستعلام ومرر عليها حقل التاريخ الهجري في المحدد الأول والقيمة صفر في المحدد الثاني لإظهار التاريخ الميلادي بالكامل... وبنفس الطريقة مع وضع الرقم واحد في المحدد الثاني لإظهار اسم الشهر بالكامل... للأهمية.. أسماء الأشهر لا تظهر بالعربي إلا في أكسس بالواجهة العربية.. وعليك كمطور قواعد بيانات أن تحطاط لهذا الأمر

على ما أعلم لا يمكن تعطيل الأزرار إلا في النموذج و التقرير حيث يمكن وضع أوامر الفيجوال بيزيك .

اثراءً للموضوع و بعد اذن اخي علي هذا الملف الكود Option Explicit Sub TransferData() Dim My_Sh As Worksheet, My_Rg As Range Dim My_row%, Rp%, i%, My_Match% Dim Ar1(1 To 2), Ar2(1 To 2) Ar1(1) = "Sader": Ar1(2) = "Wared" Ar2(1) = "صادر": Ar2(2) = "وارد" Dim Sh_Name$ Rp = Principal.Cells(Rows.Count, 2).End(3).Row If Rp <= 3 Then MsgBox "لا يوجد بيانات لنقلها", 1048640: GoTo Exit_Me Sh_Name = Application.Index(Ar1, Application.Match(Principal.Range("a2"), Ar2, 0)) Set My_Sh = Sheets(Sh_Name) My_row = My_Sh.Cells(Rows.Count, 1).End(3).Row + 1 Set My_Rg = Principal.Range("b4:E" & Rp) For i = 1 To My_Rg.Rows.Count If Application.CountA(My_Rg.Cells(i, 1).Resize(1, 4)) < 4 Then MsgBox "هناك بيانات غير مكتملة في النطاق" & Chr(10) & _ My_Rg.Cells(i, 1).Resize(1, 4).Address & Chr(10) _ & "لا يمكن الترحيل", 1048640 GoTo Exit_Me End If Next '========================================== For i = 1 To My_Rg.Rows.Count On Error Resume Next My_Match = Application.Match(My_Rg.Cells(i, 1), My_Sh.Range("a:a"), 0) If My_Match Then MsgBox "There Are Duplicates" & Chr(10) & My_Rg.Cells(i, 1) & _ " is Already existe in Sheet: " & My_Sh.Name: GoTo Exit_Me: On Error GoTo 0 Next '======================================= For i = 1 To My_Rg.Rows.Count My_Sh.Range("a" & My_row).Resize(My_Rg.Rows.Count, 4).Value = My_Rg.Value My_row = My_Sh.Cells(Rows.Count, 1).End(3).Row Principal.Range("b2") = My_Sh.Range("a" & My_row) Next My_Rg.ClearContents Exit_Me: Erase Ar1: Erase Ar2: Set My_Rg = Nothing: Set My_Sh = Nothing On Error GoTo 0 End Sub الملف Sader_Wared.xlsm

اهلا بك اخ كريم فى المنتدى جرب هذا اسم المستخدم : Mrhb كلمة السر : 1111 الصادر والوارد.mdb

أعتقد أن من الأفضل جعل الحدث بعد تحديث مربع DATEX حتى تظهر الرسالة عند تكرار الرقم ضمن الشهر و إلا فلا حاجة لتعديل الاستعلام و بناء الدالة DCOUNT بناء على التعديل . هذا إلم ترغب أن يكون الحدث عند نقر المفتاح .

أستاذى @Khalf جزاك الله خيرا لقد قمت بتطويرها لتتناسب مع ما أريد 20005 test altered.mdb

آمل أن يكون هذا المطلوب 20005 test altered.mdb

بارك الله فيك @Shivan Rekany

هذا هو المقصود استاذى @Shivan Rekany

جرب هذه المعادلة في الخلية C2 (اسحب نزولاً) =SUMPRODUCT(--($A$2:$A$16=$A2),$B$2:$B$16) هناك موضوع مشابه كتبته على هذا العنوان (عسى ان ينال الاعجاب) http://www.officena.net/ib/topic/83103-لائحة-يالاسماء-حسب-الديون/

أهلا @محمد احمد لطفى سبق لي أن عالجت رسالة الخطاء في أول مشاركة معك بهذا الخصوص وذلك بإخفاء عناصر الصفحة غير الضرورية بالنسبة لك، ومع ذلك وجدت فارقا بين الصفحتين في طريقة تعريف وسوم HTML؛ ولهذا غيرت طريقة المعالجة. عالجت مشكلة إعادة التحميل؛ لكن لما كان هناك فارق في طريقة تعريف وسوم HTML؛ كررت شفرة المعالجة لكل صفحة، وعليك الانتباه لهذا. جرب التعديل من فضلك.. كهرباء.mdb

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

هل هذا ينفع لا اعلم ما هو البطى ولكن لعل بيكون اسرع في وحده نمطيه وضعت لك الكود UPdate QTY.accdb

أخواني وأخواتي الأعزاء تحية طيبة وبعد ،،،،،،،، أقدم اليوم إليكم برنامج الرواتب والموارد البشرية حسب قانون الخدمة المدنية الفلسطيني قبل التعديل ، وأتمنى أن تستفيدوا من الأفكار والبرمجة الموجودة بداخله حيث أنه مفتوح المصدر. توجد به حركة الرواتب من 30/4/2004 وحتى 31/12/2005 حيث كان الاحتساب يبدأ بتاريخ نهاية كل شهر مثال ذلك 30/4/2004 أو 31/5/2004 أو 30/6/2004 أو 31/12/2005 وهكذا فإذا أردت طباعة أي استمارة راتب مثلاً كل ما عليك أن تدخل رقم الموظف في خانة من .. الى .. وتاريخ الاحتساب. أتمنى لكم التوفيق Salaries_2005.rar

احسنت استاذى الكريم بارك الله فيك

وعليكم السلام انظر الي هذا واعمل كما في الصوره