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

بعد استعمال البحث في المنتدى ستجد الكثير إن شاء الله تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=progress bar&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

تفضل الكود و التعديل On Error Resume Next Dim MyFile, DstFile As String Dim Syso As Object Dim db As DAO.Database Dim rs As DAO.Recordset '==================================== Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1 where nategacode=2") rs.MoveFirst While (Not rs.EOF) MyFile = CurrentProject.Path & "\savefrom\" & Right$(rs.Fields("imagepath"), Len(rs.Fields("imagepath")) - InStrRev(rs.Fields("imagepath"), "\")) DstFile = CurrentProject.Path & "\saveto\" & Right$(rs.Fields("imagepath"), Len(rs.Fields("imagepath")) - InStrRev(rs.Fields("imagepath"), "\")) DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Kill MyFile rs.Edit rs.Fields("imagepath").Value = DstFile rs.Update rs.MoveNext Wend rs.Close Set rs = Nothing MsgBox "تم نقل الصور بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" DoCmd.Requery فصل صور الطلاب.zip

😎

ههههه .... جرب المرفق التالي kan_11.accdb

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: 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

السلام عليكم أحبتي أرجو مساعدتكم في هذا المرفق : عملت شاشة افتتاحية على ان يظهر فورم الشاشة دون ظهور ملف الاكسل و بعد لحظات يفتح الملف على شست MAIN أريد عمل كود لشريط انتظار : جاري تهيئة البرنامج ........كما في الصورة المرفقة و شكرا Classeur1111.xlsm

لتحويل المعادلة الى كود يمكنك استعمال هذا الإجراء With Range("e3") .Formula = "put your formula here" .Value = .Value End With ويمكنك تغيير النطاق كما تشاء بالتوفيق

تفضل List.zip

ادرج ملف وضع النتائج كيف تكون وكيف تصبح في كل حالة

وعليكم السلام جرب اخى الكريم test.accdb

كيف يتم تصميمها

تشكر أخي الغالي وأنتم صراحة وبمشاركاتكم تعتبرون إضافة لهذا المنتدى

ويمكن كتابتها كالتالي: Forms("form1_1").n13 = myRound(Me.MAG * 0.0025)

نعم صحيح ويمكنك التخلص من الأقوس المربعة فلا داعي لها هنا .. وربما بعد إزالتها ستضظر لتبديل علامة التعجب (!) بالنقطة (.) غير متأكد ولكن اللغة سوف تساعدك في حال وجود خطأ برمجي.

وعليكم السلام ورحمة الله وبركاته قم بتحميل تطبيق google drive https://www.google.com/drive/download/ قم بتحديد مجلد google drive في المكان الذي تريده قم بعمل كود لانشاء نسخة احتياطية في حدث الاغلاق If MsgBox("هل تريد اجراء نسخة احتياطية من البرنامج؟", _ vbQuestion + vbYesNo, _ "نسخة احتياطية") = vbYes Then On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\Backup" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) End If OldFile = CurrentDb.Name ' السطر التالي قم بتغييره الى مسار الحفظ الجديد StrNew = CurrentProject.Path & "\Backup" DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) If [BKUP] = True Then NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Exit Sub End If End If انتبه لتغيير المسار تحياتي تحياتي

أكيد يأستاذنا حق حضرتك ومنتظرين الخاصيه

اخي محمد صالح جزاك الله انت والاخ ابو عيد الجنة نجحت المعادلة

إصدار جديد - تم إضافة خيار طول النص وحتى 6 حروف. - تم توسيع خيار طول الرقم حتى 6 خانات. Hawiii-Coding-03.accdb

بشكل عام .. تعمل حقل في الجدول اسمه مثلا isSelected ونوع بياناته yes/no والقيمة الافتراضية له = NO قم باضافة هذا الحقل الى النموذج .. ثم قم ببناء استعلام من الجدول وضع معيار تحت حقل isSelected= True وسمه ماشئت .. ثم قم بأنشاء تقرير مصدر سجلاته ذلك الاستعلام قمل بعمل زر في النموذج لطباعة او اظهار السجلات المختارة طبعا توجد العديد من الطرق في حالة اختيار السجلات من ال List Box وطباعتها

طيب ممكن مرفق كمثال للتطبيق عليه !!!!

حسب فهمي للمطلوب تم جعل صفحة الطباعة صفحة واحدة ويتم استدعاء باقي الصفحات بكتابة رقم الصفحة في الخلية E1 تم تلوين الخلايا التي وضع معادلات فيها ويمكنك زيادة عدد سجلات (صفوف) الصفحة وذلك باستبدال رقم 11 في المعادلات بالعدد المطلوب ونسخ المعادلات إلى الصف المطلوب لأسفل بالتوفيق ترحيل المجاميع.xlsx

ربما تفيدك هذه المواضيع https://www.officena.net/ib/search/?q=الباركود الاكسل&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

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

إن شاء الله قريب جدا وستكون بمقابل بسيط نظرا للمجهود والوقت الذي بذل فيها تحياتي

انسخ و الصقها مثل ماهي بدون تغيير Dim DB As Object dbPath = CurrentProject.FullName Set DB = GetObject(dbPath) DB.Application.Quit من هذا السطر تتحكم في المسار و حاليا المسار هو قاعدة البيانات التي تعمل عليها dbPath = CurrentProject.FullName تفضل هذا المثال Database2.mdb

جرب هذه الدالة ، ضعها في موديول ثم استخدمها في معادلاتك كما تستخدم الدالة الأصل Round Function myRound(Number As Double) As Double If Number - Fix(Number) = 0.5 Then myRound = Number Else myRound = Round(Number, 0) End If End Function

تفضل التعديل Test_It.zip

طيب جرب المرفق ..... ‏‏test_kanory.accdb

يوجد في منتدانا الرائع مشاركات كثيرة في هذا المجال هذه بعضها https://www.officena.net/ib/search/?q=تحويل المعادلات كود&updated_after=any&sortby=relevancy&search_and_or=and إن شاء الله تجد ما تريده فيها

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم DoCmd.OpenReport "EMPDEVMENU", acViewPreview, , myCriteria Test_It1.rar تحياتي

تفضل أخي Test_It.rar

اضف مربع اختيار .... ويتم التصفية للطباعة فقط المختار من خلال الشيك بوكس

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

بارك الله فيك أستاذي سأحاول في ذلك بإذن الله

الله يوفقك ويحفظك يا استاذ محمد شكرا جزيلا لا ينقطع ابداً تحياتي لك سأحاول ان شاء الله واعلمك بالنتيجة

السلام عليكم استاذ محمد طبعاً بشكرك على هذا المجهود جعله الله في ميزان حسناتك ان شاء الله استفسار لدي بسبب معلوماتي البسيطه وانا اتعلم من حضراتكم كيف يمكنني ان اضع بدل سريال نمبر الدرايف D سريال نمبر المذربورد ؟ ماهي الطريقه التي اعتمِدُها ياريت لو تقولي كيف اتمكن ان اضع رقم المذربورد بدل من رقم الدرايف المذكور برأيي المتواضع بتصور انها تكون اقوى حماية ؟ شكرا على هذا الموضوع الموفق ان شاء الله اخوك

ما شاء الله أستاذ محمد فكرة و لا أروع جزاك الله خير الزاء إن شاء الله

السلام عليكم ورحمة الله وبركاته بارك الله فيكم انا محتاجة مساعدة في طريقة ربط رقم الباركود باسم الطالب كيف يتم ذلك هل في الاكسل أو الاكسس بحيث عند قراءة الباركود ( الرقم الشخصي للطالب ) يعطيني بيانات الطالب مثل اسمه وصفه ورقم التواصل وشكرا

وأنا أضم صوتى لصوت الأستاذ ياسر الموضوع بالفعل فى غاية الأهمية لقطاع كبير من أعضاء المنتدى

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

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

واياكم اخي mfawaz يتم في البداية وضع النموذجين الفرعيين على النموذج الرئيسي وضبط خصائصهما التالية لتحمل نفس القيم الخاصية Width وهي خاصية تحدد عرض النموذج يتم مساواة هذه القيمة للنموذجين ليكونا بنفس العرض الخاصية Hight وهي خاصية تحدد ارتفاع النموذج يتم مساواة هذه الخاصية للنموذجين ليكونا بنفس الارتفاع الخاصية Top وهي خاصية تحدد نقطة بعد النموذج الفرعي العلوية من النموذج الرئيسي اي المسافة بين قمة النموذج الرئيسى وحافة النموذج الفرعي العلوية ... ويتم مساواة هذه الخاصية للنموذجين ليكونا على نفس البعد الخاصية Left وهي خاصية تحدد نقطة بعد النموذج الفرعي من الحافة اليسرى للنموذج الرئيسي اي المسافة بين الحافة اليسرى للنموذج الفرعي والحافة اليسرى للنموذج الرئيسي... ويتم مساواة هذه الخاصية للنموذجين ليكونا على نفس البعد مما سبق يكون النموذجين الفرعيين بحجم واحد ومتطابقين تماما فوق بعضهما يتم ضبط الخاصية Visible لكلا النموذجين بالقيمة False حتى يختفيا عند عرض النموذج الرئيسي يتم وضع الكود ادناه بحدث عند الفتح للنموذج الرئيسي لتكون قيمة مربع التحرير والسرد فارغة ومن ثم يتم الاختيار Me.combo0.value="" ثم يتم استخدام اختيار الاوضاع او مايسمى Select Case للعمل على اخفاء واظهار النماذج الفرعية بالتناوب بناءً على قيمة مربع التحرير والسرد Combo0 وذلك بالسطر الاول للكود ادناه والذي يتم وضعه اما بحدث عند النقر او بحدث بعد التحديث لمربع التحرير والسرد Select Case Combo0 Case "Hassan" Me.Hassan.Visible = True Me.Ahmed.Visible = False Case "Ahmed" Me.Ahmed.Visible = True Me.Hassan.Visible = False End Select السطر الثاني ـــــ في الحالة الاولى ..... وعندما تكون قيمة مربع التحرير والسرد تساوي Hassan السطر الثالث ـــــ يتم ضبظ خاصية Visible للنموذج الفرعي والمسمى حسان على القيمة True وهي القيمة التي تسمح للنموذج بالظهور السطر الرابع ـــ يتم ضبط خاصية Visible للنموذج الفرعي والمسمى احمد على القيمة False وهي القيمة التي تخفي النموذج المحدد السطر الخامس ــــ في الحالة الثانية ..... وعندما تكون قيمة مربع التحرير والسرد تساوي Ahmed سيتم عمل نفس الشئ ولكن بالصورة العكسية بحيث يظهر النموذج المسمى احمد ويختفي النموذج المسمى حسان لاحظ بأنني استخدمت اسماء النماذج في الشرح باللغة الانجليزية لان الاكواد عند نقلها بالمشاركات تتعامل مع المسميات العربية بشكل مختلف لذا لجأت لهذا الاسلوب ولكنها تبقى في الكود كما هي .... ويفضل استخدام اللغة الانجليزية في الاسماء لتفادي المشاكل البرمجية التي تحدث عند كتابة الاكواد. ارجو ان اكون وفقت في الشرح وايصال الفكرة وبالتوفيق وفيك بارك اخي العزيز محمد صالح .. يبدو انني كنت مشغولاً بتحرير المشاركة ولم انتبه لردك

فكرة رائعة وكود بسيـــــــــــــــــــــط بارك الله فيك أخي العزيز

بارك الله فيك اخي malkasoft10 اخي محمد صالح اليك المرفق بعد التعديل وبالتوفيق db7.rar

أين خبراء الأكسس هل من مجيــــــــــــــــــــــــــــــــــــــــــــــــــــــب ؟

تسلم من كل سوء

أخي العزيز حاولت تسجيل البرنامج لكن لم أعرف كيف تكتب الشرطة بين الحروف فظهرت رسالة كما في الصورة أين الخطأ؟

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

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

اخي الكريم بارك لله فيك سيكون عن طريق select case وهذا مثال بسيط على الموضوع شكرا حسان ملكاوي db7.rar