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

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية

انت بحاجة الى وحدة نمطية تضع فيها كل شرط ، هكذا (طبعا لم اضع كل الشروط ، وعليك بإضافتها كلها): Function Clean_Data(S) 'S = string of numbers mixed with data If Right(S, 2) = "-x" Then C = Mid(S, 1, Len(S) - 2) ElseIf Right(S, 5) = "xxxxx" Then C = Mid(S, 1, Len(S) - 5) Else C = S End If Clean_Data = Trim(C) End Function وتنادي الوحدة النمطية من الاستعلام هكذا: B: Clean_Data([f5]) والنتيجة حسب الشروط التي في الوحدة النمطية: جعفر

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

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك عذرا اخي الكريم .. مشغوليات العمل وضعف النتي لدي هذه الايام فقط اليك المرفق التالي تم تنفيذ ( زر ادخال وترحيل بيانات ) كما قمت انت بالتوضيح في المشاركة السابقة وايضا تم تنفيذ عمل البحث بالكومبوبكس ( البحث عن علاوة ) ولكن يجب الآخذ في الاعتبار القيمة في العمود AG ان تكون كلمة TRUE وكلمة FALSE بهذا الشكل وبنفس الحروف لضمان عمل التشيك بوكس اي كما في الصورة التالية وفي انتظار ردك وتوضيحاتك .. وخلينا ماشيين كده طلب طلب لضيق الوقت لدي هذه الايام فقط ولكن ان شاء الله دائما معك وبسرعة تقبل خالص تحياتي تحديث علاوات+ .rar

بعد اذن اخي و حبيب القلب ياسر انظر الى هذا الملف صفحة Salim dup_Remover_from cel.rar

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

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

اخي @ابا جودى هل تريد بيطلع هكذا

المشاركات لم تفقد و لله الحمد كلها موجودة ، و لكنها مشكلة تتعلق بالاظهار و ربما سببها الكاش على السيرفر و جاري بحث الامر باذن الله تعالي

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

بالفعل .. مشكلة حيث لا تظهر الردود إلا حين ترد فقط وفي وقتها أما بعد ذلك تختفي

شكرا جزيلا أخي شفان انا شفت البرنامج سابقا ، ولكني الآن انزلته ، وبالفعل به الكثير ، وكما قلت انت : جعفر

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

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

السلام عليكم الاخ الكريم /n_tareq بارك الله فيك بعد اذن اخي الحبيب / سليم حاصبيا .. جزاه الله خيرا انت قمت فعلا بتنفيذ ما اخبرك به من تعديل اسماء الشيتات ولكنك تجاهلت اسم هذه الشيتات في باقي الكود وبذلك تصبح التعديلات في الكود كما يلي : ** بدلا من السطر التالي للمتغيرات .. Dim i As Integer, LastR As Long, ws As Worksheet سنضيف به المتغير الآخر وهو الورقة الثانية او الشيت الثاني كما هو في السطر التالي Dim i As Integer, LastR As Long, ws, ws1 As Worksheet ** السطرين التاليين Set ws = ThisWorkbook.Sheets("البيانات") Set ws = ThisWorkbook.Sheets("المدراء") سيتم تغييرهم تبعا للمتغيرات التي قمت بوضعهم في الجزئية السابقة كما يلي : Set ws = ThisWorkbook.Sheets("البيانات") Set ws1 = ThisWorkbook.Sheets("المدراء") ** ثم جزئية آخر صف .. سيتم تغيير او اضافة للصف التالي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 كما هو يلي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1 وبالتالي ستقوم بعمل حلقة تكرارية .. لكل منهما .. لتكن مثلا S مثل T ولكن مع LastRow1 .. ثم يظل الجزء الاول في الكود والخاص بتفعيل عمل المطلوب في حالة اختيار OptionButton1 كما هو بدون تعديل ثم يتم تغيير الجزء الخاص بتفعيل عمل المطلوب من الكود في حالة اختيار OptionButton2 كالتالي If OptionButton2.Value = True Then If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws1.Cells(S, 3) UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If ارجو ان اكون قد وضحت لكم المطلوب وان لم يتتضح .. فبرجاء ارسال ملف مرفق كمثال ليتم العمل العمل عليه تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك لاداعي اخي الكريم لمثل هذه الكلمات منك .. فكما اخبرتك الجميع هنا يشارك ابتغاء مرضاة الله والكل يشارك حسب وقته وبالفعل انا عن نفسي انشغلت الايام الماضية ولا زلت في العمل وبعض مشغوليات الحياة وكنت بالفعل قد قمت بالعمل علي ملفك ولكن الظروف فقط .. واليك ما قمت به قبل مشاركاتك الاخيرة ومحاولتك بها ( لم اطلع عليها حتي الآن ) حيث ان ما دعاني للدخول الآن رغم الظروف العملية .. هي ردوك ( بصراحة لا تعجبني ) واليك الشكل المبدئي للفورم الذي قمت بتنفيذه بناءا علي طلبك ( وبه حل لمشكلة التاريخ التي تبحث عنها ) شاهد واخبرني ولكن لي طلب لديك هو ان نقوم سويا بتنفيذ المطلوب خطوة خطوة وطلب طلب ... نظرا لضغط العمل لدي فقط وحيث انني عندما ابدء بقراءة الطلبات بتووه منك ياعم ففيه ( الاستعلام .. التاريخ في الكمبوبكس تاريخ وليس ارقام .. التشيك بوكس لا يمكن اختيار الاثنين معا واحد فقط ) ولكنها بعض الطلبات المبدئية والتمهيدية للعمل علي طلباتك دا بس يا عم علشان متزعلش ... وعلي فكرة ليس هنا ضيوف فكلن اصحاب هذا الصرح العملاق فبمجرد ان قمت بالتسجيل اصبحت من اصحاب المنتدي اخي الكريم تقبل خالص تحياتي وعذرا علي الاطالة ... تحديث علاوات1 .rar

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

هذا الذي كنت عايز اسولف معاك فيه .. وهو ان يكون لدي جدول به ثلاث حقول اسم الحقل والمعيار والقيمه وها انت ماشاء الله وبيقول المثل الحر تكفيه الاشاره بالتوفيق

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

تفضل نعمل آخر سجل حسب آخر ادخال (ويمكن استخدام Max بدلا عن Last) والنتيجة . ونستعمل هذا الاستعلام كمعيار لربط السجلات الاخيرة ، مع الجدول الاساسي: والنتيجة جعفر 616.Database1.accdb.zip

انا كنت ادري ان ردّي مُحبط ، ولكني اضطررت ان اكتبه وسأزيدك بشيء آخر وهو: رجاء لا تضيع وقتك في هذا الموضوع ، فأنت كنت من الاوائل الذين دخلوا في هذا المجال ولديك مشاركة جدا غنية عن Google Drive ، ولم تصل الى نتيجة ، وانا قرأت الكثير عن هذا الموضوع ، وكيف ان بعض الشركات صرفت مبالغ كبيرة ، ولم يصلوا الى نتيجة وكما قلت: أخي السيد جمال ، دعنا نرى فكرة اخرى جميلة من افكارك المُبدعة ، واستثمر الوقت فيها نصيحة اخ الى اخيه السيد جعفر

أكثر من رائع ............... وشكرا

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

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

ربما ينال الاعجاب هذا الملف (بدون كود) جلب بيانات بين تاريخين sALIM.rar

مساء الخير على جروبنا العزيزفيديو جميل وجديدhttps://youtu.be/m7YoScf7boo يارب المعلومة تكون مفيدة اخوكم ماجد

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

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

يمكنك تغيير المعادلة إلى =IF(AND(L14>=1800;L14<3600);L14;0)

::: مشاركة مع الاستاذ ابا جودي .. :::يمكن استخدام الدالة Dlast وبنيتها كالتالي بدون شرط Dlast("[Field]","Table")

العفو استاذى العزيز بعد رب العزة سبحانه وتعالى لك على الكثير من الفضل فى بداية مشوارى التعليمى ولم ولن انسى فضلك انت وكل اساتذتى الكرام احبكم فى الله ولله عزوجل

طبعا ده على حسب المثال اللى انا عملته وحضرتك تقدر تغير براحتك يعنى انت ممكن تغير المعيار بتاع دالة dlookup

شكرا جزيلا لك سأطلع عليه إن شاء الله عندما أفتح الكمبيوتر

والله كنت أجهزة قبل أن تسأل أستاذى العزيز اتفضل جاااااااهز لعيونك استاذ عبد الفتاح.rar اللى راح يظهر فى الاستعلام لازم يكون = true من الجدول تمام

شاهد المرفق اخي الكريم ولكن شاهد الطريقة فقط حيث يحتاج الكود الجديد لبعض التعديلات السهلة البسيطة للحصول علي النتائج السليمة 100% ولكنه اسرع من الكود خاصتك .. وان شاء الله ان كان يفي بغرضك نكمل .. تقبل خالص تحياتي 20171صيفية برمجية استعلام.rar

العفو منك استاذى الجليل ومعلمى القدير ما انا الا طالب علم جزاكم الله خيرا وده الملف مرة اخرى باللمسة الرمهانية AllowAdditions (1).rar

السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة ) اما بخصوص زر التعديل فعلي اي اساس سيتم التعديل وباي الاعمدة او المعطيات سيتم البحث ليتم التعديل من خلاله هل هو من العمود QUO. REF. NO. اليك كود تسجيل البيانات Private Sub CommandButton2_Click() 'كود زر تسجيل بيانات Dim iRow As Long Dim ws As Worksheet Dim ii As Integer Set ws = Worksheets("QUOTATION BLOCKS & KERBS") iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 'ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value ws.Cells(iRow, 9).Value = Me.TextBox9.Value ws.Cells(iRow, 10).Value = Me.TextBox10.Value ws.Cells(iRow, 11).Value = Me.TextBox11.Value ws.Cells(iRow, 12).Value = Me.TextBox12.Value ws.Cells(iRow, 13).Value = Me.TextBox13.Value ws.Cells(iRow, 14).Value = Me.TextBox14.Value ws.Cells(iRow, 15).Value = Me.TextBox15.Value ws.Cells(iRow, 16).Value = Me.TextBox16.Value ws.Cells(iRow, 17).Value = Me.TextBox17.Value ws.Cells(iRow, 18).Value = Me.TextBox18.Value For ii = 1 To 18 Me.Controls("TextBox" & ii).Value = "" Next End Sub تقبل خالص تحياتي

If len (text01 )

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

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

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

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

السلام عليكم الاخ الكريم / sayed awad بارك الله فيك مرور طيب وكريم جزاك الله خيرا

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

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك كلمات كريمة وجميلة من شخص كريم ورااائع تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / largot2009 بارك الله فيك مرور طيب وكريم جزاك الله خيرا

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

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

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

السلام عليكم الاخ الفاضل / احمد عطية رزق بارك الله فيك شرفني مرورك واسعدني كثيرا جزاك الله خيرا