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

السلام عليكم ورحمة الله وبركاتة هذا البرنامج كان احد الاعضاء قد وجده في احد المنتديات الاجنبية وهو لقاعدة بيانات وتم التعديل والاضافة والتنقيح وكانت النتيجة الاتي :: عناوين السجلات في اليوزر فورم تعمل اتوموتيكيا عند تغيرها في الشيت اضافة صورة لكل سجل و يتم اضافة الصور الي الفلدر All_Pic بالأسم الاول للسجل اضافة سجل جديد تعديل السجل الحالي حذف السجل الحالي البحث في الاعمدة التي تم تعليم التشك بوكس لها في هيدر العناوين وتظهر هذه العناوين فقط في كومبو بوكس البحث يشمل الملف علي ثلاث صفحات الصفحة الاولي لقاعدة البيانات الصفحة الثانية لقاعدة البيانات اخري مصغرة لتوضيح الية عناوين اليوزر فورم الصفحة الثالثة تقرير بالسجلات التي تم اختيارها اصل الملف قبل التعديل New Userform Example_1.rar الملف بعد التعديل قاعدة بيانات بالصور_2.rar

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

sumdebit: DSum("[debit]","entry","[code] like '" & [code] & "*'")

السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من ااحد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة برنامج يعمل علي الاتي :: صفحة تكويد الاصناف مع الرصيد الاساسي ( رصيد اول المدة ) صفحة اضافة صنف الي اي من المخازن الثلاثة صفحة صرف صنف من اي من المخازن الثلاثة صفحة لكل من المخازن الثلاثة بها ارصدة الاصناف بالمخزن المعني يمكن الفلترة عليها صفحة حركة المخزون وهي تسجل جميع الاجراءات للصفحات السابق ذكرها ولا يتم التعامل معها من قبل المستخدم اضافة وصرف الي ومن ثلاثة مخازن.rar ارجو ان ينال اعجابكم

السلام عليكم اخي الكريم محمد افتح التقرير ثم افتح الاستعلام الذي هو مصدر التقرير ثم اضف العمود vew وفي مكان الشرط اكتب 1 أو true سيظهر في التقرير كل السجلات التي تحتوي على اشارة صح أما اذا كتبت 0 أو كلمة false سيظهر في التقرير كل السجلات التي لا تحوي اشارة صح طبعا انا قمت بالتعديل على التقرير اليك المرفق معمل (1).rar

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

السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من احد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة هذا البرنامج Omar_3.rar

أخى عبدالبارى يرجى الانتباه إلى أن كلمة إن شاء الله تكتب هكذا ( إن شاء الله ) هذا والله أعلى وأعلم تمنياتى لكم بالتوفيق والسداد

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

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

الاخ احمد ديدو تم التعديل ملحوظة هامة انت اضفت رقم المسلسل 16 بدلا من رقم الكود 6 يجب مراعات تسلسل الكود او يمكن ان يكون رقم الكود اتوموتيكيا لا يتحكم فيه المستخدم Omar_2.rar

وعليكم السلام جرب أخي الدالة المعرفة التالية رابط الدالة المعرفة من هنا بعد وضع الدالة في موديول عادي .. اذهب لورقة العمل واكتب المعادلة التالية في الخلية B1 (بفرض أن التاريخ الهجري في الخلية A1) =ConvertDate(A1) تقبل تحياتي

تفضل اخى الكريم اتمني ان يكون هذا ما طلبت 11 Amr.rar

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

الله يعزك ويزيدك ويبارك فيك تم الحذف

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

حبيبي انا وكل ما املك تحت امرك تم التعديل تحياتي

بعد اذن اخويا الاستاذ عبد الله قدور جرب المرفق كده يا استاذ محمد سعيد رشاد لو ده اللى حضرتك محتاجة يبقى تمام ولو مش هو نحاول معاك تانى معمل -up .rar هههههههههههههههه محمد سعيد رشاد ابن السعيد لما ييسعد يجيله ردين ورا بعض فى نفس الدقيقه ههههههههههههههههههه يلا يا سيدى والاستاذ عبد الله جزاه الله خير شرح لك كل شئ وانا اضفت لك كودين فى التقرير واحد لو ما تم اختيار اى شئ يظهر رساله بدل الطباعة لعدم اهدار الورق والحبر بلا داعى والتانى يعمل لك برواز على التقرير " تحديد "

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

وعليكم السلام ورحمة الله تعالى وبركاته وحضرتك بصحة وعافية وسلامة وان شاء الله بعودة عليك تلك الايام المباراكات وانت على طاعة وفى سعة من الرزق والخير والنعم ان شاء الله ثانيا بصراحة اعجبنى السؤال جدا جدا جدا فعلا سؤال اكثر من رائع لكن ابشر حضرتك بكل الخيـــر . . ..... تفتكر ايه اللى راح يحصل ؟! انا مش راح ارد عليك واسيبك انت مع التجربة ومنتظر رد حضرتك بعد التجربــــــــــــــــــة

اسمحوا لي بالمشاركة الامر الاول هو عدم وجود علاقات بين الجداول والثاني هو الكودات اعتقد ان كودات الاقسام يجب ان تكتب بنفس العدد من الارقام هذا ملف مصمم بطريقة لن تحتاج فيها الى اكواد لايجاد مجموع وغيره ارجو ان يكون المطلوب واسف على الاطالة DB.rar

أخي ياسر المعادلة جميلة ونوعا ما تفي بالغرض اشكرك وجوزيت خيرا

ممتاز وفقك الله لكل خير وسددك ...

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

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

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

الاخ ياسر خليل أبو البراء شكرا لك اخي تم التعديل واستبدال المرفق جوزيت خيرا

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

بارك الله فيك وجزاك الله خيراً أخي العزيز محمد السباعي ونتمنى لك التوفيق واااااااااااااااااصل بلا فوااااااااااااااااااااصل

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

مشكور أخ ياسر الدالة تعمل بشكل رائع

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

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

كلنا نتعثر لست وحدك .. المهم أن ننهض من عثرتنا ونصل لخط النهاية تقبل وافر تقديري واحترامي

جزاك الله خيرا اخي ياسر و صدقني مازلت أتعثر في المصفوفات نوعا ما و كل مرة اكتشف خطوة

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

اختي الفاضلة ومشاركة مع اخي محمد ايمن بما انه لا يوجد شروط او محددات لسجلات محددة فيمكن كتابة الجملة التالية DoCmd.RunSQL "insert into WareHouse(barcode,quantity,branch) select barcode,quantity,branch from sales" وحبيت اوضح المشكلة لديك سابقا وهي ليست مشكلة وانما خطأ منطقي فكودك السابق يضيف القيم من النموذج وعند السجل الحالي وهو السجل الذي به مؤشر محدد السجلات وهنا بالطبيعي سيتم اضافة بيانات سجل واحد وهو الحالي ولكي نستخدم نفس فكرتك ودمجا مع فكرة الاستاذ محمد ايمن يمكن الدوران وعبارة عن ان انقل محدد السجلات لاول سجل ثم الادراج والانتقال للتالي ثم الادراج وهكذا وهنا ساقوم بتعديل بسيط بكودك السابق يقوم بالادراج من اسجل الحالي وما بعد وحسب رغبتك في تحديد البدء بالادراج وذلك بنقر سجل البدء For i = CurrentRecord To Me.RecordsetClone.RecordCount DoCmd.RunSQL " INSERT INTO WareHouse ( [barcode], [Quantity], [Branch])values ( '" & Me.[barcode] & "', " & -Me.[quantity] & ", " & Me.[branch] & ");" DoCmd.GoToRecord , , acNext Next بالتوفيق

تفضل اخي الكريم جرب الزر ( امر 17) عندي سؤال صغير : ما الفكرة من ادخال نفس البيانات الى جدولين ؟؟ Database12.rar

مر حبا جرب الكود التالي Sub iCopy() Dim sh As Worksheet, wr As Worksheet, j As Double, R As Double, Ary() Set sh = Sheets("ورقة1"): Set wr = Sheets("ورقة2") If wr.Range("a" & Rows.Count).End(xlUp).Row > 1 Then _ wr.Range("A2:E" & wr.Range("a" & Rows.Count).End(xlUp).Row) = "" With sh LsRow = .Range("a" & Rows.Count).End(xlUp).Row For j = 3 To LsRow If WorksheetFunction.CountIf(.Range("a3:a" & j), .Range("a" & j)) = 1 Then R = R + 1 ReDim Preserve Ary(1 To 5, 1 To R) Ary(1, R) = .Cells(j, 1): Ary(2, R) = .Cells(j, 2): Ary(3, R) = .Cells(j, 4) Ary(4, R) = WorksheetFunction.SumIf(.Range("a3:a" & LsRow), Ary(1, R), .Range("E3:E" & LsRow)) Ary(5, R) = Ary(3, R) * Ary(4, R) End If Next If R Then wr.Range("A2").Resize(R, 5).Value = WorksheetFunction.Transpose(Ary) End With wr.Select End Sub المرفق bb33.rar

السلام عليكم يجب عليك اضافة عمود جديد لجدول مصدر النموذج نوعه نعم/لا ثم تستخدمه في النموذج وعندي لك بعض الملاحظات 1- عندما ترفق قاعدة البيانات يفضل أن لا تكون مقفلة أو محمية بحيث انك ارفقتها وقد اخفيت الاشرطة منها 2- يفضل ان يفتح النموذج المراد التعديل عليه مع فتح قاعدة البيانات وتكتب داخله ملاحظة تشرح فيها مشكلتك بوضوح 3-اذا لاحظت أنك كتبت اسم النموذج في مشاركتك السابقة غير كامل عما هو موجود في المرفق تحياتي لك اخي محمد سعيد رشاد واتمنى ان اجد سعة في صدرك لسماع ملاحظاتي هذه وكنت اود ان ارسلها لك برسالة على الخاص لكن المنتدى لا يسمح للاعضاء الجدد بإرسال او استقبال الرسائل الخاصة لوضع قد يكون أني إرتآه مدير المنتدى والسلام عليكم ورحمة الله وبركاته

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

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

كل عام وانت وجميع الامة الاسلامية بخير

طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1 اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save خلاص اقفل الملف اللي فيه الفورم روح لملفك اللي عايز تدرج فيه الفورم وافتح وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف Private Sub Workbook_Open() UserForm1.Show End Sub احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك

الحمد لله أن تم المطلوب على خير .. والحمد لله الذي بنعمته تتم الصالحات

و عليكم السلام و رحمة الله و بركاته ... تقبل الله منا و منكم صالح الاعمال ...

الأخ العزيز أبو أدهم جزاك الله كل خير وفقك الله لما خير لك و للأخوة الأعضاء والزوار في هذا المنتدى الذي يجمع النخبة علما وأدبا و كرما وفقك الله

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

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

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