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

اكتب قبل الرقم هذا الحرف " ' " حرف الــ ط (الكيبورد باللغة الاجنبية)

بارك الله فيك استاذ على وجزاك الله كل خير شكرا استاذ سليم بارك الله فيك ملف استاذ على هو المطلوب

بعد اذن اخي علي هذا الملف Conditional_Rand.xlsm

اهلا بك اخ كريم فى المنتدى كان عليك القيام برفع ملف لكنى قمت بعمل هذا الملف لك للترتيب العشوائى ,ورقة بالكود وورقة بالمعادلة تفضل ترتيب عشوائى للأرقام.xlsm

السلام عليكم تفضل المعادلة الموجودة بالخلية B11 بعد إضافة معادلة مساعدة في العمود G =IFERROR(VLOOKUP(1,D7:G18,4,0),"ادخل رقم حساب الصنف بالخليةc3") if طويلة.xlsm

ما هو سبب ارتجاف واهتزاز عناصر التحكم في النموذج عند تحريك الماوس في النموذج لبعض قواعد البيانات وخاصة عند استخدام سمات او اسطح الويندوز XP ؟ قد يكون الحل يدويا على مستوى حقل او حقلين لايوجد به مشكلة ولكن هل من المعقول نقوم بحل هذه المشكلة يدويا لعدد 30 او اربعين مربع نص او عنصر تحكم على النموذج اذن يكون الحل برمجيا . اولا لنعرف السبب . ان الارتجاف او الاهتزاز هو ناتج عن فقد اقتران مربع التسمية بمربع النص التابع له لهذا يحدث ما يسمى بالـ Flicker with tab controls وتحدث هذه المشكلة عند حذف مربع التسمية الاصلي لمربع النص واستبداله بآخر غير مقترن او وضع زخرفات زائدة لمربع التسمية . ولحل هذه المشكلة لديك عدة خيارات : 1. اما ان تجعل سمات الويندوز على وضع كلاسيكي وهذا حل غير عملي لانه سيستخدم هذه القاعدة غيرك لديهم سمات ويندوز XP نشطه . 2.. في حالة فقدان اقتران مربع التسمية بمربع النص الخاص به تظهر في الركن العلوي الايمن علامة مثلث اخضر وعليه تنبيه لو قمت بتقريب الماوس الى هذا المثلث والضغط بالماوس الايمن عليه ستظهر لك قائمة منبثقة ( النموذج في حالة وضع التصميم ) ومن ضمن خياراتها اقتران مربع التسمية بمربع النص التاابع له وستحل المشكلة يدوبا . 3. والحل الاخير هو برمجيا لهذا نتبع هذه الطريقة : 1. قم بإنشاء وحدة نمطية جديده . 2. قم بنسخ هذا الكود للوحدة النمطية ومن ثم قم بحفظها . Function ConvertLabelOnTabPage(strFormName As String, _ Optional bSaveAndClose As Boolean, Optional bHidden As Boolean) 'الغرض : تغيير التسميات الغير مرتبطة بمربعات النص في النموذج 'لاصلاح مشكلة الاهتزاز في سمات الويندوز اكس بي Dim frm As Form Dim ctl As Control Dim strName As String Dim strCaption As String Dim bytBackStyle As Byte Dim bChanged As Boolean Const strcQuote = """" 'افتح النموذج في وضع التصميم DoCmd.OpenForm strFormName, acDesign, _ windowmode:=IIf(bHidden, acHidden, acWindowNormal) Set frm = Forms(strFormName) 'البحث عن مربعات التسميات العائدة لمربعات النص 'Find the labels whose parent is a tab page. For Each ctl In frm.Controls If ctl.ControlType = acLabel Then If ParentIsTabPage(ctl) Then bChanged = True strName = ctl.Name 'اسم مربع النص الذي فقد التسمية strCaption = ctl.Caption 'تسمية مربع النص bytBackStyle = ctl.BackStyle 'برنامج الاكسيس لا يمكنه عمل هذا Debug.Print strFormName & "." & strName 'Convert it to a text box. ctl.ControlType = acTextBox 'Set the text box properties. With frm.Controls(strName) 'اسماء مربعات النص لغير محدد .ControlSource = "=" & strcQuote & _ Replace(strCaption, strcQuote, strcQuote & strcQuote) & strcQuote .Enabled = False .Locked = True .BackStyle = bytBackStyle End With End If End If Next Set ctl = Nothing Set frm = Nothing If Not bChanged Then DoCmd.Close acForm, strFormName, acSaveNo ElseIf bSaveAndClose Then DoCmd.Close acForm, strFormName, acSaveYes End If End Function Private Function ParentIsTabPage(ctl As Control) As Boolean On Error Resume Next ParentIsTabPage = (ctl.Parent.ControlType = acPage) End Function Function FixAllForms() 'الغرض : تشغيل تحويل مربعات التسميات جميعها في قاعدة البيانات 'تحذير : قم بحفظ قاعدة البيانات قبل عمل هذا الاجراء Dim accobj As AccessObject For Each accobj In CurrentProject.AllForms Call ConvertLabelOnTabPage(accobj.Name, True, True) Next End Function 3. لاجراء اختبار وانت داخل الوحدة النمطية من نافذة Immediate التي تستطيع الوصول لها بضغط المفاتيح Ctrl+G من لوحة المفاتيح وكنابة هذا الامر ? ConvertLabelOnTabPage("MyForm") MyForm اسم النموذج الخاص بك ثم اضغط Enter 4. ستظهر لك في النافذة السفلية جميع مربعات التسميات التي تم تحويلها وارتباطها بمربعات النص . 5. لاصلاح جميع مربعات التسميات في جميع النماذج في قاعدة البيانات استخدم هذا الامر بدلا عن السابق ? FixAllForms() ملاحظة : يجب اخذ نسخة احتياطية لقاعدة بياناتك قبل هذه العملية 6. لاصلاح مجموعة الخيار option groups لمربعات النص استبدل هذا الكود في دالة () ParentIsTabPage Private Function ParentIsTabPage(ctl As Control) As Boolean On Error Resume Next ParentIsTabPage = ((ctl.Parent.ControlType = acPage) Or _ (ctl.Parent.ControlType = acOptionGroup)) End Function

السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

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

شكرا لك فعلا الموضوع مفيد جدا شكرا لاهتمامك وسرعه الاستجابه

قبل الان انا رديت عليك هكذا والان عملت لك هذا test 15 (1).rar

السلام عليكم و رحمة الله و بركاته لاشك ان عمل استاذ شفان يستحق المدح وحبيت اضافة بسيطه الا وهو تحديد و تصدير اكثر من حقل في وقت واحد المثال: test 15.zip

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

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

زيادة في اثراء الموضوع هذا الملف مع كود سريع جداً (10000 رقم في 0.8 من الثانية) تختار منها ما تريد Sorting_Rand.xlsm

اخي الفاضل لازم ارفاق مثال في داله اسمها dsum هي من تقوم بهذا بس لازم مثال

ليس من المهم اي قاعدة تشتغل عندك المهم توصل للحل كما حضرتك تريد عندي بيشتغل كلا القاعين وبدون اي مشاكل اتفضل تم استخدام هذه الاكواد Private Sub ChooseField_AfterUpdate() If Not IsNull(Me.ChooseField) = True Then If Len(Me.TxtForQuery & vbNullString) > 6 Then Me.TxtForQuery = Me.TxtForQuery & " " & "," & Me.ChooseTble & "." Me.TxtForQuery = Me.TxtForQuery & Me.ChooseField Else Me.TxtForQuery = Me.TxtForQuery & " " & Me.ChooseTble & "." & Me.ChooseField End If Me.EndForQuery.Enabled = True End If Me.ChooseField.RemoveItem (Me.ChooseField) End Sub Private Sub ChooseTble_AfterUpdate() Set db = CurrentDb Set Td = db.TableDefs(Me.ChooseTble) Me.ChooseField.RowSource = "" Me.ChooseField.AddItem ("اسماء الحقول") For Each fld In Td.Fields If fld.Type = 4 And fld.Attributes = 17 Then Me.ChooseField.AddItem (fld.Name) Else Me.ChooseField.AddItem (fld.Name) End If Next End Sub Private Sub EndForQuery_Click() On Error Resume Next Dim CountStrTbl As Integer CountStrTbl = Len(Me.ChooseTble) Me.ExportTo.Enabled = True If Left(Me.TxtForQuery, CountStrTbl) = Me.ChooseTble Then Exit Sub Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble Me.EndForQuery.Enabled = False End Sub Private Sub ExportTo_Click() On Error Resume Next DoCmd.DeleteObject acQuery, "QForExport" Set QFEx = CurrentDb.CreateQueryDef("QForExport", Me.TxtForQuery) DoCmd.OutputTo acOutputQuery, "QForExport", acViewPreview DoCmd.DeleteObject acQuery, "QForExport" MsgBox "تم تصدير بالنجاح" End Sub test 15 - Copy.rar

احسنت استاذ سليم بارك الله فيك وزادك من فضله

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

عفوا الى الاساتذه الكرام الملف الاول لايعمل وجربته اكثر من مره لكن الملف الثاني تم تجربته وهو يعمل بنجاح شكرا

كلام اخي Shivan Rekany سليم ميه في الميه انا جربته مافي اي رساله

شكرا اخي Shivan Rekany نحن تلميذكم منكم نستفيد شكرا لمرورك الكريم تحياتي لك

شكرا استاذ @ابو ياسين المشولي من الاحسن ان تكتب ما تعمله لكي من يرى المشاركة قبل ان ينزل المرفق يعرف ماذا بداخله وراح نستفيد منه باسرع وقت ممكن وحلولك مظبوطة 100% ونقدر عند الضغط الزر ان نعطيه الشروط هكذا بدل ان تكتبه عند فتح التقرير DoCmd.OpenReport "Sersh_rpt", acViewReport, , "Left(Nz([ItemName],0),50) Like '*' & [Forms]![Sersh_F]![n1] & '*'" وشكرا لك

اتفضل تم عمل هذا الكومبوبوكس الاول ستختار فيه الجدول المراد ان تعمل له استعلام وهذا هو مصدره SELECT msysObjects.Name FROM msysObjects WHERE (((msysObjects.Type)=1) AND ((Left([Name],2)) Not In ("~s","ms","f_"))); والكومبوبوكس الثاني هو اسماء الحقول تابع الجدول المختارة في كومبوبوكس الاول وهناك زر اخر عند انتهاء من الاختيار الحقول المطلوبة تضغطه لكي يكمل جملة الاستعلام وهناك زر اخر لكي تعمل استعلام وهناك زر اخر لتصدر الى اكسل واستخدمت هذه الاكواد لعمل ذلك Private Sub ChooseField_AfterUpdate() If Not IsNull(Me.ChooseField) = True Then If Len(Me.TxtForQuery & vbNullString) > 6 Then Me.TxtForQuery = Me.TxtForQuery & " " & "," & Me.ChooseTble & "." Me.TxtForQuery = Me.TxtForQuery & Me.ChooseField Else Me.TxtForQuery = Me.TxtForQuery & " " & Me.ChooseTble & "." & Me.ChooseField End If Me.EndForQuery.Enabled = True End If End Sub Private Sub ChooseTble_AfterUpdate() If Not IsNull(Me.ChooseTble) = True Then Me.ChooseField.RowSource = Me.ChooseTble End If Me.ChooseField = Null Me.TxtForQuery = "Select" End Sub Private Sub CreateQuery_Click() On Error Resume Next DoCmd.DeleteObject acQuery, "QForExport" Set QFEx = CurrentDb.CreateQueryDef("QForExport", Me.TxtForQuery) ' DoCmd.OpenQuery QFEx.Name Me.ExportTo.Enabled = True Me.CreateQuery.Enabled = False End Sub Private Sub EndForQuery_Click() Me.TxtForQuery = Me.TxtForQuery & " From " & Me.ChooseTble Me.EndForQuery.Enabled = False Me.CreateQuery.Enabled = True End Sub Private Sub ExportTo_Click() DoCmd.OutputTo acOutputQuery, "QForExport", acViewPreview On Error Resume Next DoCmd.DeleteObject acQuery, "QForExport" MsgBox "تم تصدير بالنجاح" End Sub اليك القاعدة بعد تعديل test 15.rar

اهلا بك اخى الكريم فى المنتدى لماذا لا تستخدم خاصية البحث فى المنتدى -يمكنك هذا بعد اضافة أداة Solver وطالما انك لا تقوم برفع ملف فيمكنك متابعة ومشاهدة هذه المشاركة بها رد لما تحتاجه https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544482 بارك الله فيك

شكراً أخي العزيز @Shivan Rekany تستاهل ١٠ لايكات بس انتهى الرصيد 😭

و هل يتعارض تحويل القاعدة الى هذه الصيغ مع كلمة سر محرر الأوامر ؟ ما المقصود بالتشفير ؟

هذا جيد لكي لا يشتغل على اي جهاز الا ان تعطيه رمز التسجيل وهذا ايضا جيد على الرغم ان هناك برامج لكي يلغي هذا الامر وهذا احسن اذا لا تريد ان تتحول الملف الى Accde او Mde وهذا جيد لكن حاله مثل حالة شيفت :) هذا يكفي مع الرقم الاول والثاني من زمان انا ما استخدمت هذا هناك شيء اخر مع نقطة الاول اي ربط عمل ملف مثل تيكست في احد الاماكن في الجهاز بشكل سري اي اذا فتحت البرامج وما وجدت هذه الملف سيغلق البرامج والا سيفتح اذا تم تسجيله من قبل و هناك طريقة اخرى وهو تشفير البيانات بدل اخفاء الجداول لكن هذه شيء سيبطي العمل وفي الاخير 1 و 2 و 5 و اذا تريد 6 يكفي حسب رأيي

بارك الله فيك استاذ طارق ,ولإثراء الموضوع هذه دالة معرفة My_Customesion تفضل My_Customesion.xlsm

نعم لا اظن ان هذه الطرائق صعبة ... خاصتا طريقة ديماكس + 1 او الطريقة استاذ @Khalf كل شيء عنده طرائقه الحمد لله ممكن تشوفنا ما هي طريقتك لكي نعلم ماذا تريد بالضبط لا داعي تحياتي

وعليكم السلام انظر الي هذا واعمل كما في الصوره

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

احسنت استاذى الكريم بارك الله فيك

متابع

السلام عليكم أخي الكريم لقد ضممت الموضوعين لأنهما موضوع واحد تفضل عسي أن يكون هذا ماتريد اقساط معدل.xlsm

اتفضل اخي النهر العطشان DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([ادخل رقم التلفون]) Is Not Null));" DoCmd.SetWarnings True Me.Text0 = ""

أهلا محمد.. أجريت بعض التعديلات من أجل هذا الطلب.. نقل البيانات يتم عند نقر الزر F فقط .. كهرباء.mdb

شكرا اخي على هذا الاطراء حسب فهمي لسوال اتفضل طلبك هذا هو الكود DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" test25.rar

ممكن تذكر الطريقة لنا اخ علاء هل تقصد currentrecord= مشكور

اتفضل اتمنى يكون المطلوب SearchRpt (2) (1).rar

انا اضفت عمود لعدد الاشهر من اجل الاستئناس

أحسنت بارك الله فيك وجزاك الله كل خير

دوما متميزون بارك الله بكم جميعا كل الشكر والتقدير

لقد تعرفت على السبب من احدى المواقع حيث كان مضاد الفيروسات ( ( كاسبر سكاى )) هو الذى يقوم بايقاف عمل بعض الوظائف وهذا لكي يستفيذ الاعضاء من هذه التجربة وخيرها في غيرها