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

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

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

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

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

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

هذا سريعا وبعدين نسولف استاذ عبدالفتاح SELECT t1.exmid, t1.exmtotal FROM t1 WHERE (((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true") & 200))=True)); بالتوفيق

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

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

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

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

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

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

نعم نعم الله يفتح عليك معلش انا اتأخر فى الرد عليك لانى فى الشغل

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

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

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

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

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

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

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

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

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

يرجي اخي الكريم عدم تكرار الطلب في اكثر من موضوع رابط الموضو ع

العفو منك استاذى الجليل ومعلمى القدير ما انا الا طالب علم جزاكم الله خيرا وده الملف مرة اخرى باللمسة الرمهانية 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 )

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

اعرض الملف حساب الايام الفعلية بدون العطل الرسمية والاسبوعية كثرت الأسئلة في الفترة الأخيرة حول حساب الفرق بن تاريخين باستثناء العطل الأسبوعية والعطل الرسمية يستخدم هذا البرنامج في حساب مدة أجازات الموظفين من تاريخ بدء الأجازة إلى تاريخ نهاية الأجازة وكذلك مدد العمل الفعلية ولذلك توكلت على الله وقمت بتصميم هذة القاعدة لعلها تفيد كل من يبحث في هذا الموضوع والله من وراء القصد ولا ينقصني سوى دعاؤكم لكل من تعلمت منهم او على يديهم معلومه فى هذا الصرح الشامخ واطلب منكم على استحياء الدعاء لأبى وأمى بظهر الغيب صاحب الملف ابا جودى تمت الاضافه 02 سبت, 2016 الاقسام قسم الأكسيس ActualDaysCalcult.rar

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

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

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

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

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

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

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

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