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

وهنا انا شرحت ليش قمت بهذه الطريقة: . . بينما في السؤال الآخر للاستاذ فايز : . ما انتبهت للكود كاملا ، فوضعت نفس الكود ، ولكن للسطر التالي (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

السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip

السلام عليكم كود لاحد الاخوة هنا بالموقع اتمنى ان يكون المطلوب علما ان ليس لدي طابعة لاجربه تحياتي New.rar

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

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

في الحقل 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 ، والورق ، لهذا السبب لن تحصل على نفس النتيجة/اللون الموجود في الشاشة ، وعليه ، يجب ان تجعل التظليل في الحقل ادكن قليلا ، واطبع وشوف النتيجة ، وبهذه الطريقة تجعل التظليل ادكن او افتح ، الى ان تصل الى اللون الصحيح على الورقة 🙂 جعفر

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

تفضل الملف موجود أم غير موجود.rar

السلام عليكم ملف تجريبي لملفك مخطط 1 تم عمله بالاكسس مخطط 2 تم عمله بالاكسيل في رابط فيديو لعمل المخططات والرسوم البيانية بالاكسس تحياتي https://www.youtube.com/watch?v=dRG8JCgNxyU db1.rar

وعليكم السلام 🙂 الكود الاصل انا كنت عامله (من زمان 🙂 ) ، وبعدها تم تعديله وتعديله حسب طلب السائل بواسطة الاعضاء الشباب في المنتدى 🙂 ولما تم طرح السؤال الاخير بواسطة الاستاذ فايز ، شفت الكود كاملا مثل ما حضرتك تفضلت وارفقته 🙂 لاحظت ان التعديلات اللي قاموا فيها الشباب لا تسمح بالكود ان يقرأ جميع السجلات ، فكان يخرج من القراءه على السطر 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

الف شكر استاذ سليم 100/100

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

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

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

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

شاهد هذا الفيديو

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

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

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

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

و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

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

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

وعليكم السلام ورحمة الله وبركاته انا قمت بتبديل المسميات العربية بحروف انجليزية لتسهيل العمل اختصرت لك الأوامر التي قمت بعملها انت جرب ووافني بالنتيجة هذا هو الاستعلام المعمول به بدل الثلاثة استعلامات الخاصة بك وأعطى نفس النتيجة التي تريد SELECT DFTbl.ID, DFTbl.Dt, DFTbl.Dw, DFTbl.Fw, DSum("[fw]","Qry","ID<=" & [ID])-DSum("[dw]","Qry","ID<=" & [ID]) AS FwateerPalance, DateDiff("d",[Dt],Now()) AS DtNum, moneyAge([DtNum]) AS [note] FROM DFTbl ORDER BY DFTbl.ID, DFTbl.Dt; يبقى امر سرعة الانجاز :: تحياتي اعمار_الديون_-_اسلام_الشيمى.accdb

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

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

من قال ذلك يبدو انك لم تشاهد تلفزيون اوفيسنا اتمنى لكم مشاهدة ممتعة officena_smart_tv.zip

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

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

تفضل قاعدة البيانات Months.rar

السلام عليكم ورحمة الله أخي الكريم، من الأحسن وضع نموذج في ملف لتسهل العمل عليها... إليك الملف الملف أين استعملت التنسيق الشرطي على الخلايا وكود صغير يوضع في ThisWorksheet... موفق إن شاء الله تلوين الصف والعمود.rar

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