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

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

شوف المثال ده ........ ka_1.accdb

السلام عليكم ورحمه الله وبركاته الصلاه والسلام على معلم الامه سيدنا محمد صل الله عليه وسلم كنت اهم منذ اسبوع على ان اقدم هذا الدرس واحاول ان اجعله بشكل بسيط وميسر واليوم وانا ابحث عن مثال لاحد الاخوه وجدت هذا المثال بشرح فيديو ارفقه لكم واسال الله العلى القدير ان تنتفعوا به وجزاه الله خيرا صاحب الشرح الاخ العزيز hamidymom من موقع الفريق العربى للبرمجه هذا الرابط الموضوع ايضا http://arabteam2000-forum.com/index.php?/topic/215278-شرح-مفصل-عن-كيفية-صنع-قوائم-جميلة-باستخدام-ال-activex/ ورابط الايقونات بالموضوع ايضا https://www.axialis.com/free/icons/ فلم اجد فى نفسى شرح اجمل واوفى من ذلك ورايت نشره للاستفاده والدعاء لاخينا hamidymom جزاه الله خيرا وجميع اخواننا واساتذتنا الذين تعلمنا ونتعلم منهم تقبلوا تحياتى وتمنياتى لكم جميعا بالتوفيق Toolbars.rar

a_2.mdb

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Photo.rar تحياتي

تفضل ::: اجريت بعض التعديلات على الكود : اصبح ينشئ المجلد اذا كان غير موجود اصبحت الملفات باسماء المدارس ‏‏SlicingDB.accdb

انظر الصورة ....

مشاركه مع اخى محمد @محمد ابوعبد الله ارفق لك مشاركه بها فكره دمج حقلين والبحث من خلالهما لاخى واستاذى صالح @ابوآمنة اطبع عليها لعلك تجد بها ما يناسبك تمنياتى لك وللجميع بالتوفيق Example_2 (1).accdb

هذه المعادلة =INDEX($A1:$D1,COLUMNS($A$1:$D$1)-COLUMNS($A$1:A1)+1)

تفضل التعديل اخي الكريم تنسيق شرطي لمعرفة الاشتراكات.accdb

تفضل Currancy Rate_1.xlsx

السبب ان المجلد sample في الدرايف C غير موجود انشئ مجلد باسم sample في الدرايف C وجرب .....

تفضل اخي الكريم تم تعديل كود الشهر السابق كالتالي Private Sub Command2_Click() ' الشهر السابق Dim x1, x2 As Date x1 = DateSerial(Year(Date), Month(Date) - 1, 1) x2 = DateSerial(Year(Date), Month(Date), 0) ' myCriteria = "[T1].[COURSEDATE] Between #" & x1 & "# And #" & x2 & "#" myCriteria = "[T1].[COURSEDATE] Between DateSerial(Year(Date()), Month(Date()) - 1, 1) And DateSerial(Year(Date()), Month(Date()), 0)" Me.TSUB.Form.Filter = myCriteria Me.TSUB.Form.FilterOn = True End Sub FILTER.rar تحياتي

أحسنت وجزاك الله الف الف خير الله يكثر من امثالك دكتورنا العزيز

مشاركه مع اخى خالد اريد ان اسال هل هذا الملف مصدر من قواعد بيانات اخرى ام لا ؟

السلام عليكم اخي العزيز لم اجد سبب لهذا بجهاز حاسوبي المشكله عندك فقط سؤال: هل استخدمت طريقة النسخ واللصق لبيانات الجدول من خارج الاكسس؟ لقد قمت بتعديل البيانات بالجدول واصبحت طبيعية افتح ملفك بعد التعديل واخبرنا هل الحقول بلغة غير مفهومة ام اصبحت واضحة تحياتي arme.rar

وعليكم السلام اخى الحبيب @محمد التميمي جزاك الله خيرا على كلماتك وشعوركم الطيب وبارك الله فيك ابانا الغالى ابو يوسف @محمد حسن المحمد بارك الله فيك وجزاك الله خيرا هذا من فضل الله ودعائكم الطيب لنا ابانا الغالى وصل اللهم على سيدنا محمد وعلى آله وصحبه وسلم

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

جرب هذا الكود بشرط تحديد نطاق ( خلية أو عدة خلايا ) ومع الأسف لا يمكن معاينة قبل الطباعة عند طباعة التحديد Sub PrintSelection() Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False End Sub

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

جزاك الله خيرا اخى واستاذى العزيز @صالح حمادي عالتوضيح اخى محمد @حلبي لاتحزن وانت وسط اخوانك واساتذتنا ومعلمينا واعلم ان المعلومات تاتى اكثر واكثر عند السؤال عن الموضوع فنحن طلاب علم نتعلم من خبرات اساتذتنا واخواننا السابقين والموجودين جزاهم الله خير الجزاء وارفق لك رابط لمزيد من المعلومات عن الموضوع بعد اذن اخى واستاذى @صالح حمادي https://ar.wikipedia.org/wiki/رمز_استجابة_سريعة تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

جرب هذا الملف GR_date.xlsx

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

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

جدير بهذا اللقب ....

تستاهل اخي @احمد الفلاحجي اعانك الله على المسؤلية ... الى الامام

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

الف مبرووووك استاذنا الجميل الخلوووق @أحمد الفلاحجى تستاهل كل خير استاذنا والى الامام دائما باذن الله 🌷🌷

الف مبروك استاذنا الفاضل @أحمد الفلاحجى جهودكم كبيرة واستحقاقكم اللقب كان امر متوقع

الف الف الف الف الف الف الف الف الف الف الف الف مبروك استاذنا وخبيرنا / @أحمد الفلاحجى تستاهل فانت اهل لذلك ، تذكر ماذا قلت لك سابقا الاستشعار معى ( هذا اخى العزيز تخصصى في الدنيا ) القلب الابيض والتواضع يساوى خبير بالتوفيق يارب اخى الفاضل

الف مبروك لاستاذ الكريم احمد تستاهل كل خير

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

ألف ألف مبروك أخي @أحمد الفلاحجى تستاهل كل خير الآن ننتظر من الكثير و الكثير بعد أن أصبحت في قائمة الخبراء

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

تم التعديل المرفقات Test_2.rar

بدون أثقال علي القاعدة بالاكواد بدون داعي يمكنك تثبيت اللون من خصائص الحقل كما تريد من لون الخلفية تحياتي

جرب هذا الملف Special_days.xlsx

عندها يجب استبدال الكود الى هذا Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim x%, First As Range, y%, My_address$, Answer As Byte Application.EnableEvents = False If Not Intersect(sh.Columns(1), Target) Is Nothing Then Set First = Cells(Target.Row, 1) y = Application.CountIf(ActiveSheet.Columns(1), First) If y > 1 Then My_address = ActiveSheet.Columns(1).Find(First, lookat:=1).Address Answer = MsgBox("Error!" & Chr(10) & "This Record is Allready Exits in" & Chr(10) & _ " This Sheet cell:" & My_address & Chr(10) & "do you want to continue", vbYesNo) If Answer <> 6 Then Target = vbNullString GoTo Exit_me Else GoTo Exit_me End If End If For Each sh In Sheets If sh.Name = ActiveSheet.Name Then GoTo My_next: x = Application.CountIf(sh.Columns(1), First) If x > 0 Then My_address = sh.Columns(1).Find(First, lookat:=1).Address Answer = MsgBox("Error!" & Chr(10) & "This Record is Allready Exits in" & _ Chr(10) & sh.Name & ":" & My_address & Chr(10) & _ "do you want to continue", vbYesNo) If Answer <> 6 Then Target = vbNullString GoTo Exit_me End If GoTo Exit_me End If My_next: Next End If Exit_me: Application.EnableEvents = True End Sub الملف من جديد No Repeat In All Sheets_by_choise.xlsm

اولا عاجز عن الشكر ثانيا جاري التجريب

أ.عماد محمد عبد العزيز جرب المرفق عسى أن يكون المطلوب مع مراعاة أن 2020 ستتغير كل عام .. أم أنك تريدها ثابته التوريد.accdb معذرة أخى Shivan Rekany لم أنتبه لردك

شكراً لك أ/ خالد على ردك الكريم على سؤالي الاجابة بسيطه لاكن ليس كل شخص يعرفها

من خلال خصائص زر الامر

السلام عليكم في الكثير من الأحيان نحتاج إلى معرف مصدر اختصارات سطح المكتب أو إلى معرفة هل هذا البرنامج لديه اختصار على سطح المكتب أم لا؟ نستطيع استخراج مصدر اختصارات سطح المكتب و ملفها من خلال هذا الكود: Dim strFolder As String Dim strDesktop As String Dim typefiche As String Dim strtxt As String typefiche = "\*.lnk" strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") strFolder = Dir(strDesktop & typefiche, vbDirectory) Do While strFolder <> "" If Not (strFolder = "." Or strFolder = "..") Then strtxt = "Full Path: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).TargetPath & vbCrLf strtxt = strtxt & "Path Folder: " & CreateObject("WScript.Shell").CreateShortcut(strDesktop & "\" & strFolder).WorkingDirectory & vbCrLf MsgBox strtxt End If strFolder = Dir() Loop مصدر اختصارات من سطح المكتب.rar

هذا الموضوع قد تجدون فيه ان شاء الله ضالتكم

الیکم ھذا الرابط لعل تستفيدون منه ... https://boundstatesoftware.com/blog/4-ways-to-get-your-ms-access-database-on-an-android-tablet-or-phone وهذه اثنان من برامج لكي يقدرون توصل الى قاعدة اكسس وفي رابط الاول تم اعطاكم مزايا و عيوب كل الطرق ... https://play.google.com/store/apps/details?id=com.kmsoft.access_db_viewer https://play.google.com/store/apps/details?id=com.microsoft.rdc.android

السلام عليكم ورحمه الله وبركاته برنامج ادارة مركز ( محل ) صيانة جوالات مرفق نسخة تجربية 15 يوم التواصل للاستفسار وشراء النسخة سعر النسخة 25$ فقط برنامج انجاز.rar اسم المستخدم وكلمة المرور Admin اسم المستخدم وكلمة المرور Admin

هذا أنا.. إذا كنت مقتنع بهذه الفكرة فإليك المرفق LINK_TABLE.zip

استاذنا الفاضل جمال لا اجد الكلمات لاعبر بها عن سعادتى للتواصل مع شخصكم الكريم ولا تعرف كم السعادة التى اشعر بها من خلال هذا التواصل صحيح ان الاعمال التى عن طريقها يتم التواصل مهمة إلا ان التواصل فى حد ذاته اهم عندى فمثلاً كما تعلم الاستاذ طارق قد اتحفنا بكود رائع ويؤدى العمل به إلا ان التواصل مع خبراء المنتدى كشخصكم الكريم هو اسمى شئ فى هذاالمنتدى وبخصوص الملف الفكرة ببساطه ان يقوم البرنامج بالبحث فى عمود السداد واذا وجد كلمة لم يسدد يقوم بنسخ بينانات العميل وبيانات القسط الفقط الذى لم يتم سداده وقد قمت بعمل حصر يدوى بالنتيجة المطلوبة بعد تحديد خانة بتاريخ الحصر تقبل منى كل حب واحترام ترحيل مبيعات القسط التى جاء ميعاد استحقاقها_222.rar

تفضلي أختي الفاضلة ،،، هذا مثال قد تستفيدي منه شاكر الزين max_97.zip

اضغطي ALT+F11 او من وضع تصميم النموذج او التقرير view codes