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

السلام عليكم الحل بالمعادلات في المرفق.... بن علية جلب بيانات من ورقة عمل أخرى.xlsx

وعليكم السلام هذا الموضوع يمكن يفيدك

لحسن العمل مع لغة VBA تم تغيير اسماء الصفحات الى الاجنبية الكود Option Explicit Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("MouwariDDin") Dim T_sh As Worksheet: Set T_sh = Sheets("Search_") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion T_sh.Range("a5").CurrentRegion.ClearContents T_sh.Range("q2").Formula = "=AND($A2>=Search_!$B$2,$A2<=Search_!$B$3,Search_!$C$2=$B2,Search_!$D$2=$D2)" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _ CopyToRange:=T_sh.Range("A5:G5") T_sh.Range("q2").ClearContents With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف معادلة ترحيل ونقل Salim.xls

السلام عليكم ورحمة الله وبركاته كيف الحال؟ يا رب دايما بخير وسعادة ورضى بالمكتوب ومحاولات جاهدة لنكون أفضل مما كنا عليه حياكم الله وبعد اليوم أحببت أن أشارك أحبابي في الله مشرفي وأعضاء وزوار موقعنا الغالي على قلوبنا جميعا ملتقى الأوفيس العربي الأول على مستوى الانترنت أوفيسنا بمعلومة مفيدة جدا لكل من يريد التطبيق العملي للتعليمات الموجودة في فيديوهات الشروح ومن يريد الاستمتاع بمشاهدة يوتويب أثناء تصفحه باقي المواقع إليكم الطريقة بمنتهى البساطة ملحوظة: العمل على متصفح جوجل كروم وذلك من خلال إضافة تسمى floating for YouTube extension وولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرى وإن أعجبكم الفيديو استفدتم به فلا تبخل على غيرك بمشاركته معهم فلو بخل به غيرك ما وصل إليك والآن مع الفيديو وفقنا الله وإياكم لكل ما يحب ويرضى وتسعدني تعليقاتكم ولو بكلمة انتظرونا فالقادم أفضل

السلام عليكم ورحمة الله تعالى وبركاته أقدم لكم دالة تفقيط التاريخ لن أطيل عليكم الدالة في المرفق لا تنسونا من خالص دعائكم Function DateToLettre(Dat As Date) As String ' Created By Benkhalifa ' Djemoui Alger: 23/02/2018 Dim MyDays As Variant Dim MyMonths As Variant Dim MyChif As Variant Dim Cent As String Dim Mill As String Dim i, J As Byte: J = 0 '=============================================================================================================================== MyDays = Array("اليوم الأول", "اليوم الثاني", "اليوم الثالث", _ "اليوم الرابع", "اليوم الخامس", "اليوم السادس", _ "اليوم السابع", "اليوم الثامن", "اليوم التاسع", _ "اليوم العاشر", "اليوم الحادي عشر", "اليوم الثاني عشر", _ "ليوم الثالث عشر", "اليوم الرابع عشر", "اليوم الخامس عشر", _ "اليوم السادس عشر", "اليوم السابع عشر", "اليوم الثامن عشر", _ "اليوم التاسع عشر", "اليوم العشرون", "اليوم الواحد و العشرون", _ "اليوم الثاني و العشرون", "اليوم الثالث و العشرون", "اليوم الرابع و العشرون", _ "ليوم الخامس و العشرون", "اليوم السادس و العشرون", "اليوم السابع و العشرون", _ "اليوم الثامن و العشرون", "اليوم التاسع و العشرون", "اليوم الثلاثون", _ "اليوم الواحد و الثلاثون") '=============================================================================================================================== MyMonths = Array("شهر يناير", "شهر فبراير", "شهر مارس", _ "شهر أبريل", "شهر مايو", "شهر يونيو", _ "شهر يوليو", "شهر اغسطس", "شهر سبتمبر", _ "شهر أكتوبر", "شهر نوفمبر", "شهر ديسمبر") '=============================================================================================================================== MyChif = Array("صفر", "واحد", "إثنان", "ثلاث", "أربع", "خمس", "ست", "سبع", "ثمان", "تسع", _ "عشرة", "إحدى عشر", "إثنى عشر", "ثلاثة عشر", "أربعة عشر", "خمسة عشر", "ستة عشر", "سبعة عشر", "ثمانية عشر", _ "تسعة عشر", "عشرون", "واحد و عشرون", "إثنان و عشرون", "ثلاثة و عشرون", "أربعة و عشرون", "خمسة و عشرون", "ستة و عشرون", _ "سبعة و عشرون", "ثمانية و عشرون", "تسعة عشرون", "ثلاثون", "واحد و ثلاثون", "إثنان و ثلاثون", "ثلاثة و ثلاثون", "أربعة و ثلاثون", _ "خمسة و ثلاثون", "ستة و ثلاثون", "سبعة و ثلاثون", "ثمانية و ثلاثون", "تسعة و ثلاثون", "أربعون", _ "واحد و أربعون", "إثنان و أربعون", "ثلاثة و أربعون", "أربعة و أربعون", "خمسة و أربعون", "ستة و أربعون", _ "سبعة و أربعون", "ثمانية و أربعون", "تسعة و أربعون", "خمسون", "واحد و خمسون", "إثنان و خمسون", "ثلاثة و خمسون", "أربعة و خمسون", _ "خمسة و خمسون", "ستة و خمسون", "سبعة و خمسون", "ثمانية و خمسون", "تسعة و خمسون", "ستون", "واحد و ستون", _ "إثنان و ستون", "ثلاثة و ستون", "أربعة و ستون", "خمسة و ستون", "ستة ستون", _ "سبعة و ستون", "ثمانية و ستون", "تسعة و ستون", "سبعون", "واحد و سبعون", "إثنان و سبعون", "ثلاثة و سبعون", _ "أربع و سبعون", "خمس و سبعون", "ستة و سبعون", "سبعة و سبعون", "ثمانية و سبعون", "تسعة و سبعون", "ثمانون", "واحد و ثمانون", _ "إثنان و ثمانون", "ثلاث و ثمانون", "أربعة و ثمانون", "خمسة و ثمانون", "ستة و ثمانون", "سبعة و ثمانون", _ "ثمانية و ثمانون", "تسع و ثمانون", "تسعون", "واحد و تسعون", "إثنان و تسعون", "ثلاثة و تسعون", "أربعة و تسعون", _ "خمسة و تسعون", "تسعون", "سبعة و تسعون", "ثمانية و تسعون", "تسعة و تسعون", " مائة ") '=============================================================================================================================== Do While J < 2 i = Mid$(Year(Dat), J + 1, 4) '=============================================================================================================================== If Len(i) = 4 Then Select Case i Case 1 To 999: Mill = MyChif(i) Case 1000 To 9999: Select Case Int(i / 1000) Case 1: If Format(Mid$(i, 2, 4), "000") = "000" Then Mill = " ألف" Else: Mill = " ألف و " Case 2: If Format(Mid$(i, 2, 4), "000") = "000" Then Mill = " ألفان" Else Mill = " ألفان و " Case 3 To 10: If Format(Mid$(i, 2, 4), "000") = "000" Then Mill = MyChif(Int(i / 1000)) & " آلاف" Else If Int(i / 1000) = 8 Then Mill = MyChif(Int(i / 1000)) & "ية آلاف و " Else Mill = MyChif(Int(i / 1000)) & "ة آلاف و " End Select End Select End If '=============================================================================================================================== If Len(i) = 3 Then Select Case i Case 1 To 100: Cent = MyChif(i) Case 101 To 199: Cent = " مائة و " & MyChif(i Mod 100) Case 201 To 299: Cent = " مائتان و " & MyChif(i Mod 100) Case 300 To 999: Select Case (i Mod 100) Case 0: If Format(Mid$(i, 2, 4), "00") = "00" Then Cent = MyChif(Int(i / 100)) & " مائة " Else Cent = MyChif(Int(i / 100)) & " مائة و " Case 1 To 99: Cent = MyChif(Int(i / 100)) & "مائة و " & MyChif(i Mod 100) End Select End Select End If '=============================================================================================================================== J = J + 1 Loop '=============================================================================================================================== DateToLettre = MyDays(Day(Dat) - 1) & " من " & MyMonths(Month(Dat) - 1) & " عام " & Mill & Cent End Function منقول لنشر العلم جزى الله .. المحترم الخلوق بن خليفه الجموعي بكل خير دالة تفقيط التاريخ.rar

برنامج مجاني مصمم علي الاكسيل ===================================================== تم تحديث البرنامج وتغير نسبة الضريبة الي 14% وتحسين شاشة الدخول وحل مشكلة شهر سبتمبر أرجو اعادة تحميل النسخة الجديدة للاستفادة من التحديث. ====================================================== خصائص البرنامج :- غلق جميع الخلايا التي تحتوي علي معادلات حفظ البيانات بمجرد الخروج العودة للقائمة الرئيسية في كل مرة يتم فتح البرنامج فيها امكانية الطباعة واختيار الطباعه من خلال اوامر الطباعه في الشيت الخاص بالاقرار ===================================================== التقارير:- إقرار ضريبة القيمة المضافة نموذج10 الخاص بكل شهر التحليل الشهري لفواتير المبيعات والمشتريات تفريغ الاقرارات ================================================== تابعنا على مواقع التواصل الاجتماعي صفحة الفيسبوك :https://www.facebook.com/How-To-Excel... ================================================== تم بفضل الله اصدار النسخة الحديثة من البرنامج وفقا لشكل اللائحة التنفيذية 14% والسعر العام للضريبة مع تحسين للشكل العام لينك شكل البرنامج الجديد والتعديلات من خلال منشورنا علي صفحة الفيس بوك https://www.facebook.com/How.T.Excel/... لينك التحميل لو الملف نزل بدون امتداد ملف ابيض افتحه open with برنامج winrar https://www.file-upload.com/nveqqc9c9vum ملحوظة هامة تم تغيير الباسورد عن الاصدار القديم في الفيديو ============================================== اقرار ضريبة القيمة المضافة السعودي حسب طلب زملائنا في السعودية والاماراتي بنسبة 5% لينك التحميل لو الملف نزل بدون امتداد ملف ابيض افتحه open with برنامج winrar https://www.file-upload.com/vpgaux66n0qn =============================================== رابط جروب الفيس بوك https://www.facebook.com/groups/36955... لمشاهدة الفيديو اضغظ ------------> هنـــــــــــــــــــــــــــــــــــــــــا

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

السلام عليكم ما هو الخطأ الموجود في هذا الكود وما هو التعديل الصحيح مع العلم ان الكود يعمل جيدا علي اصدارات اوفيس 2013 فيما اقل وعند تشغيل علي اوفيس 2016 حدث هذا الخطأ مرفق صوره للخطأ ارجو افادتي

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

السلام عليكم اكسس لا يفرق بينهما لان الاسم واحد ولا بد من شيء ينفرد كل واحد لذا فكرة ابو ياسين صحيحة بحيث يضيف المعرف وبما انه رقمي سيصبح هكذا : rst.FindFirst "[pre]='" & list0.Column(2) & "' And [nom]='" & list0.Column(1) & "'And [Noct]=" & list0.Column(0) وهذا البرنامج بعد التعديل : برنامج شهادة عائلية .rar

جرب هذا الملف (بعد اذن اخي به علية) تم تغيير اسماء الصفحات لحسن عمل الكود الكود Option Explicit Sub get_data() Dim i%, m%: m = 9 Dim Sh As Worksheet: Set Sh = Sheets("Final_Year") Dim Th As Worksheet: Set Th = Sheets("Natija") Dim x%: x = Application.Match(Th.Range("d2"), Sh.Rows(7), 0) Dim My_Rg_To_Copy As Range: Set My_Rg_To_Copy = Sh.Range("a8").CurrentRegion.Columns(x) Dim last_row%: last_row = My_Rg_To_Copy.Rows.Count + 6 Dim Nisba# Th.Range("a8").CurrentRegion.Offset(1).ClearContents If Not IsNumeric(Th.Range("e4")) Or Th.Range("e4") = vbNullString Then Nisba = (65 / 100) * My_Rg_To_Copy.Cells(2) Else Nisba = (Th.Range("e4") / 100) * My_Rg_To_Copy.Cells(2) End If For i = 9 To last_row If Sh.Cells(i, x) >= Nisba Then Th.Cells(m, 2).Resize(1, 6).Value = Sh.Cells(i, 2).Resize(1, 6).Value Th.Cells(m, 1) = m - 8 m = m + 1 End If Next Set My_Rg_To_Copy = Nothing: Set Sh = Nothing: Set Th = Nothing End Sub الملف مرفق Get data Salim.xls

وعليكم السلام مرحبا بكى فى المنتدى هناك العديد من البرامج منها: المرتبات.xls رواتب5.mdb المرتبات والاجور.xls وكذلك هناك برنامج مرتبات مرفوع على هذا الموقع https://www.mediafire.com/#myfiles

بارك الله فيك اخي نحن في الخدمه قدر المستطاع

ما شاء الله تبارك الرجمن .... بارك الله فيك ... انا حاليأ نزلت المرفق ... ولا زلت ما اطلعت عليه بالكامل ... ولكن المكتوب مبين من عنوانه وحالياً انا اتمتع بمنظر التقارير الرائعة المبهرة .. فعلاً شغل متعوب عليه جزاك الله كل خير اخي الفاضل ... والله يعطيك الصحة والعافية والهناء

اتفضل provider - Copy.accdb

ما أروعك أستاذنا الغالى

بارك الله فيك استاذي الكريم@AlwaZeeR نعم هو المطلوب الف الف شكر اليك زادك الله علما الله يعطيك العافيه تحياتي اليك

وعليكم السلام كتر الف خيرك على تعبك ا/ احمد زمان و مساعدتك وكود جميل ومنظم التعديل اللى عملته بس TR = 14

ان شاء الله ،،، سانزل المرفق الجديد

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

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

السلام عليكم و رحمة الله جرب المرفق Sub Import_Invoice() Dim FS As Worksheet, TS As Worksheet Dim FR, TR, Q1, Q2, Q3 Set TS = Sheets("Invoice1") Q1 = TS.Range("A9") Q2 = TS.Range("F4") TR = 15 Set FS = Sheets(Q1) For FR = 6 To 333 If FS.Cells(FR, 3) = Q2 Then TR = TR + 1 TS.Cells(TR, 1) = FS.Cells(FR, 2) TS.Cells(TR, 3) = FS.Cells(FR, 4) TS.Cells(TR, 4) = FS.Cells(FR, 5) TS.Cells(TR, 5) = FS.Cells(FR, 6) TS.Cells(TR, 6) = FS.Cells(FR, 4) End If Next MsgBox "ÇáÍãÏááå" & " " & Q1 & " " & Q2, , "Êã" End Sub AZ_المسري1.xls

اخي الكريم لنفترض اننا لدينا نموذج فيه بيانات الموظف اسمه ورعمره ومواليده وسكنه ووظيفته ..الخ عند استعمال undo فسيتم التراجع عن جميع التغييرات التي تمت على جميع البيانات في النموذج يعني لو قمت بتغيير الاسم وعنوان السكن والوظيفة لأكثر من موظف فالأمر undo يتراجع عن جميع تلك التغييرات اما بالنسبة للأمر Exit sub فهو للخروج من الدالة في حال تحقق الشرط يعني مثلاً لو قلنا للبرنامج اذا كان الحقل الاسم فارغ فاخرج من الدالة وإلا فقم باجراء كذا وكذا مثلها مثل الامر cancel event هذا ما اعرفه شخصياً والله اعلم

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

شكرااااااا استاذي الفاضل جزاك الله خيراً

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

لو كنت فهمت سوالك كان طلبك موجود عندي من الشهر ومن السنه كما يوقال فهم السوال نصف الاجابة هذا يعطيك من اول الشهر الى اخر الشهر Me.txtStartDate = DateSerial(Year(txtEndDate), DatePart("m", txtEndDate), 1) فقط يجب عليك ان تجعل القيمه الافتراضيه date() في الحقلين

جرب بهذه الطريقة عزيزي MinAge.rar

انا مش شايف عندك إخطاء غير انك كتبت اوامر ملهاش لزمه في الاستعلام و عدلتها لك في نسخه اللي متصممه باكسيس 2007 new(1).rar

وعليكم السلام ورحمة الله وبركاته جرب مع تغيير حقل المقارنة حسب ما تريد :: تحياتي If Rsnf <> 0 Then MsgBox "الرصيد ليس صفر لا يمكن الحذف" Me.xx = 0 ElseIf Rajmsanf = DLookup("[Rajmsanf]", "HRR") Then MsgBox "رقم الصنف موجود في جدول HRR" Me.xx = 0 Else End If

جرب تعمل الخطوات دى

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

السؤال الثانى حضرتك محتاج انه يبدأ من الاول كل عام جديد ولو رد حضرتك بالموافقة الموضوغ راح يختلف يعنى ممكن لابد نخلى الترقيم يكون بالشكل ده S180001 وقتها تكون النهاية للترقيم هى S189999 للعام 2018 على ان يكون الرقم 18 الذى يلى حرف الــ S هو عام 2018 ثم من تلقاء نفسة دون الحاجة الى تدخل برمجى او ادنى تدخل من المستخدم حتى فى بداية العام 2019 يصبح كالاتى S190001 وقتها تكون النهاية للترقيم هى S199999 للعام 2019 على ان يكون الرقم 19 الذى يلى حرف الــ S هو عام 2019 ثم من تلقاء نفسة دون الحاجة الى تدخل برمجى او ادنى تدخل من المستخدم حتى فى بداية العام 2020 يصبح كالاتى S200001 وقتها تكون النهاية للترقيم هى S209999 للعام 2020 على ان يكون الرقم 20 الذى يلى حرف الــ S هو عام 2020

نعم اخي ممكن يكون بهذا الشكل مع مراه تغير المسميات DoCmd.SetWarnings False DoCmd.RunSQL "insert INTO newentryhead (entryno,entype,endate,endetail) VALUES ([forms][newentryhead]![newentrydetail نموذج فرعي]![entryno],[forms][newentryhead]![newentrydetail نموذج فرعي]![entype,[forms][newentryhead]![newentrydetail نموذج فرعي]![endate,endetail])" DoCmd.SetWarnings True

جرب هذا الأقساط.xlsx

جرب هذا الملف اعدادى Salim.xls

شكراً للأستاذ صالح على توضيح تلك النقطة التي غفلت عنها ..وكما قال الاخ kanory اجعل بقية النماذج لاتفتح الا اذا كان النموذج الرئيسي مفتوح..ولو لم ترغب في جعل النموذج الرئيسي مفتوح فقم بعمل خدعة صغيرة كالتالي اجعل جميع النماذج لاتفتح الا اذا كانت قيمة x = true السؤال: كيف يمكن لقيمة x ان تكون true؟ الجواب: فقط عندما يتم غلق النموذج الرئيسي بهذه الطريقة سوف لن يتمكن احد من العبث بنموذج بدء التشغيل لديك إليك المثال السابق بعد التعديل تحياتي example2.mdb

يجب تترك مكان اسم النموذج في display form فارغا

DoCmd.OpenForm "اضافة_سند_صرف" Forms!اضافة_سند_صرف![الرقم الوظيفي].Value = Nz(DMax("[رقم سند القبض]", "اضافة سند قبض") + 1, 1) او بعد التحديث عند ادخال التاريخ Me.[الرقم الوظيفي].Value = Nz(DMax("[رقم سند القبض]", "اضافة سند قبض") + 1, 1)

الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة برنامج مجاني علي الاكسيل لاقرار ضريبة القيمة المضافة برنامج سهل وبسيط خصائص البرنامج غلق جميع الخلايا التي تحتوي علي معادلات حفظ البيانات بمجرد الخروج العودة للقائمة الرئيسية في كل مرة يتم فتح البرنامج فيها استخدام اوامر الطباعه في الشيت الخاص بالاقرار التقارير إقرار ضريبة القيمة المضافة نموذج10 الخاص بكل شهر التحليل الشهري لفواتير المبيعات والمشتريات تفريغ الاقرارات رابط تحميل الملف اسفل الفيديو أرجو نشر الفيديو ومتابعة القناة للمزيد من الفيديو لتعلم الإكسيل عبر اليوتيوب إن شاء الله

بارك الله لكم دالة رائعة تقوم بالتفقيط حتى عام 9999 ذكرتني بهذه الدالة كنت قد صممتها في 2008 هنـــــــا لنفس الغرض ولكن بالأكسس وللعلم تم تطوير هذه الدالة بصورة أكثر احترافية ربما أعرضها في موضوع جديد في منتدى الأكسس إن شاء الله

تفضل example.mdb

أخي الكريم قم بانشاء مايكرو يجب ان يكون اسمه Autoexec ومن ثم قم بانشاء وحدة نمطية كالتالي Option Compare Database Function StartupForm() On Error Resume Next DoCmd.OpenForm "StartupFrm" End Function غير فيها اسم نموذج بدء التشغيل الذي تريده الآن استدعي الدالة تلك في المايكرو كما في الصورة التالية وفي الاخير قم باقفال الوحدات النمطية بباسورد ومن ثم حول قاعدة البيانات الى mde او Accde

السلام عليكم بعد اذن ابو ادم أ / N_ELMASRY قاعده البيانات التى قمت حضرتك برفعها شرطك صحيح واليك الملف بعد التعديلvalidation Rule001.mdb وأرجو ان يكون هذا هو طلبك وشكراً

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

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

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

اخي الكريم لنفترض أنك اغلقت قاعدة البيانات وأغلقت جهاز الحاسب الأمر الطبيعي هنا افراغ الذاكرة المؤقته لجهاز الحاسب وكل التطبيقات ومن ضمنها قاعدة البيانات الحقلين Ta1 و Ta2 حقلين غير منظمين السؤال هنا من أين سيتعرف البرنامج على أخر تاريخ قمت باستخدامه ؟ أذا كانت لديك فكرة تريد تنفيذها من خلال حاجتك لهذه الطريقة فطرحها لعلنا نستفيد منها