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

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

اتفضل هناك بعض ملاحظات: 1- لا يجوز ان يكون عندك ريكورد بالتاريخ اليوم مثلا وبعدين تجي تضيف ريكورد بالتاريخ البارحة اي قبل اليوم ... هذا لان "هل رأيت احد بيكدر ان يرجع للوراء " 2- تقول انا راح ارجع للوراء سانطيك مفتاح اخر لكي تعبر الخطوط الجوية الا وهو الرابط الاعلاه في مشاركتي السابقة تحياتي db1.rar

كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج و اعتذر للإطالة و تحياتى للجميع New_Microsoft_Access_Application.rar

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

ربما ينفع هذا الكود Sub My_date2() Range("A6") = #3/25/2017# Range("A6").NumberFormat = "[$-1170000]B2dd/mm/yyyy;@" End Sub

ليس لدي الخبرة الكافية للتاريخ الهجري

للتاريخ اضافة خاصة في الكود يجب استعمال الاشارة # في الكود يجب كتابة الشهر اولاً ثم اليوم وثم السنة و فيما بعد تطلب من الكود التنسيق Sub My_date() Range("b2") = #2/15/2010# Range("b2").NumberFormat = "dd/mm/yyyy" End Sub يمكن الاستغناء عن السطر الثالث في الكود اذا كان التنسيق في الخلية معرف مسبقاً

vlookup لا تعمل غي مثل عذه الحالة يجب استعمال هذه المعادلة في الخلية a2 من الصفحة simple =INDEX(Accounts!$A$2:$A$250,MATCH(Sample!B2,Accounts!$C$2:$C$250,0)) وكذلك الامر بالنسبة لبقية الخلايا

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

جزاك الله خيرا استاذنا سليم حاصبيا دائماً ما نتعلم منك الجديد

شكرا سروك

استخدم هذا في الاستعلام او مصدر مربع نصي للمجموع وغير تسميات بما يناسب مع قاعدة بياناتك IIF([MBLX2]=0;[MECMOA]=[MBLX1]*50;IIF([MBLX2]>[MBLX1];[MECMOA]=[MBLX1]*50;[MECMOA]=[MBLX1]*50)) مبلغ 1 = MBLX1 مبلغ 2 = MBLX2 مجموع = MECMOA واذا تريد تستخدم في حدث بعد تحديث تكدر تستخدم هكذا IIF([MBLX2]=0,[MECMOA]=[MBLX1]*50,IIF([MBLX2]>[MBLX1],[MECMOA]=[MBLX1]*50,[MECMOA]=[MBLX1]*50)) الفرق بينهما هو الرموز ( ; ) و ( , ) وتكدر ايضا تستخدم دالة IF هكذا اذا تريد IF ME.MBLX2 = 0 THEN ME.MECMOA = ME.MBLX1 * 50 ELSEIF ME.MBLX2 <> 0 AND ME.MBLX1 > ME.MBLX2 THEN ME.MECMOA = ME.MBLX2 * 50 ELSEIF ME.MBLX2 <> 0 AND ME.MBLX1 <= ME.MBLX2 THEN ME.MECMOA = ME.MBLX1 * 50 ENDIF تحياتي

هذا الكود يوضع في حدث الصفحة (حدد الصفحة المطلوب العمل فيها من VBa editor بواسطة دوبل كليك) ثم انسخ الكود كي يعمل الكود يجب ان يكون عامود A مرقماً بشكل صحيح Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Integer Application.EnableEvents = False lr = Application.Max(Range("a:a")) + 2 If Not Intersect(Target, Range("D3:k" & lr)) Is Nothing And Target.Count = 1 Then Cells(Target.Row, "l") = Evaluate("COUNTA(D" & Target.Row & ":k" & Target.Row & ")") End If Application.EnableEvents = True End Sub

تفضل أخي لقد أجريت التعديل اللازم الخطأ هو أنه لا يوجد حقل باسم XDate في الجدول Purchase فقمت بإضاة إستعلام QRY و جعلته هو مصدر الإستعلام Qy بالتوفيق إن شاء الله db1.rar

الله يحفظك يا صديقي العزيز

بارك الله فيك يا مشرفنا

السلام عليكم بعد إذنك أخي و صديقي تشفان أريد أن أضيف طريقة أخرى: يمكن استعمال الكود التالي: Nz(DSum("[Expr1]";"sa3atIzn");0)

مع الحقول التواريخ بيستخدم "#" مع المعيار اي سيكون المعيار الاعلى هكذ واحيانا لازم نستخدم دالة فورمات مع تاريخ لكي يحدد نوع التاريخ [Xdate]<=#" & [Xdate] &"#" تحياتي

جرب هذا الكود Sub Salim() For i = 3 To 10 Cells(i, "l") = Evaluate("COUNTA(D" & i & ":k" & i & ")") Next End Sub

بعد اذت اخي زيزو ربما ينال اعجابك هذا الملف ترتيب ابجدي Salim.rar

جرب هذا المعادلة في الخلية B2واسحب نزولاً =IF(A1="","",REPLACE(A1,FIND(CHAR(32),A1)+1,1,""))

استأذن من استاذنا محمد نجار اخي الفاضل اليك هذا عملت كومبوبوكس لكي تختار فيها مصدر النموذج وبعد تحديث الكومبوبوكس كتبت هذا الكود If Me.Combo73 = "power" Then Form.RecordSource = "SELECT power.* FROM power; " ElseIf Me.Combo73 = "power1" Then Form.RecordSource = "SELECT power1.* FROM power1; " ElseIf Me.Combo73 = "power2" Then Form.RecordSource = "SELECT power2.* FROM power2; " ElseIf Me.Combo73 = "power3" Then Form.RecordSource = "SELECT power3.* FROM power3; " ElseIf Me.Combo73 = "power4" Then Form.RecordSource = "SELECT power4.* FROM power4; " ElseIf Me.Combo73 = "power5" Then Form.RecordSource = "SELECT power5.* FROM power5; " End If وهناك طرق كثيرة لكن اختارت هذا و هناك ملاحظة : قبل ان تكتب في النموذج يجب عليك اختيار المصدر النموذج اتفضل مع قاعدة بيانات تحياتي QWE.rar

وعليكم السلام من الصعب حل الموضوع بدون مرفق جعفر

تم تحميل البرنامج برنامج ممتاز

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