نجوم المشاركات
Popular Content
Showing content with the highest reputation on 21 سبت, 2021 in all areas
-
في حدث عند النقر المزدوج لـــــ lst4 ضع هذا الكود <<<<<<<>>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'"5 points
-
3 points
-
بالنسبة للنقطة الاولى ... نعم ولكن اعتقد هناك طرق اخرى النقطة الثانية ممكن في التقرير الفرعي وممكن في التقرير المجمع ....3 points
-
3 points
-
3 points
-
3 points
-
3 points
-
3 points
-
3 points
-
3 points
-
السلام عليكم ورحمة الله كنت أنتظر أن يقوم أحد الإخوة الكرام بإنشاء ماكرو للقيام بهذه العملية وهذا لم يكن، لهذا قمت بتحضير ما تريده في الملف المرفق باستعمال المعادلات... وللضرورة قمت بتغيير التنسيقات على الجداول وإضافة المعادلات المناسبة لعمل المطلوب (يرجى أن لا تقوم بحذف الصفوف أو الأعمدة لئلا تخسر المعادلات)... يبقى لتغييراتك أن تقوم بحجز فقط عدد المناصب -عدد الأساتذة- حسب المواد في "جدول 1" (جدول المواد) وعدد الأفواج -عدد الأقسام- حسب الشعبة والمستوى- في "جدول 2" (جدول الأقسام) والمعادلات تقوم باللازم لملء الجداول الأخرى (حتى الجدول 3 في ورقة Data)... والله أعلم... جدول ديناميكي.xlsx2 points
-
2 points
-
متوافق اخي مع معظم النسخ ..... حاول فتح الموضوع السابق وطبق الشرحات بها حتى يعمل معك أو اضغط على Shift باستمرار مع تشغيل الملف ثم شغل النماذج من داخل البرنامج ...2 points
-
2 points
-
2 points
-
اعتقد رأيت اداة كانت مصممة بالاكسس يمكن من خلالة تغيير مسمى مثلا حقل في جدول فتقوم الاداة بتغييرة في جميع البرنامج سواء في اكواد او استعلامات او نماذج او تقارير او وحدات نمطيه ..... يعني تغيير كامل في البرنامج باكمله ..... سوف ابحث عنه اذا تيسر ارفقه هنا ان شاء الله تعالى ....2 points
-
2 points
-
استخدم قاعدة IF لاني اكتب على الموبايل تفضل <<<<<<>>>>>> Private Sub السيارة_جاهزة_Click() If Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False ElseIf Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False End If End Sub Private Sub السيارة_مغادرة_Click() If Me.السيارة_مغادرة = True Then Me.السيارة_جاهزة = False ElseIf Me.السيارة_جاهزة = True Then Me.السيارة_مغادرة = False End If End Sub مثال نعم لا.accdb2 points
-
2 points
-
2 points
-
1 point
-
الإخوة الأفاضل خبراء عمل ماكرو في الورد، هل هناك أمر معين معناه: نفّذ العملية من هنا إلى آخر كلمة في الملف؟ أو: إذا وصلت إلى آخر كلمة في الملف فتوقف، وذلك على غرار: ..............For i = 1 To أو If Selection....... = False Then end1 point
-
استبدل الفانك لديك بهذا ..... Public Function Concatenate_test_items(C As String) As String Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[tube]='" & C & "' AND [code]='" & 1000 & "'" 'set the Data source Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere) 'Loop through the Records Do Until rst.EOF 'Concatenate the items Concatenate_test_items = Concatenate_test_items & ", " & rst!test 'move to the next Record rst.MoveNext Loop 'Remove the initial ", ", thats why we start from the 3rd letter Concatenate_test_items = Mid(Concatenate_test_items, 3) 'clean up memory rst.Close: Set rst = Nothing End Function1 point
-
الف شكر لحضرتك ربنا يبارك فيك استفسار بسيط اغير العمود E إلى ماذا1 point
-
1 point
-
وهذا مثال لاحد الاخوة بالمنتدى سيفيدك باذن الله Auto ReLink.rar تحياتي1 point
-
يمكن استخدام For I = 1 to ActiveDocument.Words.count بالتوفيق1 point
-
1 point
-
لتطبيق فكرة الحل على ملفك بعد هذا السطر If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then نضع سطر فك الحماية fo.UnProtect password:="mas" وقبل سطر else نضع سطر الحماية fo.Protect password:="mas" حيث mas هي كلمة المرور بالتوفيق1 point
-
هذا ماكرو بسيط يقوم بتحديد أرقام المجلدات أو الأجزاء التي بعدها سلاش (/) ضمن فقرة معينة، بحيث يرصد كل رقمين للتأكد من أن التالي ليس اصغر من سابقه أو مساويه. وهذا اختبار يحتاجه الباحث، حيث نجد أن أرقام المجلدات كثيرا ما تأتي غير مرتبة، فتجد مثلا: المجلد (5)، بعده (4)، أو (3) ونحو هذا، وهذا خطأ، ومن المعلوم أن تتبع أخطاء الأرقام من الصعوبة بمكان، لذا كان من الضروري معرفة هذه المواضع بطريقة آلية، لتكون أسرع وأضبط. وهذا هو الماكرو لمن أراد: Sub مسلسلمجلداتخطأ() ' ' مسلسلمجلداتخطأ Macro 'ماكرو يقوم بتحديد أرقام الأجزاء التي بعدها سلاش مثل (3/5)لمعرفة الأرقام المترتبة خطأ، بحيث يكون الرقم التالي أقل من السابق أو مساويه، ويكون ذلك من خلال الفقرات 'والطريقة: أن تقف في أي موضع من الملف ثم تشغل الماكرو ليقوم بتمييز الأرقام الخطأ باللون الأصفر Dim aa, b, c As Integer Selection.HomeKey Unit:=wdStory Selection.TypeParagraph For i = 1 To ActiveDocument.Paragraphs.Count Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Font.Color = 10498160 Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting For ii = 1 To 100 With Selection.Find .Text = "/" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Found = False Then Exit For End End If Selection.MoveDown Unit:=wdParagraph, Count:=1 Selection.Find.Execute Selection.Font.Color = wdColorRed Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Font.Color = wdColorRed aa = Val(Selection.Text) Selection.MoveRight Unit:=wdWord, Count:=1 Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "/" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Found = False Then Exit For End End If Selection.MoveDown Unit:=wdParagraph, Count:=1 Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend b = Val(Selection.Text) - 1 Selection.MoveLeft Unit:=wdWord, Count:=1 If aa > b Then Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow Selection.MoveRight Unit:=wdWord, Count:=1 End If Next ii Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorAutomatic With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute replace:=wdReplaceAll Selection.MoveDown Unit:=wdParagraph, Count:=1 Next i Selection.HomeKey Unit:=wdStory Selection.Delete Unit:=wdCharacter, Count:=1 End Sub1 point
-
أكرمكم الله أخانا الحبيب1 point
-
1 point
-
انتقل إلى الموقع الذي تم فيه تخزين المجلد أو الملفات المحذوفة مسبقًا. حدد "استعادة الإصدارات السابقة" من قائمة السياق عند النقر بزر الماوس الأيمن فوق المجلد. في قائمة المجلدات السابقة ، اختر إصدار المجلد. احفظ المجلد والملفات في مكان مختلف من خلال النقر على "استعادة".1 point
-
1 point
-
لا حظ ان ما تفضلوا به يتم ضمن نموذج واحد وفكرتي هي تخصيص نموذج لكل نوع1 point
-
ابوعبدالله .. ابوجودي شكرا لكما لإثراء الموضوع .. جزيتم خيرا انا مع تخصيص نموذج للسري فقط .. يكون المعيار في مصدر بياناته اظهار السري فقط1 point
-
وعليكم السلام ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل .. حياكم الله وبياكم اولا وقبل كل شئ اشتاقت لكم نفسى كثيرا ... اسال الله تعالى لكم الصحة والعافية والبركة فى العمر والعلم والعمل والاهل والولد وكل اساتذتى الكرام واخواننا مشاركة مع اساتذتى الأفاضل هذا تطبيقى المتواضع بناء على توجيهاتكم ولكن بما ان اخى الكريم الاستاذ @alzahrani2014 يريد عمل فزر وتصفية فى نموذج تلك فكرتى المتواضعة وحاولت جاهدا امعان النظر والتفكير خارج الصندوق وفى انتظار رأيكم وتوجيهاتكم المرفق يضم بين طياته - نموذج واحد لإجراء الفرز والتصفية على كل البيانات سواء كان السجل سرى أو غير سرى -عند فتح النموذج يتم الفرز والتصفية فقط على السجلات الغير سرية -عند تحديث مربع السرد الخاص بالفرز فى حالة كانت البيانات سرية يتم اخفائها على الفور وتظهر البيانات فقط بكتابة كلمة المرور الصحيحة (123) والا لا ولن يتم عرض البيانت >>---> حيلة وخدعة -التغلب على التنقل بين الحقول بالضغط على زر TAP من لوحة المفاتيح حتى لا يتم استعراض البيانات السرية >>---> حيلة وخدعة -فى حالة الغاء الفرز والتصفية سواء كان السجل الحالى سرى او حتى بعد ادخال كلمة مرور خطأ او حتى كان السجل الحالى لا يحتوى بيانات سرية يتم اليا اجراء تطبيق الفرز على السجلات الغير سرية - طبعا تم التعديل على بنية الحقل sec فى الجدول بتحويله الى حقل رقمى وتم التعديل علية بحيث يتم تحويله الى Combo Box بحيث يكون نوع مصدر بيانات الحقل Value List وقيم الحقل الافتراضية تتكون من -1;"سرى";0;"غير سرى" -تم اضاقة موديول لاخفاء كلمة المرور اثناء الكتابة لتظهر على شكل ***** اترككم مع المرفق b2- Moh3sam.mdb1 point
-
أرفق لكم الطريقة كود وملف لمن أراد أن يستفيد لاحقاً وشكرا للجميع. Option Explicit Dim fo As Worksheet Dim ln&, x!, s& Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 2 And Target.Column = 7 Then Application.EnableEvents = False Set fo = Sheets("OldStock2021-2022") If Range("B" & Target.Row) <> "" And Range("F" & Target.Row) <> "" Then ln = WorksheetFunction.Match(Target.Offset(0, -5), fo.Range ("C:C"), 0) x = fo.Cells(ln, 5) 'Stok initial sur la feuille OldStock2021-2022 Cells(Target.Row, 3) = fo.Range("D" & ln) 'Description Cells(Target.Row, 4) = fo.Range("G" & ln) 'Prix Cells(Target.Row, 5) = x 'Stock initial s = IIf(Target.Offset(0, -1) = "sell", -1, 1) 'sens du mouvement = 1 pour retour,-1 pour vente Cells(Target.Row, 9) = Target.Value * s + x 'Stock final fo.Range("E" & ln) = Target.Value * s + x 'Nouveau stock mis à jour Range("A" & Target.Row) = Date 'ou = Now si on veut l'horodate Else MsgBox "Saisies incomplètes.", 16 Exit Sub End If End If Application.EnableEvents = True End Sub Sub Evenement() Application.EnableEvents = True End Sub QuckSolution-1-.xlsm1 point
-
تفضل اخي الكريم هذه طريقة افضل واسرع ضع الكود التالي في وحدة نمطية جديدة Public Function XNul(txt1 As Double, txt3 As Double) As Double If Nz(txt1, 0) > 0 And Nz(txt3, 0) > 0 Then XNul = (txt1 / txt3) * 100 Else XNul = 0 End If End Function ثم في الاستعلام ضع التالي مع تغيير اسماء الحقول Expr1: XNul(Nz([المدفوعات]);Nz([صافى الفواتير])) تحياتي1 point
-
1 point
-
1 point
-
1 point
-
بسم الله الرحمن الرحيم هذه مجموعة من روابط المواقع يمكنك أن تضيفها في مفضلتك لتعليم لغة html باللغة الانجليزية وسيتم بعد ذلك عرض مجموعة أخرى ولكن باللغة العربية http://www.w3schools.com/html/default.asp http://www.davesite.com/webstation/html/ وهذا المرجع الكامل لجميع أوامر html quicklist.html وللحصول على الترجمة لهذه المواقع استعمل جوجل من هذا الرابط وكل عام أنتم جميعا بخير1 point
-
بارك الله فيك أخي ياسر الكود الموجود في ملف الباتش يعتمد على عمليتين الأولى هي تغيير اسم المجلد إلى اسمه بالإضافةإلى رمز الكنترول بانيل والثانية هي جعله من ملفات النظام فلو قام أحدنا بإظهار ملفات النظام سترى هذا المجلد ولكن عند الضغط عليه ستفتح الكنترول بانيل وليس محتويات المجلد وجرب وأخبرني بالنتيجة مع العلم لا يدري أحدنا أن هذا الجهاز يحتوي على مثل هذه المجلدات أم لا وإن درى فكيف له بمعرفة أسماء المجلدات أماكنها ؟؟؟!! سعيد بمرورك وتواصلك أخي ياسر1 point
-
أخي عامرلا تتردد في إبداء النصح وخاصة في حالة مثل التي تقول اختراق برنامج المفترض منه حماية الملفات والأكواد والمعادلات وبعد بعض التجربة منا لم نجد منه ما يخيف فتوكل على الله واشرح لنا وجهة نظرك1 point
-
1 point
-
إخواني بالنسبة لمن لم يعمل معهم الملف برجاء تحميل ملف sapi.dll من هذا الرابط http://www.dlldump.com/download-dll-files_new.php/dllfiles/S/sapi.dll/5.1.4111.00/download.html ثم بعد ذلك ضعه في المسار التالي C:\Program Files\Common Files\Microsoft Shared\Speech وستجد كل شيء تمام بإذن الله1 point
-
جزاك الله خيرا أخي عامر هذا رابط لمحاولة مني مع الوورد http://www.officena.net/ib/index.php?showtopic=29962 كل عام والجميع بخير يمكن استخدام ذلك الكود في إملاء الجهاز للمدرسين الدرجات في الكنترول ولكن طبعا باللغة الإنجليزية1 point
-
1 point
-
1 point