نجوم المشاركات
Popular Content
Showing content with the highest reputation on 17 مار, 2020 in all areas
-
وعليكم السلام 🙂 جرب هاي: if len(me.parent!B & "")=0 then 'me.parent.setfocus 'بعض الاحيان نحتاج الى هذا السطر ايضا me.parent!B.setfocus end if جعفر4 points
-
3 points
-
3 points
-
أ.ازهر عبد العزيز جرب هذا الكود Private Sub D_GotFocus() If IsNull(Forms!A!B) = True Then Forms!A.Form!B.SetFocus End Sub3 points
-
2 points
-
2 points
-
السلام عليكم 🙂 المرفق من :https://www.msaccesstips.com/2009/02/controltip-text-and-time-delay.html افتح النموذج MainSwitchBoard ، وضع الفأرة على اي من الكائنات في النموذج 🙂 هو مثل مثال اخوي ابو آمنه ، ولكنه متطور 🙂 جعفر ControlTip2K.zip2 points
-
جرب Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label1.Caption = Me.Text0.Name Me.Text0 = Me.Text0.Name End Sub2 points
-
السلام عليكم ورحمة الله تم اصلاح الكود كما يلى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$9" Then Dim N As Variant Dim f As String Application.ScreenUpdating = False N = Range("F9") With N On Error Resume Next f = ThisWorkbook.Path & "\" & "الصور" Sheets("ورقة1").Label1.Picture = LoadPicture(f & "\" & "noimage" & ".jpg") Sheets("ورقة1").Label1.Picture = LoadPicture(f & "\" & Target & ".jpg") End With Call INDEXING End If Application.ScreenUpdating = True End Sub2 points
-
الاستاذ جعفر لم اكن منتبها لها فجزاك الله خير على التذكير والتنبيه وجزاكم الله جميعا كل خير في هذا المنتدى الرائع2 points
-
عمل رائع أيها الرائعون تشكرون على جهوكم .. دمتم سالمين وللخير غانمين 😘😘😘😘2 points
-
ومشاركه مع اخوانى واساتذتى جزاهم الله خيرا على قد معرفتى 1- [url=https://top4top.io/][/url] 2- 3- 4- [url=https://top4top.io/][/url] بالتوفيق ان شاء الله2 points
-
السلام عليكم مشاركة مع استاذنا محمد ابوعبد الله بالملف المرفق نموذج يتوسط الشاشة تماما كل ماعليك هو ضبط الاعدادات كما في النموذج ونقل الوحدة النمطيه لجهازك (Tewsit Form) ومن خصائص النموذج - حدث - عند التحميل ضع الكود التالي الخاص باستدغاء الوحدة النمطية Call MovCenter(Me.WindowHeight, Me.WindowWidth) تحياتي اختبار.rar2 points
-
2 points
-
2 points
-
ضع المود التالي فى مساحة الكود الخاص بالمسنتند اذا اردنا تشغيل الكود تلقائيا عند الفتح Private Sub Document_Open() ShowDocStats End Sub ثم اضف الكود التالي فى موديول جديد ضمن المستند Sub ShowDocStats() With ActiveDocument.ActiveWindow .Caption = .Document.Name & " / " & _ .Document.BuiltInDocumentProperties(wdPropertyWords) & " Words, " & _ .Document.BuiltInDocumentProperties(wdPropertyCharacters) & " Characters, " & _ .Document.BuiltInDocumentProperties(wdPropertyParas) & " Paragraphs" End With End Sub و الجزء الثاني يمكن ايضا استدعاؤه فى اي وقت من خلال ALT+F8 و اختيار اسم الكود و تشغيله ، و طبعا يمكن الاكتفاء لمن يرغب بالسطر الاولي فقط الذي يظهر عدد الكلمات فقط دون عدد الحروف و الفقرات Sub ShowDocStats() With ActiveDocument.ActiveWindow .Caption = .Document.Name & " / " & _ .Document.BuiltInDocumentProperties(wdPropertyWords) & " Words, " End With End Sub و هذا هو الملف الذي به تطبيق لما سبق مع اضافة بسيطة هي جعله يقوم بالاحصاء كلما فتحنا الملف ، و ليس كل ملفات الوورد لكي نستخدمه فقط فى الملف المطلوب و صورة توضيحية لمكان ظهور الاحصائيات : docstat_cmdclose.zip1 point
-
سيدي الفاضل 🙂 1. تم حذف جميع هذه الكائنات : . 2. تم حذف النموذج Tooth ، 3. تم اخذ الصور وبقية الكائنات كجزء من النموذج الرئيسي All_P ، 4. هذه الكائنات اصبحت غير مرتبطة بجدول : . 5. عند النقر المزدوج ، جميع هذه الكائنات تنادي الوحدة النمطية f_Remove_a_Tooth : . 6. هناك جدول فرعي جديد stbl_All_P ، يرتبط بالجدول All_P ، عن طريق الحقل PCode ، وفيه الحقول التالية : dDate ، Tooth_Number ، Remarks ، 7. هناك نموذج فرعي sfrm_All_P (نموذج مستمر) والذي يأخذ بياناته من الجدول stbl_All_P ، وعمل هذا الجدول تسجيل الضرس/الاضراس التي يتم قلعها ، بالوقت والملاحظات ، بحيث يبقى هذا كتاريخ لجميع الاضرس التي قلعها الدكتور ، 8. عند النقر مرة على الضرس ، يتم تحويل لونه الى اللون الازرق ، وعند النقر مرتين على الضرس ، فالوحدة النمطية f_Remove_a_Tooth تقوم بعمل التالي : أ. عمل سجل جديد ، ويكتب في السجل رقم الضرس ، والوقت ، ويقف التركيز على حقل الملاحظات ، ب. اخفاء الضرس من الصورة ، 9. يمكن اضافة اي عدد من الاضراس في النموذج الفرعي ، 10. في حدث الحالي للنموذج الرئيسي ، فأنه بقراءة الاضراس المقلوعة من النموذج الفرعي ، ويقوم بإخفاء هذه الضروس من الصورة ، Private Sub Form_Current() On Error GoTo err_Form_Current Dim rst As DAO.Recordset Dim i As Integer Set rst = Me.sfrm_All_P.Form.RecordsetClone rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount For i = 1 To RC Me("A_" & rst!Tooth_Number).Visible = False rst.MoveNext Next i Exit_Form_Current: Exit Sub err_Form_Current: If Err.Number = 3021 Then Resume Exit_Form_Current Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والنتيجة: . 11. تم العمل على الصورة التي على اليمين ، ويجب ان تعمل نفس الشيء للصورة على اليسار ، 12. الوحدة النمطية f_Remove_a_Tooth : Public Function f_Remove_a_Tooth() Dim frm As String Dim fld As String frm = Screen.ActiveForm.Name fld = Screen.ActiveControl.Name 'add a new Record, and add the Tooth number in to Forms!All_P.SetFocus Forms!All_P!sfrm_All_P.SetFocus DoCmd.GoToRecord , , acNewRec Forms!All_P!sfrm_All_P!DDate = Now() Forms!All_P!sfrm_All_P!Tooth_Number = Replace(fld, "A_", "") Forms!All_P!sfrm_All_P!Remarks.SetFocus 'now hide the tooth Forms(frm)(fld).Visible = False End Function . جعفر 1188.Dental.accdb.zip1 point
-
ولم الاسف اخى كلنا اخوه فالله وانا اخوكم الصغير اتعلم منكم ومعكم جزاك الله خيرا1 point
-
1 point
-
اخى @مصطفى الفارس برجاء استخدام خاصيه البحث وان لم تجد ما تبحث عنه قم بعمل الموضوع اتفضل راجع هذا الرابط لاخى واستاذى محمد عصام @ابا جودى جزاه الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق1 point
-
اخي بشاردو :) اخوي خالد قصده ، اختر الاجابة الافضل لك ، وليس قصده ان تختار اجابته 🙂 جعفر1 point
-
جزاكم الله خيرا جميعكم اخي خالد ربما الاجابات تتفاوت قياسا بمستوي المستفيد مثالك رائع جدا ولكن اتوقع انه متقدم فالمستوى مع امثالي كمبتدأ ولكنه رائع ... وسأستفيد من الوحدة النمطية بالتاكيد مثال الاخ محمد والاخ احمد قد يكون في مستوى فهمي وجزاكم الله خيرا1 point
-
1 point
-
ممكن ازالة الفواصل ايضا استاذي العزيز @jjafferr1 point
-
1 point
-
اخى الفاضل @ازهر عبد العزيز اضحكتنى اسعدالله اوقاتكم بكل خير 😀 قام اخى واستاذى ووالدى الحبيب جعفر باستعمال اسمى فى شرح الموضوع للاشاره على ان الموضوع تم الاجابه عليه ولم يعد لصاحب السؤال حاجه فالرد وكمان بيسهل فى عمليه البحث فالموقع نعم يحدث هذا فى بعض الاحيان حدد ما تريد فكلنا اخوه فالله وبعد ما تحدد ماتريد اضف رد بجزاكم الله خيرا وزادكم الله من فضله وعلمه عَنْ أُسَامَةَ بْنِ زَيْدٍ رضي الله عنه قَالَ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : (مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا ، فَقَدْ أَبْلَغَ فِي الثَّنَاءِ) بارك الله فيك وجزاك الله خيرا1 point
-
وهذا هو الملف الخاص بقوائم الفصول نسخة_من_قوائم_الفصول_الاصدار_8.rar1 point
-
وعليكم السلام اخي الحبيب @أحمد الفلاحجى في الحقيقة بعض الاحيان احصل على اكثر من اجابة رائعة للسؤال ومن اساتذة معتبرين فلا استطيع تحديد الاجابة الافضل لهذا اتركة فارغا لمن هم افضل مني بتحيد الاجابة الافضل وشكرا لك1 point
-
1 point
-
السلام عليكم مشاركة مع اخي العزيز أحمد الفلاحجى عملت لك ملفين الاول يعمل لك نسختين احتياطييتين من ملفك في القسم E والقسم F مباشرة الثاني يقوم بانشاء مجلد باسم اوفيسنا ثم يقوم يعمل لك نسختين احتياطييتين من ملفك مباشرة داخل المجلد افي القسم E والقسم F اتمنى يكون المطلوب تحياتي TEST.rar TEST-2.rar1 point
-
تفضل اخي الكريم ارجو ان يكون هو المطلوب 2020.D3.rar تحياتي1 point
-
1 point
-
مشاركه معى اخى خالد جزاه الله خيرا اطلع على الموضوع ده لاستاذنا محمد عصام @ابا جودى جزاه الله خيرا لعلك تجد به فائده تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق1 point
-
بارك الله بيك استاذ حسين المحترم توجد مشكله عند الضغط على زر الرجوع هل يمكن تنفيذ المطلوب بطريقة اخرى تحياتي1 point
-
1 point
-
هذا الملف من بدايات ما نشر فى الموقع ( عام 2003) و استغرقني بعض الوقت لاحاول استرجاع ما فائدته العملية 😄 ثم وجدت انه مفيد لما يعد بحثا أو دراسة علمية لها حد ادني من الكلمات المطلوبة ، فيكون من المفيد له معرفة عدد الكلمات مباشرة دون اجراء اضافي اولا باول ، فقمت بتعدل المشاركة حيث كانت تعتمد اصدار قديم جدا من الاوفيس1 point
-
ها هو مقالي وموضوعي الأول في هذا المُنتدى الرائع صراحة كنت أتابع في وضعية الزائر منذ فتره ولكن نال إعجابي النظام والموقع من كافة النواحي لذلك قد قمت بالتسجيل والأنضمام معكم --- الفيس بوك شبكة إجتماعية كبيرة في منافسة كبيرة ما بين العديد والعديد من المواقع ولكن يعتبر أكثر مواقع التواصل الاجتماعي استخدامًا بعد شبكة البحث العالمية جوجل، ولكن الفرق ما بين جوجل والفيس بوك كبير والدليل على أنه من الممكن أن نقوم باستخدام الفيس بوك بالساعات ويوميًا ولا غنى عنه ولكن جوجل فقط بالنسبة للبعض لتقضية الغرض أي مكان للبحث نقوم للوصول إلى المعلومة أو الموقع المطلوب ويتم غلقة على خلاف الفيس بوك هو شبكة اجتماعية ضخمة كبيرة لتنزيل المنشورات ومشاركة المواضيع والتعرف على الاخبار والدخول في المجموعات والصفحات وإنشاء إحداث جديدة وإضافة الأصدقاء والمزيد من الاشياء التي لا نستغنى عنها ، واصبح هناك تطبيقات عديدة لهذا الموقع الرائع الذي تم انطلاقة في عام 2004 قبل اليوتيوب نفسه من مارك زوكربيرج كان يعتقد البعض بأن الفيس بوك موقع ربحي يستغل الشخص فقط للربح ولكن هذا ليس حقيقي وظهرت للناس والمستخدمين الكثير من الشائعات مثل (للتمكن من استخدام الفيس بوك) في بلدك يرجى دفع 1$ أو أكثر للتمكن من الاستخدام ولكن هذا ليس حقيقي، بل بالفعل هناك طرق ربحية ولكن ليست إجبارية في الفيس بوك للتمكن من عمل حملات إعلانية لمنتجك أو شركتك أو صفحتك الخاصة والحصول على إعجابات والمزيد تبدأ من 5 دولارات تقريبًا، ولكن حتى الآن السؤال الذي يخطر في خاطركم أين هي نقطة الاستفادة من الفيس بوك؟ فهناك نقطتين يمكنك استغلال تلك النقاط للإستفادة من الفيس بوك 1- الاستفادة الثقافية والمعرفية 2- الاستفادة المالية بخصوص الاستفادة الثقافية، كما نعلم أن للإنترنت استخدامات إيجابية والأخرى سلبية ففي حال أنك قد قمت بالتسجيل في الفيس بوك بالفعل وتبحث عن الشق الإيجابي فهذا ليس من الصعب أو المُستحيل فيمكنك ذلك فعليًا ويمكنك الاشتراك في الصفحات المعرفية مثل ثقف نفسك والمزيد، ورؤية الفيديوهات الدينية وقراءة الأخبار والمواضيع الموثوقة والاشتراك في الصفحات الثقافية والمجموعات والمزيد فهذه تعد نقطة ضرورية فأصبحت مواقع التواصل الاجتماعي في مجتمعنا هذا أهم من أي موقع آخر ولها استخدامات عديدة وبسبب تلك المواقع من الممكن أن يقام ثورات مثلما حدث من قبل في المواقع العربية، فهي ليست بمواقع دردشة وتعارف فقط فهذا موجود بالفعل ولكن ليس الجزء الأهم. ولكن بخصوص الجزء الآخر وهو الاستفادة المالية الآن أصبحت مواقع (الفري لانس عديدة) أي مواقع تقديم الخدمات على الإنترنت، وبعيدًا عن تلك المواقع ففي حال انك استطعت اكتساب الخبرات ودراسة موقع الفيس بوك جيدًا حينها ستعلم أنك قد قمت باختيار المواقع الصائب أي الموقع الأفضل ويمكنك تكبير صفحات على الفيس بوك او جلب مُعجبين لبروفايل شركة، وهذه الأمور من المعروف أنها ليست مجانية ولذلك نحن نتحدث عن إمكانية كسب المال من خلال كل هذا أي أن تصبح (مسوق إلكتروني) فهذا ليس من المُستيحل أو الصعب فهذا من الوارد أن تقوم بتحقيق المال وكسبه بطريقة مشروعة وأنت في منزلك من خلال بيع الصفحات على الفيس بوك وعمل إعلانات على صفحتك الشخصية أو تكبير صفحات وعمل إعلانات للمواقع وجلب المُعجبين والمزيد فعليك أن تأخذ فكرة فقط وإذ نال إعجابك هذا الموضوع سأقدم لكم مواضيع متشابه قريبًا1 point
-
1 point
-
Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer) MsgBox "الادخال خاطيء ...انت محدد بالقائمة ... يرجى عدم ادخال اي شيء آخر", vbOKOnly Response = acDataErrContin End Sub فقط ضع هذا الكود اسفل الرسالة Response = acDataErrContin لست بحاجة لاستخدام كود إخفاء رسائل الاستعلام هذا DoCmd.SetWarnings False الملف بعد التعديل COMBO BOX ERROR.accdb1 point
-
بعد اذن اخي الفاضل @سلمان الشهراني ايقاف رسائل التحذير DoCmd.SetWarnings False تنفيذ استعلام الحاق DoCmd.RunSQL "INSERT INTO table2 ( id, الاسم, [تاريخ التولد], العمر, المهنة, الملاحظات ) " & vbCrLf & _ "SELECT table.id, table.الاسم, table.[تاريخ التولد], table.العمر, table.المهنة, table.الملاحظات " & vbCrLf & _ "FROM [table];" تنفيذ استعلام حذف DoCmd.RunSQL "DELETE table.* " & vbCrLf & _ "FROM [table];" تحديث النموذج الفرعي بعد الحذف Me.subform12.Requery رسالة تنفيذ المهمة MsgBox "تم تنفيذ نقل الملفات", vbInformation, "رسالة ادارية" اعادة تفعيل رسائل التحذير DoCmd.SetWarnings True الملف مرفي المرفقات الموظفين.accdb1 point
-
1 point
-
وجدت لك هذا @Elsayed Bn Gemy انظر لعدد السجلات في التقرير .... KANORY.accdb1 point
-
اخى الفاضل تم التعديل ولكن اذا كان هناك اضافات اخرى يرجى اضافتها على استعلام الالحاق ثم ضبط الكود او ارفاقه للتعديل عليه لان استعلامك الاربع الحقول الاخيره ان كانت خاليه لا تتم اضافتها راجعها فلم اراجع مشكلتها بالتوفيق data.rar1 point
-
السلام عليكم تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور وكذلك يتم حفظ الصور في ملف Picture باسم الموظف (يمكن تغييرها الى رقم (id) بعد ادراج الصورة لابد من ادخال كل البيانات ثم اضغط على زر حقظ اعلمنا النتائج تحياتي صورة الموظف.rar1 point
-
وعليكم السلام اخى الفاضل محاوله منى على قد ما قدرت اخى الفاضل برجاء اختيار عنوان مناسب بعد ذلك للموضوع - مثلا (مشكله باستعلام الحاق وتصدير للاكسيل) فى حقول كتير لم يتم استيرادها من بعد اخر حقل الدمج اول حقل بعده الثانى لم يتم الثالث والرابع والخامس تركت لك استعلام الالحاق حتى لو اردت ان تعدل عليه ( هو مالوش لازمه حاليا يتم الاستيراد بالكود ) صدر واستورد ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_Database.accdb1 point
-
الملف يعمل لدى وقمت بتحميل المثال ويعمل لا اعلم ماهى المشكله لديك سارفع الملفين من غير مجلدات فحملهم واجعلهم بجوار بعض او بفولدر جديد من عندك ووافنا بالنتيجه جزاك الله خيرا اخى @alaa aboul-ela ولكن هل قرات رد اخى محمود يوسف بعدما وضعت له استعلام الحاق فى جدول التلاميذ تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق الحاق.accdb بيانات التلاميذ.accdb1 point
-
وعليكم السلام هل هذا ما تريد ؟ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 1استعلام الحاقي.rar1 point
-
ومشاركة مع أخي الحبيب الأستاذ @Khalf اضع بين اياديكم هذا العمل المتواضع العمل في صمت بدون حتى فتح تطبيق الإكسل JU_ إستيراد شيت اكسل وتصدير حقل واحد.zip1 point
-
السلام عليكم ورحمة الله أخي الكريم، بعض التعديلات على الملف مع إضافة كود للطباعة حسب المطلوب، يكفي تغيير رقم الشهر في الخلية B2 ثم الضغط على زر الطباعة (والكود لا يطبع إلا الأرقام التي بها بيانات)... أرجو أن يفي الغرض... أخوك بن علية المرفق : طباعة الكل من قائمة منسدلة.rar1 point
-
السلام عليكم مشكوررررررررررررر اخ/ محمد على ابداعاتك القيمة1 point