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

مخالف - يُغلق قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم اسمحوا لي ان اوضح بعض المعلومات صيغة accdb بدأت بالاكسس 2007 ، ولكن ليس جميع خواص accdb متوافقة بين الاصدارات 2007-2016 !! وهناك الكثير من الميزات الموجودة في 2010 ، ليست موجودة في النسخة الاولى من اصدار 2007 ، وانما هي موجودة عند تحديث 2007 بحزم التحديث Service pack ، ولكن ، الميزات الاخرى والموجودة في 2010 او 2013 او 2016 مثل: حدث الجداول ، برامج الويب ، تكبير الصفحات (zoom) ، و .... ، فإنها اصلا غير موجودة لإصدارات الاكسس الاقدم. جعفر

وعليكم السلام ارسل صورة من الشاشة بالمشكلة لوسمحت ، علشان اعرف المطلوب. جعفر

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 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

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

تفضل تم وضع المعيار في الاستعلام ، وتغيير في الكود قليلا جعفر 761.رساله الا لحاق.mdb.zip

المشكلة في الحفل Tarakam ، فإعداداته لا تقبل التكرار ، والاستعلام يضيف/يلحق هذا الحقل مع بقية البيانات . بينما لأن الحقل ترقيم تلقائي ، فيجب ان تسمح له بان يعطي كل سجل جديد ، رقمه التلقائي ، عليه ، الاستعلام سيكون بدون هذا الحقل: . وعندي ملاحظة ، وهي انه كلما تضيف مادة على الفاتورة ، فالاستعلام يضيف جميع الحقول !! لذا يجب عليك ان تضع معيار في الاستعلام ، مثل رقم الفاتورة مثلا ، حتى يتم ادخالها/الحاقها وحدها فقط. جعفر

السلام عليكم من زمان تعلمت ، ان لا استعمل اوامر الاكسس التي لها علاقة بالوندوز ، وانما اعتمد على API الوندوز ، الاكسس عنده عادة ، وهي حذف بعض هذه الاوامر في الاصدارات الاحدث ، وهذه الاوامر تعتمد على المكتبات ، بينما api الوندوز ، على الرغم من انها طولها (يعني نحطها في الوحدة النمطية مرة واحدة ، ولا علاقة لنا بها) ، والمشكلة الاخرى هي بين 32بت و 64بت ، والذي كذلك يتم تعديله مرة واحدة ، وكذلك لا يحتاج الى بالمكتبات جعفر

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

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

حياك الله الظاهر انك عملت تطريز على التعديل لكي يلائم بيئة شبكتك جعفر

وعليكم السلام الموضوع غير واضح ، ياريت تعطينا مثالين. جعفر

السلام عليكم بالنسبة للحذف ، استعمل هذه الكود: Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click Dim mySQL As String Dim Msg, Style, Title, Response Msg = ":ستقوم الآن بحذف السجل " & vbCrLf & vbCrLf & _ Me.cbo_Class & vbCrLf & " " & vbCrLf & _ "هل أنت متأكد ؟" & vbCrLf & _ "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر" Style = vbQuestion + vbYesNo + vbMsgBoxRight Title = "تحذيـــر" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then mySQL = "DELETE * FROM tbl_Class_Name WHERE strClass = '" & Me.cbo_Class & "'" CurrentDb.Execute mySQL Me.cbo_Class.Requery Me.cbo_Class.Value = Me.cbo_Class.Column(0, 0) End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub . وبالنسبة لإظهار المادة التي اضفتها في النموذج الاخر ، استعمل هذا الكود: Private Sub أمر2_Click() On Error GoTo Err_أمر2_Click Forms!frm_Section!cbo_Class.Requery DoCmd.Close Exit_أمر2_Click: Exit Sub Err_أمر2_Click: MsgBox Err.Description Resume Exit_أمر2_Click End Sub . جعفر 758.1.db1.mdb.zip

وعليكم السلام عملت التغيير التالي: . جعفر dbMain.zip 757.myback_accdb.zip

بعد انا ما فهمت من طلبك بالضبط ... اعطيني مثال توضيحي

شكرا جزيلا لك سيدي سليم حاصبيا

حياك الله

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

الف شكر يا م. سليم هذا هو المطلوب تمام .. ربنا يبارك فيك يارب

Function n2t(d As Double) As String m = Int(d / 100) h = Int(d / 10) - (m * 10) a = Int(d - (m * 100 + h * 10)) k = d - (m * 100 + h * 10 + a) n2t = num((m), 3) & IIf(m > 0 And (a > 0 Or h > 0), " و ", "") & num((a), 1) & IIf(a > 0 And h > 1, " و ", " ") & num((h), 2) n2t = Replace(n2t, "اثنتانِ عشرة", "اثنتا عشرة") n2t = Replace(n2t, "ثمانمائة", "ثمنمائة") n2t = Replace(n2t, "ثلاثمائة", "ثلثمائة") n2t = Replace(n2t, "و عشرة", "و عشر") n2t = IIf(n2t = " عشرة", "عشر", n2t) n2t = IIf(n2t = "مائتانِ ", "مائتا", n2t) n2t = "فقط " & n2t & IIf(h = 0 And a = 2, "درجتانِ", IIf((h = 1 And a = 0) Or ((h = 0 And a > 2)), " درجاتٍ", IIf(h = 0 And a = 0, " درجةٍ", " درجةً"))) & IIf(k > 0, " و نصفٌ", "") n2t = Replace(n2t, " ", " ") n2t = Replace(n2t, "إحدى درجةً", "درجةٌ") n2t = Replace(n2t, "اثنتانِ درجتانِ", "درجتانِ") End Function Function num(n As Integer, t As Integer) As String m = "مائة" h = "ونَ" Select Case n Case Is = 1 num = IIf(t = 3, m, IIf(t = 2, "عشرة", "إحدى")) Case Is = 2 num = IIf(t = 3, "مائتانِ", IIf(t = 2, "عشرونَ", "اثنتانِ")) Case Is >= 3 num = IIf(t = 3, nn(n) & m, IIf(t = 2, nn(n) & h, nn(n))) End Select End Function Function nn(n As Integer) As String Select Case n Case Is = 3 nn = "ثلاث" Case Is = 4 nn = "أربع" Case Is = 5 nn = "خمس" Case Is = 6 nn = "ست" Case Is = 7 nn = "سبع" Case Is = 8 nn = "ثمان" Case Is = 9 nn = "تسع" End Select End Function هذا هو الكود الموجود في ملف الاخ الكريم ويريد التفقيط لاكثر من 1200 درجة فياريت التكرم ومساعدته بارك الله فيكم

أعلم أن الإجراءات التى سوف يتم عملها غالباً SQL لاستعلام إلحاق ، استعلام حذف ، استعلام تحديث لكن كيف يمكن حذف أو تحديث ما يتم اختياره بالذات فى الكومبوبكس ؟؟ ========================================= وجدت وسيلة أخرى للإضافة غير استخدام استعلام الحاق، لكن لم أتمكن من تصحيح كود الحذف بنفس الطريقة هل من مساعدة !!! db2.rar

استأذن من استاذنا @مجدى يونس اتفضل استاذنا @صالح حمادي استخدم هذا الكود Sub Auto_Open() MsgBox "Hello" End Sub ويجب ان تحفظ الملف باوربوينت بصيغة ppam او ppa اي بنوع PowerPoint Addin اليك ملف تجريبي salah.rar

تفضل من هنا تصميم مصغر آمل ان تجد الفائدة

للرفع

هذا هو المطلوب

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

وعليكم السلام ورحمة الله وبركاته أخي الحبيب بن علية بارك الله فيك وجزاك الله خيراً بالفعل ظنك في محله والمشكلة كما ذكرت في كود حدث ما قبل الإغلاق ولكن بتجربة الكود الذي تفضلت به يتضح التالي : لو فتحت المصنف بعد إجراء التعديلات وانتظرت لمدة دقيقة بدون عمل على الملف يتم إغلاق المصنف (أي ينفذ كود الأخ محتار حسين) لا مشكلة في هذه الحالة أما إذا فتحت المصنف وقمت بمحاولة الإغلاق للتطبيق ستظهر رسالة تفيد باستخدام زر الأمر وأن زر الإغلاق معطل .. اترك الملف لمدة دقيقة أخرى بدون عمل عليه ، لن يتم تفعيل كود الأستاذ مختار وإليك التعديل المطلوب في الملف يوضع الكود التالي في موديول Public CloseMode As Boolean Public RunWhen As Double Public Const NUM_MINUTES = 1 Public Sub SaveAndClose() CloseMode = True ThisWorkbook.Save Application.Quit End Sub ويوضع الكود التالي في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" Else On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 End If End Sub Private Sub Workbook_Open() On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub تقبل وافر تقديري واحترامي

السلام عليكم ورحمة الله أخي الكريم، أعتقد جزما أن المشكل هو في الكود التالي: Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" ThisWorkbook.Save End If On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 End Sub قم بحذفه (أو إلغائه) وبإذن الله سيعمل كود الغلق الآلي جيدا... أخوك بن علية

السلام عليكم انضر المرفق مانفست كلابشة time.rar

اخى العزيز تم اغلاق العمود B والذى يحتوى على خلايا ملونة وكلمة السر للملف (123) التلوين بشرط.rar

السلام عليكم ************ اختر ما تشاء من المرفقين حركات.rar