jjafferr

وعليكم السلام 🙂 اخي الفاضل الافضل لك ان تبحث عن جواب على مستوى الانترنت ، بدلا عن اقتصاره على منتدى الاكسس 🙂 وبعدين ، هذا خارج نطاق الاكسس 🙂 جعفر

وعليكم السلام 🙂 السؤال غير واضح ، محتاجين معلومات اضافية لوسمحت 🙂 جعفر

وعليكم السلام 🙂 اعمل استعلام ، وفيه المعايير المناسبة المطلوبة للتقرير ، حتى تحصل على البيانات الصحيحة ، ثم اجعل هذا الاستعلام كمصدر بيانات للرسم البياني 🙂 جعفر

وبسطر واحد : DoCmd.GoToControl Screen.PreviousControl.Name جعفر

اللي فهمته : عندك الحقل A , وخرجت منه الى الكومبوبوكس ، وبعدين تريد ترجع مرة ثانية من الكومبوبوكس الى الحقل A : هذا الكود يكون في احد احداث الكومبوبوكس : Dim ctrl As Control Set ctrl = Screen.PreviousControl DoCmd.GoToControl ctrl.Name واذا تريده بدلا من DoCmd.CancelEvent If IsNull([Namee]) Then MsgBox "لاتترك الحقل فارغاً **هذا الحقل اجباري ** ادخل الاسم الرباعي", vbCritical + vbMsgBoxRight, "تحذير ..!!" 'DoCmd.CancelEvent Dim ctrl As Control Set ctrl = Screen.PreviousControl DoCmd.GoToControl ctrl.Name End If جعفر

🙂

لوسمحت تعطي توضيح اكثر 🙂

تفضل 🙂 1259.data.accdb.zip

تفضل 🙂 Dim myCriteria As String myCriteria = "[idlh]=" & Me.idlh myCriteria = myCriteria & " And [B]=" & Me.B If DCount("*", "ld", myCriteria) > 0 Then Dim stry As Integer stry = Me.B Me.Undo Dim rs As Object myCriteria = "[B]=" & stry Set rs = Me.Recordset.Clone rs.FindFirst myCriteria If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If جعفر

اكتب لي طريقة حل الخطوة السابقة ، علشان اعلمك كيف تعمله لهذه الخطوه كذلك 🙂

صدقني اخوي حلبي ، اني شخصيا استعمل هذه الطريقة ، صحيح طويلة شوي ، ولكنها جدا مرنه ، ومافي مجال تخطأ فيها ، ازيد او انقص المعايير مثل ما اريد واتأكد من النتائج ، وازيد المعيار التالي ... 🙂 جعفر ما بعطيك الجواب بس لو اتبعت نفس الطريقة اللي اتبعتها للخطوة اللي قبلها ، بتلقى النتيجة المطلوبة 🙂 جعفر

وعليكم السلام 🙂 صحيح عندك حدث "عند التحميل" في الكود ، ولكن النموذج مافيه امر تشغيل الكود !! . لازم يكون: جعفر

السلام عليكم 🙂 نفس حل اخوي ازهر ، ولكن بصورة ابسط جعفر

السلام عليكم 🙂 لو تتبع هذه الطريقة ، ما تتعب 🙂 جعفر

السلام عليكم 🙂 اخي@Khalf نتشرف بوجود اسمك مع قائمة خبراء الاكسس 🙂 يسألني البعض عن معيار اختيار الخبير ، وجوابي وبكل بساطة ، ان يشارك بالاجابة ، وكون اجاباته موفقه 🙂 جعفر

السلام عليكم 🙂 اخي الفاضل alloui79 هذا المنتدى للتعلم وليس للتحدي ، وقبل كل هذا ، هناك قوانين في المنتدى يجب اتباعها : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. اذا كنت جاد في التعلم ، فرجاء عمل موضوع جديد بشروط وقوانين المنتدى ، والجميع هنا يحب ان يمد يد العون 🙂 يُغلق جعفر

اخي طاهر ، اخونا ابوعبدالله قائم بمساعدتك ، وسألك هذا السؤال : هل ادخلت بيانات في نموذج تفاصيل ؟ فرجاء الرد على استفساره ومتابعة الموضوع معاه 🙂 جعفر

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

السلام عليكم 🙂 وجرب هذا المرفق. هذا المرفق ينزل جميع البرامج المفتوحة ، وبعدين يكبّر برنامج الاكسس بعد ثانية ، حصلت على الكود من الانترنت ، وتم عمل بعض التعديلات عليه وتضبيطه للعمل على النواتين 32 و 64 بت : Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim DoIt As LongPtr #Else Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim DoIt As Long #End If 'Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_COMMAND As Long = &H111 Private Const MIN_ALL As Long = 419 Private Const MIN_ALL_UNDO As Long = 416 Private Const SW_RESTORE As Long = 9 ' Public Function Minimize_AllWindows() DoIt = FindWindow("shell_traywnd", vbNullString) 'to minimize them all Call PostMessage(DoIt, WM_COMMAND, MIN_ALL, 0&) Dim PauseTime, Start PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.RunCommand acCmdAppMaximize End Function Public Function Restore_AllWindows() DoIt = FindWindow("shell_traywnd", vbNullString) 'to return them all to normal size Call PostMessage(DoIt, WM_COMMAND, MIN_ALL_UNDO, 0&) End Function . وطريقة العمل اننا ننادي الوحدة النمطية عند بدء البرنامج هكذا : call Minimize_AllWindows . وعند اغلاق البرنامج يمكننا ان ننادي الوحدة النمطية الاخرى لإرجاع جميع النوافد مثل ما كانت على قبل الانزال ، هكذا ، call Restore_AllWindows . اما انا ، فأفتح برنامجي عن طريق الماكرو autoexec والذي يعمل تلقائيا لما يفتح الاكسس ، واول امر فيه هو مناداة الوحدة النمطية لتصغير النوافد ، ثم يفتح لي النموذج الذي اريده ، هكذا : . ولما اغلق البرنامج ، اضع كود ارجاع البرامج الى وضعها السابق على حدث زر الخروج من البرنامج : . والكود : Call Restore_AllWindows DoCmd.Quit جعفر All_Minimize_Restore.zip

خير الكلام ما قل ودل 🙂 جعفر

حياك الله اخوي حسين 🙂 جعفر

وعليكم السلام اخوي محمد 🙂 ممكن تجرب هذه النسخة وتخبرنا بالنتيجة لوسمحت ، علشان ارفعها في المشاركة الاولى 🙂 جعفر Decompile_3.zip

حياك الله اخوي حسين 🙂 مثل ما يقول المثل: اليد الواحدة ما تصفق ، وهذا المنتدى ينمو ويرتقي بأيدينا جميعا ، ولولا موضوعك ، لما صار له تنسيق 🙂 (ملاحظة للجميع ، انا اخذت اذن من الاستاذ حسين علشان اعمل تغيير في موضوعه 🙂 ) جعفر

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