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

انظر الاستعلام وطبق ماتريد بها ..... TEST_OD.accdb

if me.combo = "XX1" then DoCmd.OpenReport xxxx1, acViewPreview end if if me.combo = "XX2" then DoCmd.OpenReport xxxx2, acViewPreview end if if me.combo = "XX3" then DoCmd.OpenReport xxxx3, acViewPreview end if دي اضافه بعد اذن الاستاذ @kanory دي كفكره مبدئيه لحد ما نفهم بالنموذج الخاص بك بعد تعديل اسم الكمبو والشروط والتقارير

كلام اخي الكريم عمر صحيح .... حتى تسهل على المجيب ... عشان لايضطر المجيب لتصميم قاعدة لكل سائل .... حرصا على وقته .... بارك الله فيك اخي عمر ... انظر المرفق ... kan_a.accdb

ارفع ملف للعمل عليه

بارك الله لك أ / @عبدالله الصاري تبقى شيء حتى يظل تنسيق التاريخ كما هو حذف هذا السطر من اجراء sama2 Sheets("كشف الحساب").Range("A5:h10000").ClearFormats بالتوفيق

وعليكم السلام ورحمة الله وبركاته قم بتظليل عمود التاريخ تم انقر الفارة اليمين تظهر قائمة منسدلة اختر منها تنسيق خلايا ثم من القائمة الاخرى اختر تاريخ بالنسبة لمعاينة الطباعة قم باستبدال كلمة PrintOut بـ PrintPreview بالكود تحياتي

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

لعمل ذلك يمكنك اتباع الآتي: الضغط في اي مكان فارغ في الرسم البياني من تبويب تنسيق format نختار من القائمة الأولى المحور أفقي (فئة) Horizontal (category) Axis ثم نضغط على تحديد التنسيق format selection أسفل القائمة مباشرة في لوحة المهام اليمنى التي ظهرت نضغط على الفئات في ترتيب عكسي Category in reverse order بالتوفيق

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

الكود المستخدم هو التالي 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

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

اشكرك جزيل الشكر بعد المحاولة تمت حسب طريقة شرحكم بالتحديد اكرر شكري ولكم وافر التحية والاحترام

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

على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA وان مصدر بداية الفتره فى النموذج هو D1 وان مصدر نهاية الفتره هى D2 هترح للاستعلام بتاعك عند الاسم هتضيف المعيار بتاعك هو Forms![NameOfForm]![AAA] وفى التاريخ هتحط المعيار >=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2]

إن شاء الله سليم والتجربة خير برهان طبعا مع تعديل أسماء الجداول في المصفوفة table1 & table2 & table3 وهكذا

ا.محمد صالح هل الكود باشكل ده سليم If MsgBox("هل تريد حذف البيانات ؟", vbYesNo, "تنبيه") = vbYes Then myT = Array("table1", "table2", "table3") DoCmd.SetWarnings False For Each T In myT DoCmd.RunSQL "DELETE * FROM " & T & ";" Next T DoCmd.SetWarnings True MsgBox "لقد تم حذف البيانات بنجاح!!!!", vbOKOnly, "تنبيه" Else DoCmd.CancelEvent End If End Sub

في حالتك هذه أ/ @TAMER AGOOR يمكنك اختصار الكود ووضع أسماء الجداول التي سيتم حذف بياناتها في مصفوفة myT = Array("table1", "table2", "table3") DoCmd.SetWarnings False For Each T In myT DoCmd.RunSQL "DELETE * FROM " & T & ";" Next T DoCmd.SetWarnings True بالتوفيق

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

Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean) Const col As Long = 6 Dim m As Long If IsNumeric(TextBox16.Value) Then With ThisWorkbook.Worksheets(1) If .Cells(1, col).Value = "" Then .Cells(1, col).Value = Label29.Caption m = .Cells(Rows.Count, col).End(xlUp).Row + 1 .Cells(m, col).Value = TextBox16.Value End With End If With TextBox16 ListBox3.AddItem .Value .Value = Empty Cancel = True End With End Sub

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

تفضل هذا المثال ارجو ان يكون مفيد لك ملاحظة : الكود لاحد اساتذتنا جزاهم الله كل خير واعتذر منه لنسيان اسمه Database1.rar

خلية الاكسل تتحمل حتى 15 رقم ولكتابة أكثر من 15 يمكن تنسيق الخلية كنص text قبل الكتابة من تنسيق خلايا format cells كما في هذه الصورة بالتوفيق

تفضل هذه المحاولة وارجو ان تكون موفقة ملاحظة : التعديل شمل الجدول ايضا ارجو ان لا يسبب لك مشكلة وتم التعديل على الاستعلامات بما يناسب التغييرات اما الاستعلامات الخاصة بالشركاء تم التعديل على استعلام اسماعيل حسب فهمي واذا التعديل مناسب يمكن تعديل بقية الاستعلامات الافضل الابتعاد عن التسميات باللغة العربية مستقبلا وعذرا للاطالة 2222-2.rar

يمكنك استعمال هذا الإجراء Sub clr_with_pw() If InputBox("من فضلك أدخل كلمة المرور.", "حماية") = "1234" Then Range("A2:D15").ClearContents Range("A2").Select Else: MsgBox "كلمة المرور خطأ": End If End Sub حيث أن كلمة المرور لتنفيذ هذا الإجراء هي 1234 ويمكن استعمال ذلك الكود مع أي ماكرو بوضع اكواد الماكرو مكان السطرين الثالث والرابع وتغيير 1234 إلى كلمة المرور المطلوبة بالتوفيق

بالاضافة لما ذكره استاذي @د.كاف يار نستطيع حذف الجداول بجمل السكوال Docmd.runSQL "DELETE * from Table1" DoEvents Docmd.runSQL "DELETE * from Table2" DoEvents Docmd.runSQL "DELETE * from Table3" DoEvents Docmd.runSQL "DELETE * from Table4" DoEvents

تفضل هذا الموقع اجعله مرجع لك ستجد كل ما تحتاجه من اكواد microsoft

نقسم الكود لكي يسهل الشرح بهذا الكود تستطيع انشاء نسخة مماثلة لأي ملف مهما كان الامتداد Dim MyFile, DstFile As String Dim Syso As Object MyFile = File_Name ' Old File DstFile = CurrentProject.Path & "\Folder_Name\" & " New_File_Name" ' New File DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing لحذف اي ملف Kill " C:\\ File Path ....."

تفضل الكود و التعديل 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

وعلشان يكتمل الموضوع ، ومن ارشيفي ، ولا اعرف من عمل هذه البرامج ، اليك مرفقين: 1. تحديد عدد السجلات في التقرير ، 2. تحديد عدد السجلات في النموذج المستمر ، جعفر عدد السجلات للنموذج المستمر v.2.mdb تحديد عدد السجلات في التقرير.mdb

شكرا لكلماتك الرقيقة أستاذنا الفاضل نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا وأرجو من المشرفين وضع رابط المرفق في المشاركة ١٤ في أول الموضوع

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

إختيار تقرير للطباعة وتحديد طابعة معينة لتنقيذ الإجراء شرح وتفصيل وتطبيق ... تطبيق العبد الفقير لرحمة ربه ... نارت لبزو http://www.officena....showtopic=41998

سعيد بمرورك أخي مجدي وهذا ملف لشرح الموضوع من أوله كنت قد أرسلته لأخي محمد جبالي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=37121 أتمنى أن يوضح الصورة لمن لم تتضح عنده وفقنا الله وإياكم إلى كل ما يحب ويرضى

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

أخي الكريم أ . مجدي جربت الكود على أكثر من نسخة للأوفيس بداية من اكس بي و 2003 و 2007 و 2010 ولا يوجد مشكلة وتم تلافي جميع المشكلات في المرفق الموجود في المشاركة 14 وجربت النسخ العادي ونسخ التنيق ولم يحدث شيئا عذرا يبدو أن إمكانيات جهازك ليست مرتفعة بالقدر المناسب لطموحك أخي الحبيب خليها على الله

أكرمك الله أخي مزلزل سعيد بمرورك الطيب

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

بارك الله فيك أخي الكريم شكرا لمرورك وكلماتك الرقيقة

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

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