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

السلام عليكم اخواني الكرام قال الرسول الاكرم محمد (( زكاة العلم تعليمه )) اقدم لكم هدية قاعدة بيانات الحسابات بمناسبة حلول شهر رجب المبارك بنسختين عربية وانكليزية مع شرح مفصل لكل نموذج و طريقة عمله فأرجوا منك يا اخي الكريم مستخدم القاعدة ان تقرأ الكراس قبل استعمال القاعدة والسبب اني عملت كراس pdf وذلك لان كثير من المنشورات على المنتدى تكون مبهمة في الاستعمال . الاخوة الخبراء في المنتدى ارجوا من جنابكم الكريم تقييم عملي لأنه الأول من نوعه علماً اني لم ادخل أي دورة على برنامج الاكسس هي فقط هواية بجهود ذاتية والاستفادة من المنتدى أولاً ومن الدروس المنشورة على قنوات اليوتيوب علمأ اني اعمل على برنامج الاكسس منذ سبعة سنوات الاخوة الزوار لمن يريد مراسلتي وسؤالي بشأن قاعدة البيانات فيرجى مراسلتي على العنوان التالي babelon66@yahoo.com اعلى درجات الشكر والتقدير لمن ساعدني ووجده لي الحلول لبعض الإشكالات في الاكواد الأخ الكريم الخبير شفان الأخ الكريم الخبير جعفر الأخ الكريم الخبير صالح حمادي والاخ الكريم الخبير طاهر الوليدي المرفقات تجدونها في الرابط في الاسفل مرفوعة على الميديافاير وهي عبارة عن قاعدة بيانات الحسابات اكسس 2013 بنسختين عربي وانكليزي مع كراس شرح pdf طريقة الاستعمال مع ملفات الباكب رابط التحميل http://www.mediafire.com/file/l15mf6hf4diii5j/thaer.rar

تطبيق اليوم كيف نستخدم التقويم (لإختيار وتحديد التاريخ ) How To Use Calendar كلمات استدلالية: تقويم - Calender - نموذج - تاريخ قم باستيراد النموذج frmCalender و الوحدة النمطية ajbCalendar إلى قاعدة البيانات الخاصة بك قم بنسخ زر التقويم وأحد حقلي التاريخ أو كلاهما من النموذج F2 وأضفه ضمن نموذجك لاحظ الكود في حدث عند النقر لزر التقويم =CalendarFor([txtStartDate];"Set the start date") وفي الصورة توضيح الكود واليكم التطبيق ... NA_Calendar2000.rar

وعليكم السلام أخى تفضل تفقيط عربى وانجليزى.xlsm

أخي الكريم @أكسس وبس هل اطلعت على ملفك بعد التعديل أم لا؟؟ ارجو الاهتمام بالاجابة

تفضل test120.mdb

الله يجزاك خير ويرحم والديك ويكتب لك الأجر ما قصرت كفيت ووفيت . الله لا يحرمنا منك ولا يحرمك الأجر . تقبل فائق تقديري واحترامي .

بعد اذن أستاذى سليم تفضل أخى هذا تعديل بسيط على نفس الكود Book_salim.xls

ارفق قاعدة بياناتك لتفحصها

وعليكم السلام-تفضل Sub DelZeros() Dim c As Range For Each c In Selection If c.Value = 0 Then c.ClearContents Next c End Sub وهذا كود أخر Sub RemoveZeros() Dim Rng As Range For Each Rng In ActiveSheet.UsedRange If Rng.Value2 = 0 Then Rng.ClearContents Next Rng End Sub وأيضا يمكن مسح الخلايا المساوية للصفر وعدم إظهار الصفر وذلك عن طريق : Excel Option ثم Advanced ثم نختار Display Option For this work sheet وبعدين نحذف العلامة من على Show Zero وذلك كما بالصورة بارك الله فيك

باتوفيق اخي ابو زاهر

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

أهلا وسهلا بك فى المنتدى وعليكم السلام هو المفروض من حضرتك أن ترسل ملف توضح فيه المطلوب ولكنى عملت لك ملفين لعله يفى بالغرض فاختر منه المناسب لك-بارك الله فيك وجزيت خيرا البحث بأى حرف.xls بحث.xlsx

المطلوب غير واضح (الى اي حد تريد التقريب 0.5 / 3 / 5 / 10) ربما يعطيك فكرة هذا الملف Match salim.xlsx

وعليكم السلام ورحمة الله وبركاته تم بحمد الله التعديل على الكود بحيث ياخذ البيانات من شيت1 دون الحاجة للدخول اليه Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 26 Controls("TextBox" & j).Text = Sheets(1).Cells(ListBox1.List(i, 1), j) Next j End If Next i End Sub Private Sub TextBox27_Change() ListBox1.Clear For i = 1 To 26 Controls("TextBox" & i).Text = "" Next i If TextBox27 = "" Then Exit Sub ' Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Sheets(1).Range("B2:B" & ss) If C Like TextBox27.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Sheets(1).Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TextBox27.Value = "" ListBox1.Clear End Sub Private Sub UserForm_Activate() TextBox27.SetFocus For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ListBox1.List(i - 2, 0) = Sheets(1).Cells(i, 2).Value ListBox1.List(i - 2, 1) = i Next i End Sub

تفضل جمعيات.accdb

اكتب هذا تحت زر الدخول Private Sub log_Click() Me.WebBrowser0.Document.Forms(0).Save.Click End Sub

تسلم ايدك استاذنا الفاضل ومعلمنا القدير ابو خليل وتم عمل نقل البيانات لمربعي نص داخل المتصفح والحمد لله ولكن للاسف ما قدرت اتوصل لطريقة للضغط على الايقونات اسفل مربعات الادخال مثل login , remember me 2 text.rar بارك الله فيك وجزاك الله عنا كل خير استاذنا العزيز صالح الرابط لا يعمل بارك الله فيك

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

السلام عليكم مرة أخرى اليوم سأقدم لكم ملف متغير الألوان الملف ظريف ومفهوم أي استفسار فأنا هنا شكرا أخوكم في الله المبرمج : مناد سفيان الجزائر.Grouping_and_coloring.xls

اضم صوتي لصوت اخينا ايمن لمن له خبرة مع هذه الاجهزة ليلة البارحة كنت ابحث عن طابعة فواتير وكنت اسأل عن طابعة كاشير فأطلعني صاحب المحل على طابعة الكاشير وهي مدمجة مع الدرج فاخبرته اني اريد طابعة حرارية فقط فاخبرني ان اسمها طابعة فواتير واظن ولست متأكدا بل ظني ناتج من مشاركة سابقة في هذا المنتدى ان فتح الدرج تتحكم به الطابعة بمعنى ان الطابعة تتصل بالحاسب بينما الدرج يتصل بالطابعة وهذه هي المشاركة http://www.officena.net/ib/index.php?showtopic=42471#entry243397 انظر السطر الرابع من المشاركة الاولى