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

وهنا انا شرحت ليش قمت بهذه الطريقة: . . بينما في السؤال الآخر للاستاذ فايز : . ما انتبهت للكود كاملا ، فوضعت نفس الكود ، ولكن للسطر التالي (12 بدلا عن 8 ) : . والنتيجة نفسها طبعا ، مع الاخذ في الاعتبار اني نقصت من 12 بدلا عن 8 🙂 جعفر

تفضل تم وضع كلمة مرور "123" لتأكيد الدخول على هذا الاجراء iBox = Application.InputBox("ادخل كلمة المرور لهذا الاجراء", "تأكيد بكلمة المرور") If iBox <> "123" Then Exit Sub 'تغير الباس من خلال هذا السطر BBBBB.xls

انت سؤالك كان في الحقل text2 ، جرب الرقم 1231231172564 واخبرنا النتيجة 😁 اما لو سؤالك كان: والحقل text2 = رقم ( 7 ) ، فالموضوع مختلف 🙂 جعفر

وعليكم السلام 🙂 تفضل : If Left(Me.text1, 1) = 7 And InStr(Me.text2, 7) > 0 Then MsgBox "رسالة التنبيه هنا" End If جعفر

وعليكم السلام اتفضل اخى @حسين العربى ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق test1.accdb

وعليكم السلام 🙂 في ذيل النموذج Form Footer (ونفس الطريقة للتقرير) : . =Sum(IIf([microtype]='Large',[micronum],0)) . والنتيجة . وللتأكد ان النتيجة صحيحة ، نستخدم المجاميع في استعلامك: للجميع: . وفقط large : . والنتيجة مطابقة لتلك التي في النموذج 🙂 وبعد البحث: جعفر 1183.micro.accdb.zip

السلام عليكم مشاركة مع اخي @اشرف عملت لك نموذج فيه ثلاث قوائم منسدله عن طريق العلاقات تحياتي ثلاث قوائم منسدلة عن طريق العلاقات.rar

تتفضل اخي هذا الرابط في المنتدي وفيه ما تطلب واكثر https://www.officena.net/ib/topic/45803-تطبيقات-،-شروحات-وحلول-برمجية-مسجلة-فيديو/#entry271170 وهذا المرفق ما تطلبه وهو موجود بالرابط NA_ComboBox.rar

Try This macro Option Explicit Sub Colorize() Dim Sh As Worksheet Set Sh = ActiveSheet Dim Rg As Range, cel As Range Dim at_c As Worksheet Dim Fadr$, Sadr$, i% Dim Act_Rg As Range, F_rg As Range Set Rg = Sh.Range("a1").CurrentRegion.Columns(1).Cells Rg.Interior.ColorIndex = xlNone For i = 1 To Sheets.Count If Sheets(i).Name <> Sh.Name Then Set Act_Rg = Sheets(i).Range("a1").CurrentRegion.Columns(1) Act_Rg.Interior.ColorIndex = xlNone For Each cel In Rg Set F_rg = Act_Rg.Find(cel, lookat:=1) If F_rg Is Nothing Then GoTo Next_cel cel.Interior.ColorIndex = 6 Fadr = F_rg.Address: Sadr = Fadr Do F_rg.Interior.ColorIndex = 6 Set F_rg = Act_Rg.FindNext(F_rg) Sadr = F_rg.Address If Sadr = Fadr Then Exit Do Loop Next_cel: Next cel End If Next i End Sub File Included Tekrar_by_sheets.xlsm

صديقي العزيز شاهد هذه السلسلة من الفيديوهات للمبدع الاخ محمد فيها طلبك

السلام عليكم .المعذره لم استطع تحميل ملفك المرفق عموما ..ضع الكود التالي في حدث الورقة المطلوبه ويمكن لك التحكم في المدى بين علامتي "" Private Sub Worksheet_Activate() ScrollArea = "A1:N100" End Sub

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

في الحقل text2 ، جرب الرقم 1231231172564 واخبرنا النتيجة 😁 اما لو سؤالك كان: والحقل text2 = رقم ( 7 ) ، فالموضوع مختلف 🙂 جعفر معك حق اخى واستاذى العزيز جعفر فانا اعتمدت على = 7 ولكن نظرتك اشمل جزاك الله خيرا بتعلمينا وتذكيرنا بالدوال اسال الله ان يرزقك الفردوس الاعلى انت وجميع اخوانى واساتذتى واجمل باقات الورود معطره بذكر الرحمن يحفظكم ويزيدكم من فضله وعلمه

ده الكود بتاع استاذي الفاضل احمد If Left(text1, 1) = 7 And Me.text2 = 7 Then MsgBox "ÊäÈíå" 'Me.Undo DoCmd.CancelEvent End If وده الي اعتمدته عندي لاني ده هو المطلوب

الف شكر اساتذتي الافاضل هذا هو المطلوب مش عارف اعطي مين احسن اجابه الاجابتين نفس الشي

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

بالعكس العلامة كاملة

حياك الله 🙂 يعني ما بتنقص درجاتي لأني اختصرت الطريق 😁 جعفر

السلا عليكم اخي سليمان 🙂 شكرا على تذكيري 🙂 بسبب نوع حبر الطابعة ، وطريقة طباعة الطابعة Draft او Normal ، والورق ، لهذا السبب لن تحصل على نفس النتيجة/اللون الموجود في الشاشة ، وعليه ، يجب ان تجعل التظليل في الحقل ادكن قليلا ، واطبع وشوف النتيجة ، وبهذه الطريقة تجعل التظليل ادكن او افتح ، الى ان تصل الى اللون الصحيح على الورقة 🙂 جعفر

بارك الله فيك سيد جعفر وغفر ذنبك وجعل الجنة مثواك ....... وجميع المسلمين ..... اشكرك .... تم الفهم

وعليكم السلام 🙂 الكود الاصل انا كنت عامله (من زمان 🙂 ) ، وبعدها تم تعديله وتعديله حسب طلب السائل بواسطة الاعضاء الشباب في المنتدى 🙂 ولما تم طرح السؤال الاخير بواسطة الاستاذ فايز ، شفت الكود كاملا مثل ما حضرتك تفضلت وارفقته 🙂 لاحظت ان التعديلات اللي قاموا فيها الشباب لا تسمح بالكود ان يقرأ جميع السجلات ، فكان يخرج من القراءه على السطر GoTo Got_the_info الموجود في الكود في الاسفل : . كان عندي حلين: 1. يا اني الغي كل الكود واغيره الى طريقتي ، وما كان فيه داعي ، لأن الكود كان يعطي نتائج صحيحة ، 2. او اني اشتغل على الموجود و اجاوب على السؤال بأقل قدر من التغيير ، وهذا اللي عملته 🙂 جعفر

وعليكم السلام اخى الفاضل هل هذا ما تريد ؟ وافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق micro.accdb

سلمت يداك يا ابو بسملة ياغالي هدية بسيطة كده

عفوا اخى حسين كان يوجد خطأ مطبعى بالكود 😀 x = Nz(DLookup("sale_id", "sale", "[reg_date]=" & Format([reg_date], "\#mm\/dd\/yyyy\#") & "And [code]=" & [code]), 0) If x > 0 Then MsgBox ("íæÌÏ ÝÇÊæÑå áåÐÇ ÇáÚãíá :" & " " & Me.code.Column(1) & " " & "/ ÈäÝÓ ÇáÊÇÑíÎ ") Me.Undo End If جرب الان ووافنى بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق AUP_DlookupNew.accdb

شكرا استاذنا الفاضل ساقوم بالتجربة و ابلغك النتائج و انا شاكر لجنابكم

اخي الكريم ameer.iraq.93 من قواعد المشاركة فى الموقع لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة)

السلام عليكم تم اضافة كود تحديث تحياتي اتمنى يكون المطلوب ثلاث قوائم منسدلة عن طريق العلاقات.rar

See This Video https://www.youtube.com/watch?v=z5o5ADguYb0

الاستاذ الفاضل / @عبد اللطيف سلوم جزاكم الله خيرا سوف اتابع الدروس

سؤال هل قمت بتثبيت الباركود ؟ مرفق ملف لتقريرك اطبعه ووافنا بالنتيجه REPORT.pdf ان لم تكن ثبت الباركود قم بتثبيته مرفق ملف الباركود وملف لتسهيل التثبيت ووافنا بالنتيجه بالتوفيق تسجيل ادوات اكتيف اكس وعند تسجيل اي اداة وذلك بالضغط بالماوس الايمن عليها ستجد هذا البرنامج موجود ضمن القائمocxdllreg.rar B-barcodex.rar

وجدت لك هذا @Elsayed Bn Gemy انظر لعدد السجلات في التقرير .... KANORY.accdb

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

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

السلام عليكم تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور وكذلك يتم حفظ الصور في ملف Picture باسم الموظف (يمكن تغييرها الى رقم (id) بعد ادراج الصورة لابد من ادخال كل البيانات ثم اضغط على زر حقظ اعلمنا النتائج تحياتي صورة الموظف.rar

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMPRODUCT(--($H$10:$H$20=$N1),SUBTOTAL(2,OFFSET($G$10:$G$20,ROW($H$10:$H$20)-ROW(H10),0,1))) فلترة1.xlsx

السلام عليكم معكم ساجدة العزاوي من العراق اول مشاركة لي في المنتدى فديو مميز سهل رائع لاقى صدى واسع ينفع للكل للمدارس لدوائر الدولة للقطاع الخاص فديو عملته بـ 8 اجزاء ولما شفت كثيرين استفادوا منه عملت فديوين بعنوان في الاكسل متعة وسعادة وفرح فاصبح 10 اجزاء وساكمله باجزاء اخرى ... لانه رائع ومميز وسريع هناك من يريد تنسيبه لنفسه اترككم مع الفديو بحث بالاسم في TEXTBOX فيتم الفلترة الى LISTBOX وثم الى TEXTBOXES اكسل ساجدة العزاوي

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

لا ادري كيف عملت over group علي حقل رصيد سابق هل تقصد على التعبير مربع رصيد سابق ؟ ياليت ترفع الملف أخي @اسلام سيدفي المرفق تجد قاعدتين على طريقتين جرب و وافيني بنتيجة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

أخي و حبيبي الاستاذ @ابو ياسين المشولي كلامك صح مئة في المئة ولكن السبب هو كبس زر غير موافق بالخطاء عند حفظ الاخير في ارشيف لان كان وقت متأخر من اليل و تم اكمال الباقي لا بالعكس اتا اعتبر خبرتي نقطة من بحر خبراتكم و انا من استفيد من خبراتكم. قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar و ادخالها في المعادلة يمكن تغير ها الى =Nz([الفواتير],0)+Nz([المرتجعات],0)+Nz([الخصم],0)+Nz([الدفعات],0)+[x1]

السلام عليكم 🙂 بسبب انه مافي بيانات في المرفق ، فما قدرت اجرب ، وما قدرت اني اواصل !! على العموم ، اليك طرف الخيط 🙂 علشان تنادي حدث في نموذج آخر: 1. في النموذج الآخر ، يجب تغيير Private الى Public (لاحظ الدائرة الحمراء) ، 2. علشان ننادي الحدث ، نكتب كما في النقطتين 5 و 6 . الامر docmd.close سيغلق النموذج/التقرير الذي عليه التركيز والذي في الواجهة ، لهذا السبب ، واذا اردنا ان نغلق النموذج الذي نقرنا زر الاغلاق منه (سند القبض) ، وجب ان نكتب الامر كما في الرقم 3 في الاسفل ، ولاحظ اننا نغلق نموذج (سند القبض) بعد ان نعطي/نرسل الاوامر للنموذج الآخر 🙂 . وعلى هذا المنوال تستطيع مواصلة المشوار 🙂 جعفر 1086.‏‏BuySal19_v04.mdb.zip

وعليكم السلام ورحمة الله وبركاته تفضل Insert.accdb

شغلك تمام ، بس !! 1. ما عندك عرض كافي ، فصغّر عرض الحقول ، 2. قلل من عرض مسافات اليمين واليسار في الطابعة ، 3. استعمل معاينة التقرير ، . 🙂 جعفر 1064.جعفر اوفسنا.accdb.zip

انا اول مرع بصراحة اتعامل مع المرفقات كنت ابحث وكنت ادرس الكود https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field2-savetofile-method-dao ثم لتعلم ان الفضل كله لله عزوجل هو العليم و لو لا تفضله سبحانه وتعالى علينا ما اهتدينا

الأخ العزيز خالد عبد الغفار هل هذا هو المطلوب؟ كل عام أنتم بخير bb1.zip

هنا قاعدة بيانات اكواد VBA للاكسل مع الشرح والامثلة ((( مرجع للجميع ))) السلام عليكم ورحمة الله وبركاته الفكر من الموضوع عمل قاعدة بيانات باكواد VBA للاكسل مع الشرح والامثلة ((( تكون مرجع للجميع ))) امل من الجميع اثراء الموضوع ....

الحمد لله الذى بنعمته تتم الصالحات تم الحل حل مشكله التاريخ.rar

ارسل تقرير عن المشاركه قام بنشر Friday في 12:05 ملف التطبيق http://www.mediafire.com/file/yr1rrb7... ============================== http://gulfup.co/itpyj0db0zzp ================================ رابط اخر https://up.top4top.net/downloadf-644qz4ck1-rar.html ============== Sub sajida() '=================== 'هذا الكود للنابغه ساجدة العزاوي 'الهدف من الكود هو استخراج وطباعه شهادات الناجحين 'كل 4 شهادات في صفحه واحده 'تم هذا الكود في 6/10/2017 '=*=*=*=*=*=*=* Dim SHehada As Worksheet, DATA As Worksheet, Z As Range Set DATA = Worksheets("رصد الترم الثانى") 'اسم شيت قاعدة البيانات Set SHehada = Worksheets("4شهادات") 'اسم الشيت الخاص بالشهادات Dim myArray, targt targt = "ناج*" 'خلية البحث Set Z = SHehada.Range("M3") '=================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة عن التوزيع في ورقة مصدر البيانات For i = 7 To lr '======= If DATA.Cells(i, 101) Like targt & "*" And c = 0 Then ' If (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 0 Then Z = DATA.Cells(i, 2) c = c + 1 '=== ' ElseIf (DATA.Cells(i, 101) Like "*" & "ناج" & "*" And c = 1 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 1 Then SHehada.Range("M19") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 2 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 2 Then SHehada.Range("M35") = DATA.Cells(i, 2) c = c + 1 ' ElseIf (DATA.Cells(i, 101) = "ناجــــح" Or DATA.Cells(i, 101) = "ناجحــــة") And c = 3 Then ElseIf DATA.Cells(i, 101) Like targt & "*" And c = 3 Then SHehada.Range("M51") = DATA.Cells(i, 2) c = c + 1 End If If i = lr And c = 4 Then SHehada.Range("a1:p63").PrintOut: Exit For If i = lr And c = 3 Then SHehada.Range("a1:p47").PrintOut: Exit For If i = lr And c = 2 Then SHehada.Range("a1:p31").PrintOut: Exit For If i = lr And c = 1 Then SHehada.Range("a1:p15").PrintOut: Exit For If i < lr And (SHehada.Range("M19") = "" Or SHehada.Range("M35") = "" Or SHehada.Range("M51") = "") Then GoTo 1 If i < lr And c = 4 Then SHehada.Range("a1:p63").PrintOut c = 0 Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" 1: Next i Z = "" SHehada.Range("M19") = "" SHehada.Range("M35") = "" SHehada.Range("M51") = "" Application.ScreenUpdating = True End Sub

الاخ الكريم / fawzy elbrhany بارك الله فيك جرب استخدام الكود التالي ... فهو كود للاستاذ القدير / طارق محمود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.EntireColumn.Interior.ColorIndex = 8 Target.EntireRow.Interior.ColorIndex = 8 End Sub واليك ملف مرفق 2003 ... شاهد ذلك جزاك الله خيرا Row_Col_color.rar

السلام عليكم ************ اختر ما تشاء من المرفقين حركات.rar

إستكمالا لكلام الأخ أمير تعالو أولا ، نتعرف علي لغة السي كيو ال السي كيو ال هو لغة التعامل مع قاعدة البيانات و ينقسم الي 3 أقسام لغة معالجة البيانات DML Data manipulation language لغة تعريف البيانات DDL Data Definition language لغة التحكم فى البيانات DCL Data Control language لغة معالجة الييانات ادراج بيانات تحديث بيانات حذف بيانات استرجاع بيانات لغة تعريف البيانات هي إنشاء قاعدة البيانات فى البداية كان يتم انشاء قاعدة البيانات باستخدام جمل SQL ثم بعد ظهور نظم ادارة قواعد البيانات أصبحت هذه العملية تتم من خلال واجهة رسومية سهلة الاستخدام قادرة علي انشاء و التحكم أيضا فى قواعد البيانات و هذه اللغة مسئولة عن : إنشاء جدول الغاء جدول تعديل جدول العلاقات و للتعامل معها من خلال الاستعلامات لا يوجد سوي استعلام انشاء جدول جديد أما الباقي فعلينا بالتعامل معهم بالكود لغة التحكم تتولي معالجة صلاحيات المستخدمين و هذه العمليات أيضا أصبحت تتم من خلال الواجهة الرسومية لنظم ادارة قواعد البيانات موضوع مرتبط : أسهل طريقة لكتابة جمل سي كيو ال بالكود