Shivan Rekany

احذف هذا السطر من الكود "DoCmd.OpenQuery "Query3 او في الاخر الكود اكتب سطر لاغلاق الاستعلام bmn (2).rar

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

انا نزلت المرفق لكن ما فهمت ما هو المطلوب ... ممكن تتوضح اكثر بالتفصيل

انا نزلت الملف من جديد وما فيه المشكلة ... بل المشكلة يرجع الى اصدار اوفيس تبعك واليك هذا الفيديو على الملف Video_2017-08-21_103327.rar

فی اسفل السطر اللي كتبت فیھا غادر اكتب Me.TERHEL.BackColor = vbRed وفی اسف السطر اللی کتبت موجود اکتب Me.TERHEL.BackColor = vbGreen

اتفضل Dim Sql As String SQL = "UPDATE bookintable SET bookintable.totalofbook = forms!allbookqure!totbook WHERE (((bookintable.bookin)=forms!start!booktran));" DoCmd.SetWarnings False DoCmd.RunSQL (Sql) DoCmd.SetWarnings True MsgBox "تم تحدیث"

بلى يوجد واتفضل اليك مثال على ذلك افتح التقرير ... image.rar

القي نظرتا الى مصدر الاستعلام و مصدر مربع اللي بيظهر عليها الصورة image.rar

شكرا استاذي الحبيب على هذه الهدية

اتفضل السبب يرجع ل خاصية النموذج modal تم غیرت الى نعم والن جربه ---الموظفين 28-11-1438.rar

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

If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then Me.endcont = (Date + Me.Alaim) - 1 Else Me.endcont = Date + Me.Alaim End If ربط الوقت بالتاريخ.rar

اليك هذا الكود اذا دخلت من ساعة 12 صباحا الى ساعة 4 صباحا سيكون الناتج تاريخ اليوم زائد تاريخ في الحقل الايام واذا دخلت في غير ساعة سيعطيك تاريخ اليوم زائد تاريخ حقل الايام زائد واحد If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then Me.endcont = Date + Me.Alaim Else Me.endcont = (Date + Me.Alaim) + 1 End If هل هذا ما تريد ؟ اليك القاعدة بعد تعديل ربط الوقت بالتاريخ.rar

الیک ھذا الرابط .. فيها شرح المطلوب https://support.office.com/en-us/article/Get-started-with-Access-programming-92eb616b-3204-4121-9277-70649e33be4f?CorrelationId=913650f6-ae51-4fd5-97fd-da1a499a0f1d&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA001214213 لكن انا شخصيا لا استخدم ماكرو

الیک ھذا الرابط بها فانكشك لاخفاء خلفية شاشة اكسس وهذا الرابط لفتح التقرير

لان عندك تقرير اخر وبيظهر التكرار فيه لذالك هذا الكود بيعمل المطلوب On Error Resume Next If DCount("*", "q1") = 0 Then MsgBox "ليس لدينا اي سجل مکرر" Else DoCmd.SetWarnings False DoCmd.OpenQuery "QUERY1", acViewNormal DoCmd.SetWarnings True Me.Requery End If

على الرغم انت ما فهمت من سؤالي الاول لكن اتفضل بواسطة هذه الاستعلام سيبقى كل صنف سجل واحد DELETE [Table-1].ID, [Table-1].L, [Table-1].M, [Table-1].D FROM [Table-1] WHERE ((([Table-1].ID) Not In (SELECT First(id) FROM [Table-1] GROUP BY L;))); اي سيخليه سجل الاول من كل الصنف وسيحذف الاخر واليك ملفك بعد تعديل الاصناف المتكررة.rar

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

اتفضل اليك هذا الكود Private Sub ملاحظات_AfterUpdate() If Me.وقت_الدخول > #01:59:59 AM# And Me.وقت_الدخول < #5:00:00 AM# Then Me.نهايه_العقد = Date + 1 End If End Sub واليك ملفك بعد تعديل نن.rar

الیک ھذا الكود Private Sub ملاحظات_GotFocus() Me.ملاحظات.KeyboardLanguage = 3 End Sub غير ( ملاحظات ) باسم مربع نصي عندك

والسلام عليكم اخي ما عليك الا ان تحدد مربعات النصية اللي تريد ان يكون لغة الادخال فيها بيكون العربية وتغير الخاصية الكيبورد الادخال الى العربية كما مبية في الصورة الادناه

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

اخي القي نظرتا الى هذه المقطع الفيديو انها تعمل بشكل صحيح وانا اضفت كود للحقل ادارة و قطاع لكي عند اكتيف الحقل يظهر القائمة واي وقت اذا تريد ان يظهر القائمة فقط عليك ان تضغط على سهم ولكن اذا تقول عند ضغط على زر F4 بیژھر القائمە ما رأيت ھناک اي كود في النموذج بيعمل ذلك عند محل الميلاد واذا تريد راح نعطيك الكود عند الضغط .. لكن افكر انت لا تحتاج ذلك اليك الفيديو Video_2017-08-15_201611.rar

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

ليس هناك شيء باسم F4 لکن الان جرب ھل القائمة بيظهر ام لا واذا لا وضحلي بالصورة لكي اقدر اساعدك اكثر Final.rar