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

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

لا اخي [mydate] هو حقل في الجدول اللي بندخل فيه التاريخ وعملنا شرط اللي تاريخ في ذلك الحقل بيساوي مع تاريخ اليوم وللتاريخ اليوم استخدمنا Format(date, "DD/MM/YYYY") date = اليوم الحالي لكن اذا تريد ان تختار للييوم من الايام من الاحسن ان تعمل تيكست بوكس في نموذج وتكتب فيه تاريخ وتكتب اسم المربع بدل date وبعدين عند كتابة اي تاريخ فيه سيعدد لك السجلات في ذلك التاريخ هذا والله يعلم

نعم اليك هذا فرضنا عندك جدول باسم MAIN وحقل للتاريخ باسم MAIN وتدخل التاريخ هكذا DD/MM/YYYY سنستخدم هذا الكود DCount("*", "MAIN", "[MYDATE]=#" & Format(date, "DD/MM/YYYY") & "#")

اولا احب ان اشكر كل اعضاء و مشرفى هذا المنتدى العظيم الذى تعلمت و لازلت اتعلم منه الكثير و الكثير و اليوم اقدم الى الجميع برنامج المخزون الشامل حيث قد طلب منى احد الاصدقاء برنامج لضبط حركه مخزون شركته وهى شركه مستحضرات تجميل فقد قمت بعمل هذا البرنامج الذى يصلح لكل انواع المخزون مع بعض التعديلات البسيطه نبذه صغيره عن البرنامج 1-برنامج يحتوى على صفحه فواتير المبيعات و المشتريات و المرتجعات 2-و يحتوى على صفحه كشف حسب العملاء التى توضح المدفوع و المستحق خلال فترات معينه 3- صفحه التقارير وتضم حركه الاصناف حركه الفواتير وتقرير شامل بالمبيعات و المشتريات خلال اى فتره انت تحددها 4- كما يمكنك ادخال اى سند سواء كان صرف او قبض من خلال فورم ادخال السندات 5- حركه المخزون و التى توضح الربح و الخساره لكل صنف على حده و المزيد و المزيد من المزايا الاخرى التى سوف تكتشفها بنفسك ملاحظات تم عمل البرنامج على اكسيل2010 وتم تجربته بنجاح على اكسيل 2010 الرقم السرى للدخول الى البرنامج هو 123 وانصح جميع الاخوه الذين يجربون البرنامج ان يتم تجريبه على نفس الاصدار تجنبا لحدوث اى مشاكل تم رفع البرنامج على موقع الميديا فير حيث ان حجم البرنامج 2 ميجا بايت كما ارحب براى الاخوه و الخبراء فى البرنامج سواء كان نصيحه او نقد او معلومه جديده كما انوه باننى جاهز لاى استفسار او تعديل لهذا البرنامج لمن يريد على حسب طبيعه عمله و على حسب وفت فراغى و اخيرا اشكر كل اعضاء ومشرفى هذا الصرح العظيم الذى تعلمت منه التحميل من الرابط التالى http://www.mediafire.com/file/u34hp2c38h6slc7/برنامج المخزون الشامل.rar برنامج المخزون الشامل.rar

تفضل يا صديقي هذا اقصى ما توصلت اليه تم تغيير اسماء الصفحات المعنية لحسن العمل مع اللغة الاجنبية(فقط اضغط على الزر في صفحة Main) ثم تفقد باقي الصفحات الكود (يأخذ وقتاً لانه طويل قليلاً) Sub Filter_Me(x) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets("Sapace").Range("b4:g200").ClearContents With Sheets("Main") .Range("$B$16:$g$434").AutoFilter Field:=6, Criteria1:="=" & x .AutoFilter.Sort.SortFields.Add Key:=Range("C16:C434") .Range("b16:g434").SpecialCells(12).Copy Destination:=Sheets("Sapace").Range("b4") .Range("$B$16:$g$434").AutoFilter End With Sheets("Sapace").Select lrx = Sheets("Sapace").Cells(Rows.Count, "b").End(3).Row Range("D4").Select Selection.AutoFilter ActiveWorkbook.Worksheets("Sapace").AutoFilter.Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sapace").AutoFilter.Sort.SortFields.Add Key:=Range _ ("D4:D" & lrx), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Sapace").AutoFilter.Sort .Apply End With Selection.AutoFilter With Sheets(x & "") ro1 = .Cells(Rows.Count, "d").End(3).Row ro2 = .Cells(Rows.Count, "i").End(3).Row ro = Application.Max(ro1, ro2) .Range("d12:g" & ro).ClearContents .Range("i12:L" & ro).ClearContents y = Int(lrx / 2): m = 12 For tt = 1 To 2 Select Case m Case Is <= y .Cells(12, 4).Resize(y - 4, 4).Value = Sheets("Sapace").Range("c5:f" & y).Value m = y + 1 Case Else .Cells(12, 9).Resize(m, 4).Value = Sheets("Sapace").Range(Cells(lrx - y, 3), Cells(lrx, 6)).Value End Select Next End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Give_data() 'توزيع النلاميذ مع الابجدة الاتاث أولا For i = 1 To 10 Filter_Me (i) Next End Sub st distribution_with aphab femel_first.rar

تفضل Function Control_Names(frm As Form) Dim ctl As Control Dim ctl2 As Control For Each ctl In frm.Controls If ctl.ControlType = acSubform Then 'subform For Each ctl2 In frm(ctl.Name).Form Debug.Print "Forms!" & frm.Name & "!" & ctl.Name & "!" & ctl2.Name Next Else 'normal Form objects Debug.Print "Forms!" & frm.Name & "!" & ctl.Name End If Next ctl End Function وتناديها call Control_Names(me) جعفر

بدون عرض الخلايا الفارغة: في الاستعلام ، في حقل التاريخ ، في سطر Criteria ، اكتب التاريخ الذي تريده او الاشارة الى الحقل في النموذج. جعفر

سؤالك كان ، وعليه وضعت لك الرد: اما الآن فانت تقول غير هذا: جعفر

استخدم نفس الطريقة التي استعملناها هنا: جعفر

ان شاء الله اجهز بعض الملفات وافتح موضوع جديد فيه جعفر

هلا والله ، وعلى راسي جعفر اخي شفان ولكني انصحك ان تُنزل المرفق التالي ، والذي به يكتمل ربط الـ FE و BE جعفر

أيضا منع ظهور ورقة الخصائص في وضع التصميم

شكرا جزيلا جعفر

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

شکرا لک اخی الظابط اللهم امين .... وانت بالف خير امين اجمعين .... وانت بالف خير اللهم امين اللهم امين اجمعين وفي اخر يوم من العيد اقول عيد سعيد ... وكل عام وانتم بالف خير نتمنى لكم السعادة

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

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

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

جرب هذا الملف للفرز والابجدة الكود مرفق Sub Filter_Me(x) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Sheets("Sapace").Cells.Clear With Sheets("Main") .Range("$B$4:$G$434").AutoFilter Field:=6, Criteria1:="=" & x .AutoFilter.Sort.SortFields.Add Key:=Range("C4:C434") .Range("b4:g434").SpecialCells(12).Copy Destination:=Sheets("Sapace").Range("b4") .Range("$B$4:$G$434").AutoFilter End With lrx = Sheets("Sapace").Cells(Rows.Count, "b").End(3).Row With Sheets(x & "") .Range("b5:g50").ClearContents .Cells(5, 2).Resize(lrx, 6).Value = Sheets("Sapace").Range("b5:g" & lrx).Value .Columns.AutoFit End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Give_data() For i = 1 To 10 Filter_Me (i) Next End Sub correction_stds.rar

المشكلة ان الاسماء موجودة في خلايا مدمجة (الاعمدة D E F)مما يعيق عملية الترتيب الابجدي للتلاميذ كي تتم عملية الابجدة يجب كتابة الاسماء في عامود واحد دون استعمال عدو الاكواد الاول(أعني الخلايا المدمجة) انا لا اعرف لماذا تستعملون الخلايا المدمجة في حين يمكن توسيع العامود بالقدر الذي تريد لاستيعاب المعلومات

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

مره قلت لي مفيش تكرار ... اعطيتك رابط التكرار الخاص بك وبعدها قلت ( لكن .. احتياجى لحل المشكلة ضروري جدا ) ردود دون ......... الله يصلح حالي ويصلح حالك و يصلح حال اللي هايجاوبك

Option Explicit Sub give_solotion() Dim lr As Integer, col, i, k, moth As Integer Dim My_date As Date Dim First, Sec As Worksheet Set First = Sheets("السجل"): Set Sec = Sheets("المتاخرين") Application.ScreenUpdating = False lr = First.Cells(Rows.Count, 1).End(3).Row: If lr < 2 Then lr = 2 First.Range("a2:xfd1000").Interior.ColorIndex = 0 For i = 2 To lr col = First.Range("xfd" & i).End(xlToLeft).Column For k = 3 To col Step 2 My_date = First.Cells(i, k) moth = Month(My_date) If moth = Month(Date) And My_date < Date _ And First.Cells(i, k).Offset(0, -1) = "" Then First.Cells(i, k).Interior.ColorIndex = 3 First.Cells(i, 1).Interior.ColorIndex = 3 End If Next Next Translate_Data Application.ScreenUpdating = True End Sub Sub Translate_Data() Dim lr As Integer, col, i, k, m, x, moth As Integer Dim My_date As Date Dim First, Sec As Worksheet Dim arr() Set First = Sheets("السجل"): Set Sec = Sheets("المتاخرين") lr = First.Cells(Rows.Count, 1).End(3).Row: If lr < 2 Then lr = 2 Sec.Range("a2:M1000").ClearContents '============================ For i = 2 To lr col = First.Range("xfd" & i).End(xlToLeft).Column For k = 1 To col Step 2 If First.Cells(i, k).Interior.ColorIndex = 3 Then ReDim Preserve arr(1 To x + 1) arr(x + 1) = First.Cells(i, k) x = x + 1 End If Next If x = 0 Then m = m - 1: GoTo 1 Sec.Cells(m + 2, 1).Resize(1, x) = arr 1: Erase arr: x = 0 m = m + 1 Next '============================= End Sub جرب هذا الملف اضفط فقط على الزر في الصفحة 2 الكود مرفق تم التعديل على الاعمدة (ازالة الاعمدة الفارغة) المتأخرين عن التسديد salim.rar

لجعل الامر السابق يعمل ، يجب ان نضع علامة صح على الاعدادات التالية (اللي في الدائرة الحمراء): في الاكسس 2003 فما دون: . والاكسس 2010 . جعفر

السلام عليكم أخي كل عام وأنتم بخير وأعيادكم مباركة هل اطلعت على المرفق الذي أرسلته لك؟ إن أطلعت عليه هل هو المطلوب ؟ وإن لم تطلع عليه، أطلع عليه أولاً ثم حدد هل هذا المرفق يجيب على طلبك أم أنك تريد شيئاً آخر بالتحديد؟

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق والكود يتم تنفيذه بواسطة زر "ترقيــم"... بن علية حاجي ترقيم.rar

السلام عليكم ورحمة الله يمكن استعمال المعادلة التالية (بداية من الخلية A2) : =IF(OR(B2<>"";S2<>"");MAX($A$1:$A1)+1;"") إذا أردت أن تبدأ من الخلية A6 فتكون المعادلة كما يلي: =IF(OR(B6<>"";S6<>"");MAX($A$5:$A5)+1;"") وهكذا... بن علية حاجي

جرب هذا الملف Tansiq.rar

منتدايا العظيم سلام الله عليكم ورحمته وبركاته تحية واجبة لهذا المنتدي العظيم فمنذ تعاملت معه وعرفته من خلال بحثي علي النت استفدت منه استفادة عظيمة جدا حتي انني قررت انا اعمل موضوعا فقط لاعبر عن مدي شكري الكبير. لاني فعليا لا اجد الكلمات التي اصف بها جميلكم ليس تملقا او رياء لتقضية طلبي منكم لكنه واقسم بالله حقكم عليا فهناك اعضاء استفدت من شروحاتهم واعمالهم وفيديوهات الشرح التي صنعوها لنا مما جعلني انجز عملي بما يليق فهذا اولا فقررت ان ارفق شكري مع طلب اما ثانيا فلي طلبات ليس بالصعبة ولكنها لكثيرة فارجوا من سعت صدركم احتمالها واحتمالي 1)) الطلب الاول: في الصفحة DATA G1 في العمودCL ترتيب الطالب علي مستوي المدرسة هذا الكود يرتب حتي الطالب مية(100) ترتيبا مفقطا سليما ثم بعد هذا يرتب الطالب ترتيبا سليما ايضا ولاكن رقميا وسوف تلاحظون ذلك وانا اريد حتي 300 طالب تعداد طلاب مدرستي ======================================= 2)) الطلب الثاني : في نفس العمود مشكلة وهي مشكلة الطالب المكرر كالاتي (الطلاب المتشابه مجموعها مع مجموع طالب اخر مثلا يدعوه الــ ...... مكرر ولا توجد مشكلة في ذلك اما الطالب الذي ياتي بعدهم يعطيه الترتيب التالي مباشرة في حين انه لا بد ان ياخد المكانة الصحيحة وهي رتبته اشرح اكثر (الطالب الثاني والثالث والرابع مجموعهما 200 مثلا فدعا الثاني الثاني ثم دعا الثالث الثاني مكرر والرابع الثاني مكرر ثم حينما اتي الي الطالب الخامس دعاه الثالث والصحيح او ما اريده ان يدعوه الخامس ) فهل وصل طلبي وادركتم مقصدي ========================================= 3)) الطلب الثالث: في العمود CM تفقيط مجموع الطالب بالحروف لا اريده ان يكتب 5/10 اريده ان يكتب نصف حيث انني مقربا جميع الدرجات العشرية ولا يوجد مجال لوجود كسر في المجموع للمادة او المجموع الكلي سوي 5/10 (من تعليمات المدرسة ) ======================== زهقتوا مني ولا اكمل اكمل واجري علي الله...........! ======================== 4)) ارجو النظر الي العمود CO في الصفحة DATA G1 ارجو النظر الي الدالة هل المدي بتقيم النتيجة من 300 صحيح ام خطأ ============================================= يا سلام لو طلبي الاخير يتحقق يبقي حكاية لاني قررت اعتمد شيأً حينما شرعت في عمل هذا الكنترول شيت اني لا المس سوي صفحة البيانات اما باقي الافعال فهي تصفي اوتوماتيكيا بدون تدخل مني من احصاءات وكشوف النتيجة والاوائل والشهادات فاذا تحقق هذا الطلب الاخير ابقي مبسوط قوي الا وهو 5)) الطلب الخامس : اريد وضع الطلاب الناجحين في كشف والطلاب الراسبين في كشف اخر للعلم (انا حاولت من خلال ماكرو لعمل ذلك وتم معي ولكني لم اعجب بما فعلت (ماكرو Macro222) ) فاريد شئ يبهرني مثل صفحة الاوائل Awael في الشيت المرفق اطلت عليكم الحديث اقصد الطلبات ولكني كلي ثقة في اجابتكم لي من سعة صدركم وادعوا الله لكل من ساهم في اخراج عملي ان يقعده الله فيه وفي اولاده وفي بيته ويكرمه الله دنيا واخرة واللي عنده شيء جديد ممكن اضيفه الي هذا الملف لا امانع بالافاكار الجديدة الشيقة والسلام عليكم ورحمة الله وبركاته المرفقات: wallled.rar

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

السلام عليكم ورحمة الله أخي وحبيبي أبو عبدالرحمان تقبل الله منا ومنكم ومن المسلمين جميعا الصلاة والصيام والقيام وصالح الأعمال... جرب المعادلة التالية في H2 ثم اسحب إلى الأسفل... =IF(OR($E2="";LEFT($C2;3)="قطع");$B2;$B2*($E2-$D2+1)/($G2-$D2+1)) أخوك دائما بن علية حاجي

السلام عليكم ورحمة الله تعالى وبركاته اخى الحبيب استاذ @محب اوفيسينا كل عام وانتم بخير اولا انا اعتذر لضيق وقتى الشديد كان مفروض اتناقش كع حضرتك فو شوية حجات ولكن على كل حال ممكن النقاش يتم بعد التجربة وذلك لضيق لضيق الوقت وحتى لا اطيل عليك اكثر من ذلك مميزات هذه القاعدة كالاتى - عند الفتح ادارج المجلدات الرئيسية لو لم تكن موجوده وهم كالاتى 1- المجلد الرئيسى abdullah 2- المجلد الفرعى Attachment 3- المجلد الفرعى برقم السيارة 4- عند الضغط على زر ادارج مرفقات من الكمبيوتر يتم انشاء مجلد بتاريخ اليوم داخل مجلد رقم السيارة وذلك تحسبا لو اردتنا التعامل مع نفس السياره بنفس الرقم فى تاريخ اخر والجديد المرونه فى الاتى وركز حبتين 1- لو تم حذف مجلد المرفقات يتم حذف سجلات البيانات الخاصة بالمرفقات التى تم حذفها فى الجدول tbl_car_attachments_list بطريقة الية دون تدخل منك 2- لو تم ارجاع مجلد المرفقات فى مساره الصحيح يتم اضافة سجلات البيانات الخاصة بالمرفقات فى الجدول tbl_car_attachments_list بطريقة الية دون تدخل منك انا عن نفسى عجبانى جدا الاافكار والية العمل بهذا الشكل Automotive APP.rar

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

تفضل هذا المرفق الجديد ، وان شاء الله يعمل المرفق واللي فيه اما الكود ذو الـ 1000 سطر ، فهو لإعادة ربط الـ FE مع BE ، ولا تهتم فيه ، فهو يعمل في الخلفية ولا يؤثر على شئ وممكن تستفيد من فكرة الاخ bhelmy وتستخدمها بدل الطريقة اللي انا عملتها لفتح النموذج ، بس اول شئ جرب برنامجي مثل ماهو جعفر 297.FE_BE_Password_Both_mdb.zip ولما تنتهي من هذه الخطوة ، يجب عليك حماية قاعدة البيانات بالكامل ، ومنع استعمال زر الشفت والدخول على البرنامج في هيئة التصميم ، وهذا الرابط يعطيك المطلوب: http://www.officena.net/ib/topic/62892-الحماية-من-برنامج-الغاء-وتمكين-الشفت-shift/ جعفر

السلام عليكم أخي طارق انا عملت لك المرفق على عجالة ، واستوردت شوية وحدات نمطية من برامجي البرنامج عبارة عن قسمين: - BE وفي الجداول (جدول واحد حاليا) ، وكلمة السر هي jj - FE وبه نموذج ، وكلمة السر لفتح النموذج هي 1234 الخطوة الاولى هي ربط FE بالـ BE : افتح النموذج بالطريقة العادية ، وسوف يطلب منك معرفة اين الـ BE ، وعندما تختاره وتدخل كلمة السر jj ويفتح النموذج ، اغلق النموذج. الآن شغل البرنامج بالطريقة العادية ، وستلاحظ اللي طلبته موجود جعفر 297.FE_BE_Password_Both.zip

السلام عليكم اذا كان هناك تعليق على الخلية سيقوم باضافة قائمة وسيقوم باستخدام الاسم الموجود في التعليق لنطاق القائمة شاهد المرفق 2003 FrameScrollBars1.rar

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

اخى الكريم تم انشاء الملف الخاص بك على النحو التالى صفحة لقاعدة البيانات (data) وتلك تقوم بتسجيل بها البيانات فقط وصفحى للاستعلام (inf) وتلك خاصة بالمدير فقط يقوم بتحديد المنطقة البيعية والضغط على بدأ اتمنى ان يكون ذلك ما تريد rate.rar

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