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

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

اخوتي الفضلاء اقدم لكم من باب التسلية و الفائدة طريقة لتغيير اللون الاسود الرتيب للخطوط عند عرض السجلات في الجداول او الاستعلامات او ListBox او Combobox وذلك باستخدام الخاصية Format للحقل بوضع #[Red] او [Blue]# و ينطبق ذلك على الالوان الرئيسية Black / Red / Green / Yellow / Blue / Magenta / Cyan / White و بالتطبيق نلاحظ بان حقول التاريخ لا تعمل بشكل جيد و تتأثر بفورمات اللون وتعرض التاريخ كعدد صحيح . و ارفق تطبيقا بسيطا و نترك الباقي لخيالكم و ابداعاتكم و حاجاتكم متمنيا عموم الفائدة و الله من وراء القصد NA Colour All.rar

السلام عليكم من خيارات اختر اتبع الخطوات في الصورة وبعدها يمكنك استخدام الامر msgbox لتنفيذ رسالة تحذير قبل تنفيذ الاستعلام. Dim a As Single a = MsgBox("هل تريد حذف المنطقة " & Me.ArName, vbDefaultButton1 + vbMsgBoxRight + vbExclamation + vbYesNo, "تنبيه") If a = vbYes Then هنا ضع كود تشغيل الاستعلام End If

السلام عليكم عندي فكرة ممكن تساعدك لكني لا استطيع تعديل الملف المرفق حاليا لضيق الوقت 1- اضف جدول جديد باسم المستخدمين الحاليين (اولاين) وعند تسجيل دخول المستخدم يتم اضافة اسم المستخدم الى هذا الجدول وعند الخروج يحذف اسمه من الجدول 2- استخدم اعمل مقارنة بين جدول المستخدمين و الجدول الجديد المستخدمين الحالين (اولاين) وعند وجود الاسم في الجدول يصبح الزر اخضر وان لم يكن موجود يصبح احمر

جرب هذا -لكن بالأكسيس وليس بالإكسيل 856793561_.mdb

السلام عليكم استعمل الدالة dcount في مربع نص من أجل حساب عدد السجلات المتشابهة بهذه الطريقة: =DCount("*";"tbl";"[id]=" & [id]) ثم استعمل التنسيق الشرطي لمربع النص

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

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

بسم الله الرحمان الرحيم السلام عليكم كما ذركرت في موضوع برنامج نور التجاري اننا نعمل على النسخة الثانية من البرنامج ولكي تكون النسخة متكاملة و الكمال لله و ليستفيد منها اكبر ععد ممكن من الاشخاص فتح هذا الموضوع لطرح ارائكم و افكاركم حول البرنامج الى غاية الان والحمد لله قطعنا جزء لا بأس به من برمج البرنامج و حاليا تواجهني اشكال اود الاستفسار حوله معكم و هو بخصوص الاصناف صممنا البرنامج الجديد على انه يدخل الاصناف تلقائيا الى المخزون مباشرتا من فواتير الشراء يعني لما ندرج صنف جديد في فاتورة شراء غير مسجل لدينا سابقا في المخزون تقوم خوارزمية بسيطة بالتعرف عليه و تكويده و ادخاله في المخزون ليس هنا الاشكال فهذا امر بسيط الاشكال هو فيما يلي مثلا فرضا لديا في المخزون الصنف 10001 ولنقل هذا الصنف هو عبارة عن كيبورد تبقي من هذا الصنف 10 كيبورد و سعر الشراء500 و سعر البيع 510 في الفاتورة الجديدة اشترينا مجموعة من الكيبور مثلا 100 كيبورد و سر الشراء 600 وسعر البيع 610 سيصبح لدينا في المخزون 110 كبيور لاكن بسعرين مختلفين شخصيا افكر باستخراج متوسط شراء ومتوسط بيع بجمع الاسعار و قسمتها على 2 ارجو ان اكون اوصلت الفكرة و انتضر من الاعضاء اي افكار بهذا الخصوص تحياتي للجميع

السلام عليكم ورحمة الله وبركاته من الله علي بطريقة لعمل Tool bar او Ribbon Bar مثل البرامج الاحترافية وهي كالتالي وأسأل الله ان تفيد الجميع عمل Tab control في رأس انموذج ثم اضافة التبويبات حسب التصنيف الذي ترغب فيه مثلا تبويب للعملاء وتضيف اليه جميع الازرار الخاصة بالنماذج والتقارير ثم تبويب اخر للموردين وتضيف اليه كذلك ما تريد من ازرار ثم بعد الانتهاء من اضافة التبويبات المطلوبة تذهب الي خصائص الTab Control وتذهب الي خاصية Back style وتجعلها Transparent وبدلا من الازرار التقليدية يمكنك اضافة صورة واضافة امر لها عند النقر ولاضافة خاصية اخري يمكنك جعل المؤشر عند المرور علي الصورة ان يظهر شكل اليد لتكون افضل شكلا مرفق مثال ومدرج به موديول خاص بتغيير شكل المؤشر لشكل اليد عند المرور علي الصورة اي استفسار انا تحت امر الجميع مع خالص الشكر لاعضاء المنتدي المحترمين واسال الله ان ينفع بهذا العمل وان يجعله خالص لوجهه الكريم مرفق المثال Test.rar

السلام عليكم ورحمة الله عفوا اخى الكريم وقع خطأ غير مقصود نتيجة لتسرعى استبدل الكود بالمشاركة السابقة بهذا الكود Private Sub ComboBox1_Change() Dim ws As Worksheet, wk As Worksheet Dim Arr As Variant, Temp As Variant Dim i As Long, p As Long Set ws = Sheets("مخزن قطع الغيار") Set wk = Sheets("البحث باسم الصنف") Arr = ws.Range("E8:E" & ws.Range("E" & Rows.Count).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For i = 1 To UBound(Arr, 1) If Left(Arr(i, 1), Len(ComboBox1.Value)) = ComboBox1.Value Then p = p + 1 Temp(p, 1) = Arr(i, 1) End If Next ComboBox1.ListRows = p ComboBox1.List = Temp wk.Range("E10").Value = ComboBox1.Value End Sub

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

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

برنامج شئون الموظفين برنامج تسيير شؤن الموضفين (Récupéré).xlsm

تفضل example.zip

السلام عليكم عملت بعض المعادلات في شيت اليومية حركة يومية1 .xlsm

وعليكم السلام ورحمة الله وبركاته استاذي الفاضل محمد سلامة انا اتفق معك على ان اصدار 2010 اقوى وافضل من 2007 لكني في الواقع اتعامل مع اجهزة جامعة كلها تعمل على اوفيس 2007 فلابد لي من التماشي معها في البرمجيات على العموم دعنا نجرب على اوفيس 2010 ارفق قاعدة ودع التجربة مفتوحة لكل الاخوة عسى ان يفيدنا احد في شيء اخي صالح الامثلة كثيرة بخصوص التشفير وانا سوف اعطيك لمحة عن كيفية عملها عندما تدرج بيانات من النموذج ولتكن مثلاً اسم المستخدم وكلمة السر فبامكانك تشفير كلمة السر كالتالي لنفرض ان مربع النص بالنموذج اسمه pswrd فعندما يتم كتابة الباسورد والضغط على زر حفظ فانك سوف تنفذ كود insert في الجدول كالتالي strSQL = ("INSERT INTO table1 ([pass] , [username]) VALUES('" & incode(Me.pswrd, "12345") & "', '" & Me.name & "')") CurrentDb.Execute strSQL, dbFailOnError Me.Requery لاحظ ان عبارة incode تم استخدامها قبل Me.pswrd اي انك تقول للكود شفر لي مربع النص الذي في النموذج والذي اسمه pswrd بمعيار تشفير وهو 12345 اي مفتاح التشفير الذي لايعلمه احد الا انت وعندما تريد الاستعلام عن القيمة المشفرة فانك سوف تستخدم العملية العكسية وهي فك التشفير decode(Me.pswrd,"12345") لو اراد شخص آخر فك التشفير بدون معرفة معيار التشفير الذي تم استعماله فلن يستطيع اظهار البيانات طبعا يجب اضافة الوحدة النمطية الخاصة بالتشفير الى القاعدة وهي: Option Explicit Option Compare Database Function incode(a As String, b As String) As String Dim r, i As Integer, s, u As String 1: u = "" s = ctrs(a, 3) If Len(s) Mod 2 = 1 Then s = s + Trim(str(Int(8 * Rnd(-Timer)))) i = 3 * Rnd(-Timer) + 1 For r = 1 To i u = Chr(100 * Rnd(-Timer) + 155) + u Next u = Trim(str(i)) + u u = u + s u = getcode(u, b) If decode(u, b) = a Then incode = u Else GoTo 1: End If End Function Function decode(a, b As String) As String On Error Resume Next Dim r, i As Integer, s, u As String u = getcode(a, b) i = Val(Mid(u, 1, 1)) + 1 u = Mid(u, i + 1, Len(u) - i) If Len(u) Mod 3 <> 0 Then u = Mid(u, 1, Len(u) - 1) s = "" For r = 1 To Len(u) - 2 Step 3 s = s + Chr(Val(Mid(u, r, 3))) Next decode = s End Function Function getcode(a, b As String) As String On Error Resume Next Dim L, r As Integer, c As Long, q As String c = 0 For r = 1 To Len(b) c = c + Asc(Mid(b, r, 1)) * (10 ^ r) Next q = str(c) c = 0 For r = 1 To Len(q) c = c + Val(Mid(q, r, 1)) Next q = "" For r = 1 To Len(a) L = 256 - Asc(Mid(a, r, 1)) - r - Len(a) If L + c > 255 Then q = q + Chr(L - c) Else q = q + Chr(L + c) End If Next getcode = q End Function Function ctrs(s As String, Y As Byte) As String Dim r, i As Integer, u, T As String u = "" For r = 1 To Len(s) T = Trim(str(Asc(Mid(s, r, 1)))) For i = 1 To Y - Len(T) T = "0" + T Next i u = u + T Next ctrs = u End Function تحياتي

السلام عليكم اخي اوس انا اعمل حاليا علي اصدار 2010 لانه اقوي وافضل كثيرا من 2007 وانا هجرت اصدار 2007 لانه به الكثير من المشاكل وبصراحة عجبني جدا 2010 في كل شئ وتشفيره عالي ايضا.. لو يناسبك هذا الاصدار ابلغني كي ارفق لك القاعدة ونجرب تعديل * لدي برنامج كان يعمل علي اظهار كلمة المرور في اصدار 2007 وظهر لي كثير من كلمات المرور سواء لا vba او للباسورد الرئيسي للقاعدة وعند الانتقال لاصدار 2010 لم استطيع به ان اظهر اي كلمة مرور به تحياتي

أستاذ hassan rady جزاكم الله خيرا قدمت للى معروف

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

الاستاذ شوقي ان معايير المحاسبة الدولية ( اصدار 2016 ) والمعيار المحاسبي الدولي رقم 2 اعتمد طريقة السعر الوسطي كحل نهائي في طرق تسعير المخزون وهو فعليا من انجح طرق التسعير وحاليا معظم بكل كل برامج المحاسبة والمستودعات المحلية والعالمية اخذت بهذا المعيار ( التسعير يطريقة السعر الوسطي ) والسعر الوسطي عند الاخراج او البيع من المخازن فقط - لانه في حالة الادخال يتم الادخال بسعر الشراء ( كما هو معروف لديكم ) هذا للتوضبح فانا مدقق حسابات قانوني وحاليا نعتمد هذه الطريقة عند مراجعتنا لحسابات الشركات اشكرك وتمنياتي بالتوفيق

رغم عدم قناعتي بطريقتك في التبديل بين النسخ باعتبارها خطيرة و الاحتمال وارد بشكل قاطع لفقدان شيء من البيانات فكلامك صحيح ومشكلتك بسبب العلاقات فيلزم لحل المشكلة ان يتم الاستيراد على خطوات بالترتيب : 1- حذف العلاقات في القاعدة المرتبطة 2- حذف البيانات في القاعدة المرتبطة 3- جلب البيانات من القاعدة النسخة 4- جلب العلاقات من القاعدة النسخة وهذا ماتم عمله في مثالك المرفق اتمنى ان يلبي حاجتك بـرنـامـج خـيـاط.rar

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

السلام عليكم تجد ما تبحث عنه هنا

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

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

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

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

عليكم السلام 1- احذف الجداول المرتبطة 2- اعد ربطها من جديد سيطالبك بكلمة المرور

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

قيد العمل

إخوتي الأعزاء تطبيق وفكرة اليوم معلومات النظام System Information كلمات استدلالية : نموذج - معلومات النظام - System Information – وحدة نمطية كلما كان المتلقي عزيزا كان الباذل كريما انتم قرة العين ، وهذا التطبيق هدية يوم الجمعة كلما ضمنا برامجنا تطبيقات متقنة و احترافية كلما ارتقينا بها ، وزادت أهميتها وكفاءتها ، من خلال الأكسس يمكن أن نفعل ما نريد وما نحتاج إليه متاح . واليكم التطبيق التالي والذي يضع بين أيدينا معلومات النظام (الجهاز) الرئيسية و معلومات التطبيق العامل ، بكل يسر وسهولة ، من خلال وحدة نمطية و نموذج و ... بعض التركيز وحسن الاستخدام ، و الاستفادة من هذا التطبيق رهن بقدراتكم و إبداعاتكم و الشرح و التحليل في التطبيق والحوار متاح .... !!!! والله من وراء القصد ... NA_SystemInformation.rar

تلميح اليوم كيفية إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات How To add Copyright Notice to the database كلمات استدلالية:Copyright Notice - وحدة نمطية - نموذج افتح وحدة نمطية جديدة أنشئ وظيفة جديدة باسم copyright وحسب النص التالي Function copyright() Dim DB As Database Dim P As Property Set DB = DBEngine(0)(0) Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "© Nart Lebzo Software " & Year(Now)) DB.Properties.Append P End Function افتح إطار التنفيذ المباشر (immediate ) بالضغط على ctrl+G و اطلب تنفيذ ? Copyright() Enter ليتم إضافة الكائن "إشعار حقوق الطبع والنشر" للمجموعة في معلومات قاعدة البيانات إذا حاولت إعادة تشغيل الوظيفة ستحصل على الخطأ "لا يمكن الإلحاق : الكائن موجود مسبقاً في المجموعة" ولا داعي لحفظ الوحدة النمطية فقد تم المراد ولا داعي لوجودها للإفادة من هذا الكائن وإظهاره و التعرف عليه يمكننا وفي أي نموذج وفي حدث عند الفتح (مثلا) Private Sub Form_Open(Cancel As Integer) Dim DB As Database Set DB = DBEngine(0)(0) Me.Caption = DB.Properties![CopyRight Notice] End Sub أو على شكل صندوق رسائل Private Sub Command0_Click() Dim Hi As Integer ' MsgBox response Dim DB As Database Set DB = DBEngine(0)(0) Hi = MsgBox(DB.Properties![CopyRight Notice] , 64, "CopyRight Notice") End Sub ما رأيكم ... دام فضلكم