بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 05 أكت, 2018 in all areas
-
استأذن من استاذ @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.mdb3 points
-
سؤالك غير مفهوم ..... هل تريد في النموذج الفرعي فقط 5 سجلات أم ماذا تريد بالضبط .... ماذا تقصد بخمس سنوات ... بارك الله فيك2 points
-
السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 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 ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر1 point
-
اساتذتي الرائعين من بعد السلام : أوقفت القائمة المختصرة بنموذج الأكسس . وضعت كود منع استخدام زر DELET الذي رقمه 46 الموجود اسفل الآلة الحاسبة بالكيبورد ولكن زر ال DELET الموجود بأعلى الأعلى الحاسبة لم يظهر رقمه وبقي يعمل داخل النموذج وبالضغط عليه يقوم بحذف البيان المحدد بالجدول من داخل النموذج الفرعي ( الاستعلام) ما هو الكود الذي أقوم بواستطه منع وإيقاف عمل زر الDELET لأمنع حذف أي بيان من الجدول . وخاصة إذا تم الضغط على زاوية الجدول سيتم تعليم كافة البيانات مما سيؤدي لحذف جميع البيانات دفعة واحدة . وشكراً جزيلاً لكم1 point
-
اخواني السلام عليكم تجزئة صنف كالعادة جدول شراء ـ جدول بيع ـ جدول اصناف نوع الصنف هنا عبارة : كرتونه الكرتونة تحتوي علي علب العلب تحتوي علي قطع (حبه) المطلوب حساب رصيد اي صنف حسب المخزن يعني مثلا : اشتريت 5 كرتونه وبعت منها 3 الباقي 2 كرتونه بعدين بعت علبة من الكرتونه فيكون الباقي 1 كرتونه و1 علبة يعني عمل استعلام حسابي يحسب رصيد الصنف بالكرتونه في عمود والعلبة في عمود والحبة في عمود مرفق مثال مبسط رصيد الاصناف.rar1 point
-
مرحباً بما أنك لم تحدد الغرض من عملك فأسهل طريقة .. ١- اعمل استعلام ٢- و اجعل في معايير الحقل null و عندها تحصل على كامل السجلات التي فيها الحقل المذكور فارغاً . و أخيراً ما هو نوع الحقل الذي تبحث به ؟1 point
-
1 point
-
جزاك الله خير أول مشكلة تواجهنى هى عند وضع الامر عند تسجيل جديد أنه عند تسجيل سجل جديد تأتى رسالة هذا سجل مكرر لوجود سجلات مكررة أعتقد قبل التحديث أفضل لأنه ممكن تسجل سجل مكرر وتغلق النموذج سوف يتم تكراره ما رأيك فى صورتى الان ههههههههه1 point
-
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 استخدم هذه الوظيفة في رأس الاستعلام ومرر عليها حقل التاريخ الهجري في المحدد الأول والقيمة صفر في المحدد الثاني لإظهار التاريخ الميلادي بالكامل... وبنفس الطريقة مع وضع الرقم واحد في المحدد الثاني لإظهار اسم الشهر بالكامل... للأهمية.. أسماء الأشهر لا تظهر بالعربي إلا في أكسس بالواجهة العربية.. وعليك كمطور قواعد بيانات أن تحطاط لهذا الأمر1 point
-
على ما أعلم لا يمكن تعطيل الأزرار إلا في النموذج و التقرير حيث يمكن وضع أوامر الفيجوال بيزيك .1 point
-
اثراءً للموضوع و بعد اذن اخي علي هذا الملف الكود 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.xlsm1 point
-
اهلا بك اخ كريم فى المنتدى جرب هذا اسم المستخدم : Mrhb كلمة السر : 1111 الصادر والوارد.mdb1 point
-
أعتقد أن من الأفضل جعل الحدث بعد تحديث مربع DATEX حتى تظهر الرسالة عند تكرار الرقم ضمن الشهر و إلا فلا حاجة لتعديل الاستعلام و بناء الدالة DCOUNT بناء على التعديل . هذا إلم ترغب أن يكون الحدث عند نقر المفتاح .1 point
-
أستاذى @Khalf جزاك الله خيرا لقد قمت بتطويرها لتتناسب مع ما أريد 20005 test altered.mdb1 point
-
1 point
-
1 point
-
1 point
-
جرب هذه المعادلة في الخلية C2 (اسحب نزولاً) =SUMPRODUCT(--($A$2:$A$16=$A2),$B$2:$B$16) هناك موضوع مشابه كتبته على هذا العنوان (عسى ان ينال الاعجاب) http://www.officena.net/ib/topic/83103-لائحة-يالاسماء-حسب-الديون/1 point
-
أهلا @محمد احمد لطفى سبق لي أن عالجت رسالة الخطاء في أول مشاركة معك بهذا الخصوص وذلك بإخفاء عناصر الصفحة غير الضرورية بالنسبة لك، ومع ذلك وجدت فارقا بين الصفحتين في طريقة تعريف وسوم HTML؛ ولهذا غيرت طريقة المعالجة. عالجت مشكلة إعادة التحميل؛ لكن لما كان هناك فارق في طريقة تعريف وسوم HTML؛ كررت شفرة المعالجة لكل صفحة، وعليك الانتباه لهذا. جرب التعديل من فضلك.. كهرباء.mdb1 point
-
من فتره بعيد كان فيه مشاركه فى منتديات داماس للبرامج كان فيه ملف بيمنع اى ملف تختاره من الحذف حتى لو تغيرت نسخه الويندوز بيجعل الويندوز يعتقد ان ده ملف من ملفات السيستم1 point
-
هل هذا ينفع لا اعلم ما هو البطى ولكن لعل بيكون اسرع في وحده نمطيه وضعت لك الكود UPdate QTY.accdb1 point
-
أخواني وأخواتي الأعزاء تحية طيبة وبعد ،،،،،،،، أقدم اليوم إليكم برنامج الرواتب والموارد البشرية حسب قانون الخدمة المدنية الفلسطيني قبل التعديل ، وأتمنى أن تستفيدوا من الأفكار والبرمجة الموجودة بداخله حيث أنه مفتوح المصدر. توجد به حركة الرواتب من 30/4/2004 وحتى 31/12/2005 حيث كان الاحتساب يبدأ بتاريخ نهاية كل شهر مثال ذلك 30/4/2004 أو 31/5/2004 أو 30/6/2004 أو 31/12/2005 وهكذا فإذا أردت طباعة أي استمارة راتب مثلاً كل ما عليك أن تدخل رقم الموظف في خانة من .. الى .. وتاريخ الاحتساب. أتمنى لكم التوفيق Salaries_2005.rar1 point
-
1 point
-
1 point