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

وعليكم السلام 🙂 جرب هاي: if len(me.parent!B & "")=0 then 'me.parent.setfocus 'بعض الاحيان نحتاج الى هذا السطر ايضا me.parent!B.setfocus end if جعفر

مثال رائع استاذي @jjafferr ومع انكم واخي الفاضل @ابوآمنة اجبتم على الموضوع احب اشارك معكم بوضع تلميح للحقل عن طريق التنسيق @;"فضلا افتح القائمة لاختيار المورد" او اي عبارة مناسبة للحقل

السلام عليكم اخي ازهر عبد العزيز من قواعد المشاركة فى الموقع لما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) تحياتي

أ.ازهر عبد العزيز جرب هذا الكود Private Sub D_GotFocus() If IsNull(Forms!A!B) = True Then Forms!A.Form!B.SetFocus End Sub

بغير فارزه . وبغير فواصل . جعفر

يا لطيف !! اعدادات الجقل في الجدول . والنتيجة بدون تنسيق . . وطبعا تقدر تغير طريقة العرض بإستخدام التنسيق Format ، وبإستخدام: . النتيجة: . جعفر

السلام عليكم 🙂 المرفق من :https://www.msaccesstips.com/2009/02/controltip-text-and-time-delay.html افتح النموذج MainSwitchBoard ، وضع الفأرة على اي من الكائنات في النموذج 🙂 هو مثل مثال اخوي ابو آمنه ، ولكنه متطور 🙂 جعفر ControlTip2K.zip

جرب 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 Sub

السلام عليكم ورحمة الله تم اصلاح الكود كما يلى 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 Sub

الاستاذ جعفر لم اكن منتبها لها فجزاك الله خير على التذكير والتنبيه وجزاكم الله جميعا كل خير في هذا المنتدى الرائع

عمل رائع أيها الرائعون تشكرون على جهوكم .. دمتم سالمين وللخير غانمين 😘😘😘😘

ومشاركه مع اخوانى واساتذتى جزاهم الله خيرا على قد معرفتى 1- [url=https://top4top.io/][/url] 2- 3- 4- [url=https://top4top.io/][/url] بالتوفيق ان شاء الله

السلام عليكم مشاركة مع استاذنا محمد ابوعبد الله بالملف المرفق نموذج يتوسط الشاشة تماما كل ماعليك هو ضبط الاعدادات كما في النموذج ونقل الوحدة النمطيه لجهازك (Tewsit Form) ومن خصائص النموذج - حدث - عند التحميل ضع الكود التالي الخاص باستدغاء الوحدة النمطية Call MovCenter(Me.WindowHeight, Me.WindowWidth) تحياتي اختبار.rar

الشكر لله اخي رعد مع تمنياتي لك بالتوفيق

اهلا اخي رعد شوف الصورة حركة صندوق 2.accdb

السلام عليكم 🙂 اخواني ، الجميع يساعد في المنتدى بوقته وبدون مقابل ، وعندنا مثل يقول: حبة الزبيب ما تشبّع ، ولكنها تحلّي الفم 🙂 فرجاء خلونا نشجع الاعضاء في العطاء 🙂 لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂 جعفر ومع الاعتذار لأخي احمد لإستخدام اسمه في المثال 🙂

سيدي الفاضل 🙂 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.zip

ولم الاسف اخى كلنا اخوه فالله وانا اخوكم الصغير اتعلم منكم ومعكم جزاك الله خيرا

اخي بشاردو :) اخوي خالد قصده ، اختر الاجابة الافضل لك ، وليس قصده ان تختار اجابته 🙂 جعفر

ممكن ازالة الفواصل ايضا استاذي العزيز @jjafferr

او عند تمرير الفأرة على الكائن في النموذج: جعفر

وهذا هو الملف الخاص بقوائم الفصول نسخة_من_قوائم_الفصول_الاصدار_8.rar

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

السلام عليكم مشاركة مع اخي العزيز أحمد الفلاحجى عملت لك ملفين الاول يعمل لك نسختين احتياطييتين من ملفك في القسم E والقسم F مباشرة الثاني يقوم بانشاء مجلد باسم اوفيسنا ثم يقوم يعمل لك نسختين احتياطييتين من ملفك مباشرة داخل المجلد افي القسم E والقسم F اتمنى يكون المطلوب تحياتي TEST.rar TEST-2.rar

تفضل اخي الكريم ارجو ان يكون هو المطلوب 2020.D3.rar تحياتي

شكرا لحضرتك جدا

الاستاذ جعفر ... احسنت واجدت وجزاك الله خير ... هو عين المراد .... زادك الله من فضله علما وفهما الاستاذ ابو آمنه .... جزيل الشكر والامتنان على مساعدتك وجزاك الله خيرا ... وساعود حتما في موضوع اخر فملاذي هنا دائما معكم ...

تفضل 🙂 عملت تقرير جديد ، فارغ ، وحفظته بإسم Report1 ، ثم عملت نسخ ولصق لكائنات تقريرك ، والصقتها في التقرير الجديد ، مع مراعاة ان يكون عرض التقرير الافتراضي هو : Print Preview جعفر 1186.New Microsoft Access Database.accdb.zip

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

جزاك الله خيرا اخى واستاذى خالد @kha9009lid الحمدلله الذى بنعمته تتم الصالحات اخى @رعد داود لاتنسى الضغط على افضل اجابه بارك الله فيك كما نبهنا اخى واستاذى ووالدنا الحبيب جعفر

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

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

مرحبا هل هذا المطلوب اذا كان هو المطلوب اجعل قيمة مصدر البيانات للحقل يساوي =Format(Nz(DSum("[wared]-[sarf]";"q1";"[id_r]<" & [id_r]);0);"#,###" & 0) الملف مرفق حركة صندوق 1.accdb

أستاذنا أحمد الفلاحجى سلمك الله من كل هم وضيق يا ابو بسمله يا غالى

السلام عليكم 🙂 وهذا دلوي 🙂 Private Sub cmb_Month_NotInList(NewData As String, Response As Integer) Call Items_NotInList("cmb_Month", NewData, Response) End Sub Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer) Call Items_NotInList("STATION_OUT_DEP", NewData, Response) End Sub Private Sub Items_NotInList(fld As String, NewData As String, Response As Integer) Response = acDataErrContinue Me(fld).Undo End Sub . جعفر 1185.COMBO BOX ERROR.accdb.zip

حمدالله على السلامه اخى واستاذى عصام @essam rabea

جرب إزالة الرسالة والاكتفاء Response = acDataErrContin

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.accdb

بعد اذن اخي الفاضل @سلمان الشهراني ايقاف رسائل التحذير 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 الملف مرفي المرفقات الموظفين.accdb

جرب المرفق بعد التعديل الموظفين.rar

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

وجدت لك هذا @Elsayed Bn Gemy انظر لعدد السجلات في التقرير .... KANORY.accdb

اخى الفاضل راجع الرابط بالاعلى والرابط التالى وان شاء الله ستجد الحل بهم بالتوفيق ان شاء الله

اخى الفاضل تم التعديل ولكن اذا كان هناك اضافات اخرى يرجى اضافتها على استعلام الالحاق ثم ضبط الكود او ارفاقه للتعديل عليه لان استعلامك الاربع الحقول الاخيره ان كانت خاليه لا تتم اضافتها راجعها فلم اراجع مشكلتها بالتوفيق data.rar

السلام عليكم تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور وكذلك يتم حفظ الصور في ملف Picture باسم الموظف (يمكن تغييرها الى رقم (id) بعد ادراج الصورة لابد من ادخال كل البيانات ثم اضغط على زر حقظ اعلمنا النتائج تحياتي صورة الموظف.rar

واليك صورة توضع الخطوات https://www.up-00.com/7pfso5m4dced الصورة مجرد استرشاد انسخ الكود بتاعك بعد اختيار الملف في استعراض وللعلم انت لست في حاجة للاستيراد او التصدير الفكرة بس انك تعرف مكان او مسار الملف ودي احدى الطرق لمعرفة مسار الملف apend query.rar

اخى الفاضل محمود اتفضل حاجه على قدى واعتذر عن التقصير لان عندى مشكله بالمكتبات لعل احد الاخوه او اساتذتنا يساعد كنت اريد ان تختار القاعده اللى هتختار منها الجدل ثم الاستيراد ولكن عندى مشكله بالمكتبات ولا اعلم ماهى ولست بحال يساعدنى على البحث فيها الان فتقبل عذرى عند فتح قاعده بيانات الحاق لن تجد بها جدول studen سيتم استيراده بالكامل من قاعده بيانات التلاميذ وعند استيراده مره اخرى سيتم حذفه ثم يتم استيراده مره اخرى Private Sub importData_Click() On Error Resume Next Dim ad As Office.FileDialog DoCmd.DeleteObject acTable, "studen" DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\بيانات التلاميذ.accdb", acTable, "studen", "studen", False End Sub تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Q.rar

ومشاركة مع أخي الحبيب الأستاذ @Khalf اضع بين اياديكم هذا العمل المتواضع العمل في صمت بدون حتى فتح تطبيق الإكسل JU_ إستيراد شيت اكسل وتصدير حقل واحد.zip

السلام عليكم تم عمل المطلوب بتصحيح خاصية "التحقق من الصحة" وبعض المعادلات... مع ملاحظة أن عملية إضافة الدوائر الحمراء تمت في صفحة "شهادات آخر العام" ولم أجد صفحة شهادات "نتيجة امتحان الدور الأول" مثل ما وضعت في الصورة بالأعلى... رابط الملف المعدل على ميديافاير: تصحيح إدراج الدوائر الحمراء بن علية حاجي

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