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

وعليكم السلام وبدون انزال المرفق ، وبدون تجربة الكود ، اليك طلبك ضع الكود في جميع نماذج وتقارير البرنامج ، حيث سيأخذ حقل الصور img ، سيأخذ الصورة (لم اقل مسار الصورة او معلوماتها ، وانما الصورة شخصيا ، وهذا اسرع من ان نطلب الصورة دائما من القرص الصلب) من الحقل img2 في النموذج الرئيسي frm_Main: me.img.picture=Forms!frm_Main!img2.picturedata جعقر

السلام عليكم لمنع إضافة سجلات استعمل الكود التالي: Me.AllowAdditions = False لمنع حذف سجلات استعمل الكود التالي: Me.AllowDeletions = False لمنع التعديل على السجلات استعمل الكود التالي: Me.AllowEdits = False أما بالنسبة لإستعمالها في صلاحيات المستخدمين يمكنك استعمال ثلاثة أرقام مثلا: 1: له كل الصلاحيات 2: يستطيع الإضافة فقط 3: المشاهدة فقط (يمنع من جميع الصلاحيات التعديل ,الإضافة و الحذف) نستعمل الكود التالي في حدث عند التحميل للنموذج : If VaUser=1 Then Me.AllowDeletions = True Me.AllowAdditions = True Me.AllowEdits = True ElseIf VaUser=2 Then Me.AllowDeletions = False Me.AllowAdditions = True Me.AllowEdits = False Else Me.AllowDeletions = False Me.AllowAdditions = False Me.AllowEdits = False End If

بالضبط ، يعني مثلا الى مجلد Employee_Pictures ، والذي موجود في مجلد قاعدة البيانات الخلفية ، كما في برنامج شئون الموظفين: Me.Pic.Picture = BE_Path & "\" & "Employee_Pictures\" & Me.Full_Name & ".jpg" او كما في برنامج المخازن ، حسب السنة ، واسم المستودع ، ثم ادخال او صرف ، ثم رقم الوصل Me.Scan.Picture = BE_Path & "\" & Me.Year & "\" & Me.Store_No & "\" & In_Type & "\" & Me.Reciept_No & ".jpg" ونعرف مكان وجود قاعدة البيانات ، سواء الخلفية او اذا لم تكن مقسمة ، من هذا الرابط: جعفر

::: لمسة جميلة ... اخي رمهان ... احسنت

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

تمام 2. مشكلة التاريخ السابق ضع الحدث للنموذج قبل لتحديث وهكذا Private Sub Form_BeforeUpdate(Cancel As Integer) If Date < DMax("dat", "Torderno") Then Cancel = MsgBox("لايمكن ... التاريخ سابق!") End Sub وهو نفس الفكرة بملفك ولكن باختصار وتغيير موقع الحدث تحياتي

طيب خلينا نقسم الطلب الى 1. ترقيم يومي جرب ان تضع التعبير التالي كتعبير لخاصية القيمة الافتراضية للعنصر Nz(DMax("daily_serial", "Torderno", "dat=date()")) + 1 هنا سياخذ العنصر الترقيم اليومي عند فتح سجل جديد 2. عدم اضافة تاريخ سابق خلينا نقفل نقطة 1 اولا بالتوفيق

::: تفضل اخي هل هذا طلبك .... بالتوفيق new.rar

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

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

شوف هل تريد هذا Database1 (4).rar

اليك قاعدة بيانات اخرى بيظهر لك ارقام مفقودة اظهار رقم المفقود.rar

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

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

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

اخي ريباز السلام عليكم ورحمة الله وبركاته ممكن توضح اكثر او تدخل البيانات في الجداول لكي نعرف ماتريد اي لكي نعرف الطريقة تحياتي

::: اخي عليك ربط حقل امر الصرف في جدول النموذج الرئيسي بحقل امر الصرف في النموذج الفرعي. ::: او تجعل قيمة الحقل الافترضية في النموذج الفرعي مساوية للقيمة في النموذج الرئيسي .

الاخ ابو العلاء اهلا بك بالمنتدى ناقص طلبين علشان كل طلب نعمله فى يوم من الاسبوع عندك ملف والا عاوز التعديل على الملف السابق لا تستعجل طلبك لانشغالى فى الموضوع السابق

::: عليكم السلام ::: هناك خطا في بناء الجداول وهو عدم استخدام المفتاح الاساسي لحقل التعريف ID رغم انه Auto اي تلقائي الترقيم ؟ ::: بخصوص الاضاقة للقائمة المنسدلة .. يمكن ذلك بتغيير خاصية الكومبو الالتزام بالقائمة الى نعم ................ بالتوفيق.

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

وعليكم السلام غير اتجاه الكتاية وسيتغير معك شكل الأرقام في كل مرة ..

الاربعاء‏، 29‏/12‏/1430هـ الموافق ‏16‏/12‏/2009م بسم الله و الصلاة و السلام على سيدنا رسول الله حماية ملف الإكسل من داخل الملف تحديد اسماء المستخدمين للملف كل مستخدم يدخل للملف بـ باس وورد خاصة به تحديد الصلاحيات للورقة او الأوراق المسموح لهم بدخولها و التعديل فيها عمل سجل للدخول الى الملف يبين الساعة و الوقت للدخول و يبين اذا كانت المحاولة للدخول ناجحة او فاشلة =========== في الملف المرفق عند اغلاق الملف يتم اخفاء كل اوراق العمل في الملف ماعدا الورقة الأولى عند فتح الملف تتم المطالبة برقم الموظف + اسم الموظف + الرقم السري للموظف اذا تطابقة الثلاثة معا وبعد الضغط على زر تسجيل الدخول يتم اظهار الأوراق المحددة اسمائها من ورقة OPTION الموجودة في الملف امام اسم المستخدم المحدد يتم اعادة تشغيل الملف تلقائيا كل ساعة حرصا على تسجيل الدخول مرة اخرى للمستخدم آمل ان يكون به الفائدة للجميع = = = = = = للتجربة تم وضع رقمين و اسمين و ارقامهما السرية في صفحة الدخول حاليا الإسم الأول يفتح جميع اوراق الملف الإسم الثاني يفتح ورقتين محددة من الملف حمابةالملف.rar

الشكر لله اخي عبدالباري البنا تحياتي لك

السلام عليكم ومشاركة مع اخي رمهان ، اليك الكود الذي يقارن جداول FE مع جداول BE قاعدة البيانات التي تم اختيارها ، فاذا الجداول موجودة ، يخبرك بذلك ، ويربط الـ FE بالـ BE ، وإلا ، فسيخبرك ولن يفعل شئ: Option Compare Database Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim stDocName As String Dim stLinkCriteria As String 'j DoCmd.Close 'j stDocName = "frm" 'j DoCmd.OpenForm stDocName, , , stLinkCriteria BackFile = GetOpenFile() If Len(BackFile & "") = 0 Then Exit Sub Dim FrontObj As AccessObject, FrontDB As Object Dim BackObj As TableDef, BackDB As Database, PW As String, PWD As String Set FrontDB = Application.CurrentData 'the Selected BE Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False, PWD) 'Start with a table to look for For Each FrontObj In FrontDB.AllTables If left(FrontObj.NAME, 4) <> "MSys" And FrontObj.NAME <> "BackDBs" Then FE = FrontObj.NAME 'look for that table in BE For Each BackObj In BackDB.TableDefs If left(BackObj.NAME, 4) <> "MSys" Then BE = BackObj.NAME If BackObj.NAME = FrontObj.NAME Then Same = 0 GoTo Found_It Else Same = 1 End If End If 'BackObj Next BackObj If Same = 1 Then GoTo Not_Same Found_It: End If 'FrontObj Next FrontObj 'All Good MsgBox "All FE tables exist in BE" Set FrontDB = Nothing Set BackDB = Nothing 'link the tables Call AutoLink Exit Sub Not_Same: 'No Good MsgBox "The FE table : " & FrontObj.NAME & vbCrLf & _ "Is Not in the BE" Set FrontDB = Nothing Set BackDB = Nothing Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox Err.Description Resume Exit_Command0_Click End Sub وعملت تغيير بسيط في الوحدة النمطية التي تقوم بالربط جعفر 605.test.mdb.zip

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد ,,, مرفق الملف موافي المطلوب مع الحفاظ علي الترتيب الملف المرفق : شيت الثالث11.rar

وعليكم السلام الأخ الكريم / waledm جرب الملف المرفق تم عمل الدالة المطلوبة على مادة اللغة العربية يمكنك تكملة باقى المواد بنفس الطريقة وإن لم تتمكن راسلنى وأنا فى الخدمة . وتقبل تحياتى شيت الثالث1.rar

السلام عليكم ومشاركة مع اخي شفان ان احب استخدام استعلام الحاقي في مثل هذه الحالات ، فاعمل 3 استعلامات ، استعلام لكل مشرف (لأن كل مشرف عنده جدوله الخاص) ، وفي حدث بعد التحديث لمربع تحرير وسرد اختيار المشرف ، اعمل كود شبيه بهذا: 1. تأكد ان هذه البيانات غير موجودة في الجدول ، 2. استعمل استعلام الالحاق جعفر

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

وعليكم السلام واهلا وسهلا بك في المنتدى تستطيع ان تجعل ارتفاع الحقل كبير ، بحيث تحصل على 30 سجل فقط ، وعليك بالتجربة لتصل الى الارتفاع المطلوب جعفر

السلام عليكم ورحمة الله تم عمل المطلوب وتصحيح المعادلات حسب فهمي للمسألة... بن علية Feb 26,2017.rar

اخي الكريم لكي لا تفهم بالغلط انا ما عملت شي للوحدة النمطية فقط في استعلام التحديث انا غيرت #01/10/2017# الى "01/10/" & Year(Date()) اي يعني غير الكود من هذا CalcAge3(#01/10/2017#;[birth_date]) الى هذا CalcAge3("01/10/" & Year(Date());[birth_date]) والواحدات النمطية هي نفسه

جرب هذا الملف one_shet for evry_name.rar

وعليكم السلام وحياك الله بين اخوانك القرعة.rar