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

هذا الموضوع هو عملية لانشاء برنامج مبيعات مصغر اعتمادا على جدولين فقط ، الحركة ، وعمليات النقد ، ورأس الفاتورة مع ما يلزم من جداول الخدمة ، احاول فيه ان اجعل عملية التصميم والاستعلامات والاخراج اكثر مرونة واسهل في المعالجة . سيكون 80% من العمل لفهم المشروع وتصوره في محيط الجداول فقط بسم الله .. نبدأ : 1- جدول العملاء 2-جدول الفاتورة 3- جدول النقدية 4- جدول الحركة 5- جدول الاصناف اولا : جدول العملاء ويشتمل على المعرف ، واسم العميل ، ونوع العميل ( مورد ، زبون ) ، والعنوان ، والهاتف ...

و عليكم السلام و رحمة الله و بركاته الطريقة تحتاج الى تغيير خاصية النموذج FilterOn الى True عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج . نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى بالتوفيق طلب استفسار.rar

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

هذه الشفرة طويلة جدا ولا يعنيك منها إلا ثلاثة سطور فقط.. فكرة هذه الشفرة هي إنشاء محرك أقراص شبكي على جهاز العميل (المستخدم) وذلك من أجل تمرير اسم المستخدم وكلمة المرور.. بعد انتهاء العميل من الاتصال بقاعدة البيانات من الأفضل قطع الاتصال بمحرك الأقراص الشبكي.. لعمل محرك أقراص شبكي يجب إنشاء مكون التعامل مع موارد الشبكة بالصيغة التالية.. Dim NWO As Object,NwPath,UserName,PassWord,NwMap '-- إنشاء مكون التعامل مع الشبكة المحلية Set NWO=CreateObject("WScript.Network") '-- تمرير اسم المستخدم وكلمة المرور للمتغيرات UserName=[اسم المستخدم على اشبكة] PassWord=[كلمة المرور على الشبكة] '-- تمرير مجلد البيانات وسم الخادم لدليل الوصول للبيانات NwPath="\\192.168.1.2\test" '-- تكوين القرص الشبكي على جهاز العميل '-- تعيين حرف لمحرك الأقراص الشبكي.. أفضل عدم تعيين حرف والاكتفاء بعلامة التنصيص NwMap="Z:" NWO.MapNetworkDrive NwMap,NwPath,False,UserName,PassWord 'بهذه الطريقة يتكون محرك الأقراص الشبكي على جهاز العميل '-- الإتصال بقاعدة البيانات هنا .... '-- قطع الاتصال بمحرك أقراص الشبكة.. أفضل أن يكون عند الخروج من قاعدة البيانات NwMap="Z:" NWO.RemoveNetworkDrive NwMap, True, True من الأفصل إنشاء نموذج لهذا الغرض يحث العميل (المستخدم) بإدخال اسمه وكلمة المرور عند عدم وجود اتصال..

بسم الله الرحمن الرحيم السلام عليكم وجدنا حاجه لعدد من الاخوه الاعضاء في هذا المنتدى الرائع الى هذا الموضوع المهم قرننا ان نخوض فيه والابواب مشرعه للاساتذه الكرام للاستئناس بارائهم القيمه وبنيه خالصه لوجه الله تعالى فهو حسبنا وثواب هذا العمل مهدي روح معلمنا الاول والدنا رحمه الله -ونسال الله ان يغفر لنا ولوالدينا وللمؤمنين جمعا وبعد تاخرنا في طرح الموضوع بسب كبر حجم الفديوات مما اضطرنا الى رفعها على اليوتيوب لتعم الفائدة بمرور الزمن ازدادت الحاجه الى قواعد بيانات قويه وكفوءه وذات امان عالي ومساحات خزنيه كبيره نظام الاكسس نظام قواعد بيانات ممتاز وذو كفائه عاليه للاستخدامات الصغير والمتوسط ويمتاز الاكسس برخص الثمن وسهولة الاستخدام وذلك بسبب كثرة الكتب التي تختص فيه وكثرة المواقع والمنتديات التي تقدم الحلول والمشوره اهم مشاكل الاكسس 1- قاعدة بيانات الاكسس مبنية على ملف اي تحفظ جميع بيانات القاعدة في ملفات مستقلة لها.عند حذف هذا الملفات تحذف قاعدة البيانات مع جميع البيانات 2- عدم توفر الامان العالي اذا ما قورن ببقيه نظم قواعد البيانات 3- ان استخدام قاعدة البيانات من قبل اكثر من مستخدم يؤدي الى ضغط كبير على محركات النظام عند استخذامه على الشبكه 4- احد اهم المشاكل في استخدام الاكسس على الشبكه عدم تمكين اكثر من مستخدم من فتح نموذج ادخال واحد في نفس الوقت 5- محدودية عدد المستخدمين فهي لا تتجاوز ال10 مستخدمين على الشكبة اذا كان الاكسس مرفوع على شبكة 6- محدودية المساحه الخزنيه للبيانات في الاكسس فهي لا تصل الى 2 كيكا بت بضمنها مكونات قاعدة البيانات بعد ان برزت الحاجه الى مساحات خزنيه اكبر خصوصا مع تقادم المشروع وتوسعه اما SQL Server فقد غطى على هذه العيوب، بل اضاف مميزات اخرى نظام متكامل لادارة قواعد البيانات يعمل في الخلفية ويعتمد على خادم وعميل فجميع البيانات تخزن في الخادم وهذا يعطي امان عالي للبيانات من الضياع ونظام الامان العالي جدا والمساحه الخزنيه العاليه وعدم محدودية المستخدمين وكذلك باستطاعته احتواء اكثر من قاعدة بيانات واحدة. وكل قاعدة بيانات تحتوي على جداول مختلفه وعمل مختلف والعمل بكفائه عاليه مع الشبكات سواء الداخليه او عبر الانترنيت وهناك مميزات اخرى ومن عيوبه بعض الصعوبات في استخدامه لا يمكن بناء قاعدة بيانات متكاملة لا بمساعدة بعض البرامج ومنها الاكسس والكرستال وغيرها وللحصول على مميزات الاكسس والتتخلص من عيوبه توجد ثلاث طرق لعمل ذلك 1- تحويل الاكسس الى مشروع Access ويتم بتكبيرحجم جميع مفردات قاعدة البيانات وهذه العمليه معقده وتحتاج الى تغيرات جوهريه في قاعدة البيانات 2. تكبير حجم البيانات من قاعدة بيانات Access إلى قاعدة بيانات SQL 3 – العمل بالنهاية الاماميه والنهاية الخلفيه النوع الثالث سوف نتطرق اليه بشيء من التفصيل ونعمل على شرحه للسهوله التي يتمتع بها والذي لا يجعلنا نتخلى عن ال Access حيث ستكون فقط الجداول في SQL Server وبقية مفردات قاعدة البيانات من نماذج واستعلامات وتقارير ومايكروات ووحدات نمطية في Access متطلبات العمل 1- نحتاج الى مساحه مناسبه من القرص الصلب الذي سوف نركب SQL Server عليها 2- عمل حسابات للمستخدمين للوندوز وبرقم سري 3- نسخة من SQL Server المجانية SQL server Expres لعمل سيرفر http://www.microsoft...s.aspx?id=29062 4- نسخة من SQL server Management studio للتحكم بالسيرفر 5- عمل اتصال odbc 6- قاعدة بيانات Access فارغة ا- تركيب ال SQL server Express الفديو يوضح ذلك https://www.youtube.com/watch?v=03AYKVSsjII ب- تركيب ال SQL server Management studio https://www.youtube.com/watch?v=STSADB1BAXo ج- عمل قاعدة بيانات على SQL server فارغه وبنفس اسم قاعدة Access والاسم ليس ضروري ان يكون نفسه ولكن للاستدلال على القاعدة لان SQL server ممكن ان يحتوي على اكثر من قاعدة بيانات https://www.youtube.com/watch?v=89p9M9ZE6nw

السلام عليكم ورحمة الله تعالى وبركاته دعت الحاجة فى عملى الى عمل كود للتأكد من الاتصال بالشبكة المحليه وفكرت بعمل الكود على الشكل الاتى If Dir("\\192.168.1.2\test\tbl.mdb") = "" Or Dir("\\192.168.1.2\test\tbl.mdb") = Null Then Me.Check_ConnectionGood.Value = False lbl_ResultConnect.Caption = "لم ينجح الاتصال بالشبكة المحلية ولن يتم الاتصال بقاعدة البيانات" Exit Sub Else Me.Check_ConnectionGood.Value = True lbl_ResultConnect.Caption = "تم الاتصال بقاعدة البيانات بنجاح" End If مرفق فاعدة بيانات للتجربة اولا : اطلب من اساتذتى الافاضل على استحياء ابداء ارائهم فى فاعلية هذه الفكرة بذلك الكود وان كان هناك طريق افضل مما سلكته ثانيا : لو ان هناك احد الاشخاص يدخل على جهاز السيرفر من خلال الاي بي الاتى مثلا \\192.168.1.2 باكثر من اسم لدخول الشبكه وباختلاف اسم الدخول تختلف كلمات المرور وهذا لاختلاف صلاحيات واذونات كل من الاسماء فى التعامل مع الملفات والمجلدات لذلك لن يستطيع عمل تذكير لكلمة مرور او اسم دخول هل يمكن عمل كود ليمرر اسم مستخدم محدد بكلمة المرور الخاصة به عند فتح قاعدة البيانات ؟! على سبيل المثال بيانات الاتصال بالشبكة كالاتى \\192.168.1.2 اسم الدخول للجهاز : user كلمــــــة المــــــرور : user ----------------------------------------------------------------------------------------------------------- نسيت أن أذكر ان القاعدة الامامية هى التى تحمل اسم app.mdb وقاعدة الجداول هى التى تحمل اسم tbl.mdb test.rar

بسم الله الرحمن الرحيم هنا سيتم تجميع ما يخص اكسس وارتباطه بقواعد البيانات الاخرى Link Access with Sql Server 2012 تمت كتابته بواسطة ابو محمد تطوير نموذج التقييم للعمل اونلاين دون الحاجة الى ارسال ميل تمت كتابته بواسطة السيد جمال ربط قاعدة البيانات باستضافة على الشبكة والتحكم بها من اي مكان في العالم للسيد جمال http://www.officena.net/ib/index.php?showtopic=61514 تحويل قاعدة بيانات من اكسس الى SQL تمت كتابته بواسطة محمد أيمن استخراج اسم سيرفر SQL وتحديد قاعدة بيانات للارتباط بها تمت كتابته بواسطة محمد أيمن

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

و فيك بارك و اياك جزى اخي العزيز في الحل المرفق استخدمت دالة بوحدة نمطية سميتها (mdlRound) للاستاذ الرائع جعفر بالرابط ادناه مع تعديل بسيط لتفي بما تبحث عنه ان شاء الله تفضل من هنا جرب و اخبرني بالنتيجة بالتوفيق Prog 2019.rar

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

جرب هذا الملف تحويل بيانات Salim.rar

تفضل ياخي كشف حساب.rar الخطئ في في كنابة cells مكتوبة sells

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

اتفضل الان ادخل المعلومات بعد تدخل المنطقة راح يعطيك رقم Dmax - Copy.rar

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

مثلا عندك حقل للمناطق باسم وعند حقل تسلسلی باسم ID راح تستخدم Dmax ھکذا ID = NZ(DMax("[ID]","TableName","[Menadiq]='" & Me.Menadiq & "'" ) , 0 ) + 1 TableName ھو اسم الجدول

اکتب CALL GetFileSize MSGBOX(GetFileSize) سيظهر رسالة بحجم القاعدة

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

استأذن من استاذنا @sandanet و @ابا جودى اتفضل تم عمل فانكشن جديد باسم ( se) وتم کتابە فیه هذا الكود Function se() As Boolean On Error Resume Next SendKeys ("%(fic)"), True End Function طبعا هذا الكود للنسخة الانكليزية 2010 وفي ذلك السطر اي في كود عمل شريط القوائم استخدمت هذا .OnAction = "=se()" واتفضل اليك قاعدة بعد تعديل برنامج إنشاء قوائم منسدلة PopUp.rar

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة في هذا التطبيق سنتحدث عن تحويل قاعدة بيانات اكسس الى sql برمجيا حيث سنقوم بانشاء قاعدة البيانات على السيرفر و تصدير الجداول لها باستخدام SQL scripts ملاحظة هامة : العمل سيتم على SQL 2005 وما فوق بعد البحث و التجريب وصلت الى كود يقوم بانشاء قاعدة بيانات SQL وتصدير كافة الجداول لها Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String Dim TableName As String Dim Tdf As TableDef ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=HP-PC\SQLEXPRESS" Str_Data = "Create database DB1" Str_Use = "Use DB1" ConData.Execute (Str_Data) ConData.Execute (Str_Use) For Each Tdf In CurrentDb.TableDefs If Left(Tdf.Name, 4) <> "MSys" Then If Len(Tdf.Connect) = 0 Then DoCmd.TransferDatabase acExport, "ODBC Database", "ODBC;Driver={SQL Server};Server=HP-PC\SQLEXPRESS" & _ ";Database=DB1" & ";Trusted_Connection=Yes", acTable, Tdf.Name, Tdf.Name End If End If Next الكود السابق يقوم بانشاء قاعدة بيانات باسم DB1 ويصدر كافة الجداول لها عظيم جدا و تمام التمام لكن هناك مشكلة صغيرة جدا المفاتيح الاساسية و الفهارس و العلاقات لم يتم تصديرها !!!!!! وبالتالي لن تعمل قاعدة البيانات ابدا بحثت كثيرا و حاولت تعديل الكود السابق و لكن دون جدوى لذلك كان لا بد من البحث عن طريقة اخرى لنصل للمطلوب و الطريقة هي انشاء الجداول و المفاتيح و الفهارس و العلاقات عن طريق اكواد SQL او ما يسمى SQL scripts , سيتسائل البعض كيف ذلك ؟؟ البداية : عند الانتهاء من تصميم قاعدة البيانات سنستخدم معالج التكبير لمرة واحدة فقط من اجل الحصول على الكود او ملف SQL scripts وبعد ذلك سنضيف الكود الى ملف ونستخدم ذلك الملف متى اردنا نفتح قاعدة البيانات التي نرغب بتحويلها و نضغط على ادوات قاعدة البيانات ثم نختار (خادم SQL) 1- انشاء قاعدة بيانات جديدة ( في هذا المثال اسم قاعدة البيانات test SQL 1 ) 2- نحدد اسم السيرفر و اسم قاعدة البيانات المطلوبة ( الاتصال موثوق ) ( التالي ) 3- نحدد كافة الجداول ( التالي ) 4- نحدد ( فهارس - قواعد التحقق من الصحة - افتراضيات - علاقات الجداول ) و نستخدم (مشغلات عوضا عن DRI) ( التالي ) 5- نحدد (عدم اجراء اية تغييرات للتطبيق) (انهاء) سيبدا المعالج بترحيل كافة الجداول الى السيرفر بعد الانتهاء نغلق برنامج الاكسس و نذهب الى برنامج SQL Server Management Studio (ملاحظة هذا البرنامج لادارة قواعد البيانات و يختلف عن برنامج SQL server ) نحدد السيرفر ونختار نوع المصادقة (حسابات ويندوز) ثم اتصال سيفتح البرنامج نختار Databases ثم نحدد قاعدة البيانات المطلوبة نضغط بالزر الايمن للفارة و نختار من القائمة Tasks ثم Generate Scripts تظهر نافذة جديدة نختار منها التالي ونحدد قاعدة البيانات Test SQL 1 ثم التالي تعدل الخيارات التالية: include if not exists = false script defaults = false scripts extended properties = false scripts owner = false scripts full-text indexes = true scripts indexes = true ثم التالي نحدد (tables) ثم التالي نحدد كافة الجداول ثم انهاء و نضغط انهاء مرة اخرى سيظهر لنا السكريبت الخاص بانشاء الجداول و المفاتيح و الفهارس و العلاقات ننسخ الكود بشكل كامل و نحفظه ضمن ملف نصي نسميه مثلا (Test1) نعود الى صديقنا الاكسس ننشئ نموذجا جديدا ونضع فيه حقلي نص باسم (tservername - tdatabasename) وزر امر نكتب الكود التالي في زر الامر Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String ' فتح الاتصال مع السيرفر ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=" & Me.tservername ' انشاء قاعدة البيانات Str_Data = "Create database " & Me.TDataBaseName Str_Use = "Use " & Me.TDataBaseName ConData.Execute (Str_Data) ConData.Execute (Str_Use) MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbCrLf & "جاري تصدير الجداول", vbInformation + vbMsgBoxRight ' تنفيذ السكريبت ضمن قاعدة البيانات لانشاء الجداول و الفهارس و العلاقات Shell "sqlcmd.exe -S " & Me.tservername & " -d " & Me.TDataBaseName & " -i " & CurrentProject.Path & "\test1.txt", 0 MsgBox "تم انشاء الجداول بنجاح", vbInformation ' اغلاق الاتصال ConData.Close طبعا الملف test1.txt يجب ان يكون في نفس مسار قاعدة البيانات المرفق يختلف قليلا عن الشرح فهو يساعدك في اختيار السيرفر تلقائيا اعتذر على الاطالة في الشرح رابط البرنامج مع فيديو للشرح http://www.mediafire.com/file/x14w1p4qbqewd4k/SQL1.rar بانتظار التجريب و النتائج منكم اصدقائي SQL1.rar