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

تفضل اخي الكريم HLA_HLA.accdb

كيفية اضافة معادلة البحث XLOOKUP لاوفيس 2019-2016-2013-2010-2007-2003 في الفيديو دة هاتقدر تشتغل وكأنك معاك اوفيس 365 XFunctions.7z

الحق معك فعلا لا تعمل مع مربع النص وعذرا على المعلومة الخطا تحياتي

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

1- الصف الثالث من الورقتين(Row 3) يجب ان يكون فارغاً تماماً (لفصل الجدول عن باقي البيانات و بالتالي يتعرّف الاكسل على النطاق الواجب العمل عليه) 2- لا ضرورة للقوائم المنسدلة في ورقة 2 3- تجدد المطلوب من الورقة1 (الخلايا J2 و K2 و L2) ثم الضغط على الزر Run فينتقل المطلوب الى الورقة الثانية 4-في حال كانت اجد الخلايا ( J2 و K2 و L2) او أكثر فارغة (نتكلّم عن الورقة 1) تتم الفلترة على كل البيانات التابعة للخلية (الخلابا الفارعة) مثلا اذا كانت الخلية L2 فارغة تتم الفلترة على كل الفئات (أولى /ثانية / ثالثة) مع الاخذ بالاعتبار الخلايا (J2 و K2) 5- الماكرو Option Explicit Sub Copy_dat() Dim Source_Sheet As Worksheet, Target_Sheet As Worksheet Dim Source_Sheet_rg As Range, Target_Sheet_rg As Range Dim Criterea_rg As Range Dim Where_rg As Range Dim How_many% Set Source_Sheet = Sheets("ورقة1"): Set Target_Sheet = Sheets("ورقة2") Set Source_Sheet_rg = Source_Sheet.Range("A4").CurrentRegion Set Target_Sheet_rg = Target_Sheet.Range("A4").CurrentRegion Set Criterea_rg = Source_Sheet.Range("J1:L2") Set Where_rg = Target_Sheet.Range("A4:J4") How_many = Source_Sheet.Cells(Rows.Count, 3).End(3).Row Target_Sheet.Range("A5:J" & How_many).Clear Source_Sheet_rg.AdvancedFilter 2, Criterea_rg, Where_rg Set Where_rg = Target_Sheet.Range("A4").CurrentRegion How_many = Target_Sheet_rg.Rows.Count If How_many > 1 Then With Where_rg.Offset(1).Resize(How_many - 1) .Borders.LineStyle = 1: .InsertIndent 1 .Font.Size = 14: .Font.Bold = True .Interior.ColorIndex = 35 End With End If End Sub الملف مرفق Advanced_filter.xlsm

تم التعدبل Option Explicit Sub del_zeros_() Dim sh As Worksheet Dim curt As Range Dim rg_to_del As Range Dim F_rg As Range Dim Ro%, i% For Each sh In Sheets If sh.Name Like "report*" Then GoTo next_sheet Ro = sh.Cells(Rows.Count, 1).End(3).Row sh.Range("A4").Resize(, 10) = vbNullString Set curt = sh.Range("E5:I" & Ro) curt.Interior.ColorIndex = xlNone For i = 1 To curt.Rows.Count Set F_rg = curt.Rows(i).Find(0, lookat:=1) If F_rg Is Nothing Then GoTo next_row If rg_to_del Is Nothing Then Set rg_to_del = curt.Rows(i) Else Set rg_to_del = Union(rg_to_del, curt.Rows(i)) End If next_row: Next i If Not rg_to_del Is Nothing Then ' rg_to_del.Delete rg_to_del.Interior.ColorIndex = 35 End If Set rg_to_del = Nothing next_sheet: Next End Sub

تفضل اخي الكريم تم اضافة متغيير يزيد 5 كل مرة Dim X As Integer X = 0 For i = 1 To DCount("*", "Table4") X = X + 5 Me.MM = DateAdd("n", X, Now()) DoCmd.GoToRecord , , acNext Next

وعليكم السلام ورحمة الله وبركاته الفكرة انت وضعهتا فعلا باقي ان تحسب الوقت المتوقع لكل كشف من الدكتور مثلا 10 دقائق ووقت حضور الدكتور مثلا وقت حضور الدكتور الساعة 1:00pm اذن كل كشف نضيف له 10 دقائق من وقت حضور الدكتور ويمكن ان نطلب منه الحضور قبل الموعد بنصف ساعة مثلا لان الدكتور لن يلتزم بوقت 10 دقائق لكل كشف ( زيادة او نقص ) تحياتي

اتغضل DoCmd.OpenReport "report1", acPreview, , "[تاريخ الترقية الجديد]Between [Forms]![form1]![StartDate] And [Forms]![form1]![EndDate]"

تفضل هذا التعديل اخي الكريم ستلاحظ اولا و الأهم بأن الادراج اصبح اسرع من قبل كذلك مع كثرة العمل على البرنامج ستلاحط بأنه السرعة لن تتأثر كثير بسبب عدم تحميل القاعدة للمرفقات لأن المرفقات ستكون في ملف خارجي بجوار قاعدة البيانات لأن فقط عليك استخراج الملفات من الملف المضغوط و جرب ملاحظة كثرة الضغط على قاعدة البيانات بالمرفقات تتسبب في ثقلها و احيانا في عطبها كذلك انصحك بانشاء نسخة احتياطية يومية و الكود الخاص بذلك سهل كماهو موضح ادناه فقط انسخ و الصق لا اكثر من ذلك Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select Programe.zip

تفضل التعديل اخي الكريم HLA_HLA.accdb

مع برنامج عرضه في السابق واليوم اقوم بحمايته الخطوات التي اتبعتها ١.خفاء شاشة اكسس ٢.عمل نموذج للشفت ٣.عمل فترة تجربيه للبرنامج ٤.الحمايه بمعرفة رقم الهارد والبرسوسر ٥. عمل رقم سري للفجول هل ده كافي ولا في حاجه تاني ممكن اعمله كل ماسبق من خطوات تم بمساعدتكم كلها موجوده علي موقع اوفيسنا وشكري لكل من ساهم في وضع معلومه ومعرفه علي الموقع اوفيسنا

اقترح عليك ((( المحــــاولـــــــــة ))) الموضوع بسيط اخي الكريم و كلنا هنا في خدمتك لكن يجب ان تبدء لكي تتعلم و تجد العون انت تتكلم عن جمعية بها اسهم و بها مكتتبين او مساهمين اذا انت بحاجة الى عدة جداول بسيطة ( جدول باسماء المقترضين+ جدول الاقساط الشهرية) وهذي كلها حسب طبيعة عملك ابدء بانشاء الجداول ثم ابدء في انشاء نموذج لتعبئة تلك الجداول ابدء و ستجد الجميع معك قلبا و قالبا ستجد المتعة في عملك

اخى @عزالدين المنصوري ممكن مثال مصغر لما لديك للتعديل من قبل اخوانك واساتذتنا بالتوفيق

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

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

ايضا في اصدار 19

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

تسلم ايدك الله ينور تمام يا ملك الروائع لا حرمنامنك ابداااااااااااااااااا تعيش يارب يخليك كل حبى وشكرى لك اخى الغالى

جزاك الله خيرا ..

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

اعتقد هي متاحة لا تكست بوكس وليست متاحة للخلفية

السلام عليكم قم بحذف او تعطيل السطر القبل الاخير في الكود 'VBA.Shell "Explorer.exe " & Chr(34) & LExcelCopyOf & Chr(34), vbNormalFocus __برنامج تصدير الطلاب للسجل الالكتروني - نسخة.rar تحياتي

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

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

تفضل حركة المبيعات.xlsb

اخي الكريم لانشاء مجلد بإسم المادة استخدم هذا الكود Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrname =[text3] fldrpath = CurrentProject.Path & "\السجل الإلكتروني\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If و هذا تعديل لمتغيير كود التصدير فقط الصقه Dim LExcelOriginal As String Dim LExcelCopyOf As String LExcelOriginal = sXlsFile LExcelCopyOf = CurrentProject.Path & "\السجل الإلكتروني\" & [text3] & "\" & [Forms]![FORM2]![text2] & "_..xlsm" FileCopy LExcelOriginal, LExcelCopyOf

وعليكم السلام ورحمة الله وبركاتة تفضل اخي لعلة المطلوب ,,,,, inter.accdb

تفضل التعديل اخي الكريم ‏‏حصر الاجهزة 1معدل9.accdb

بارك الله فيك أخي لقد تم حل المشكلة بتعديل الخيار Discovery SSDP

وعليكم السلام ورحمة الله وبركاته جرب المرفق التالي تجارب.rar تحياتي