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

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم 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

الحمد لله مليون إعجاب أستاذ رمهان نجاح مبهر بل أيضا جعلت نص المعيار كاملا فى الجدول فصار أكبر من 200 أنت أنشأت حقلا يقيم ما إذا كانت القيمة أكبر من 200 هذا الحقل يعطى صواب و خطأ و جعلت المعيار له صواب ===== بينما أنا كنت أركز طريقة الحل على وضع المعيار فى الحقل [exmtotal] و مرة أخرى تقدم لنا Eval خدمة عظيمة وفقكم الله الآن نستطيع وضع معاييرنا كلها فى جدول و الإشارة إليها

لك ما تريد اخي محمد انظر الى الصفحة salim من هذا الملف جلب بيانات بين تاريخين sALIM.rar

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

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

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

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

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

بالفعل المشكلة موجودة ولكن في هذا الموضوع فقط

قاعدتك كان بها اثنان حروف فقط هما C , X مع علامة "-" لذا خذ هذا لعمل السريع Expr2: Replace(Replace(Replace([pn_EGM];"-";"");"x";"");"C";"")

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

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

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

وعليكم السلام قد تجد المطلوب في موضوع أخونا شيفان جعفر

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

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

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

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

شاهد المرفق اخي الكريم ولكن شاهد الطريقة فقط حيث يحتاج الكود الجديد لبعض التعديلات السهلة البسيطة للحصول علي النتائج السليمة 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 تقبل خالص تحياتي

حمادة عمر اخى الفاضل جزاك الله خيرا تحياتى

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

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

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar

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

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

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

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

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

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

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

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

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

السلام عليكم الاخ الكريم / alsawy_hassan بارك الله فيك جزاك الله خيرا