Shivan Kurdi - شڤان کوردی

تقدر تتغير العداد الى صفر بحركة من اي نموذج تريد القي نظرتا الى المرفق اكواد نموذج الرئيسي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Me.Text2 = 0 End Sub Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 1000 Me.Command6.SetFocus End Sub Private Sub Form_Timer() Me.Text2 = Me.Text2 + 1 If Me.Text2 >= 15 Then DoCmd.Close acForm, Me.Name End If End Sub Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Text2 = 0 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Text2 = 0 End Sub Private Sub FormFooter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Text2 = 0 End Sub وهذه اكواد نموذج الثاني Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If CurrentProject.AllForms("frm1").IsLoaded = True Then Forms!frm1!Text2 = 0 End If End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If CurrentProject.AllForms("frm1").IsLoaded = True Then Forms!frm1!Text2 = 0 End If End Sub Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() If CurrentProject.AllForms("frm1").IsLoaded = False Then DoCmd.Close acForm, Me.Name End If End Sub واليك المرفق اغلاق نموذج بعد 15 ثواني.rar

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

استأذن من الجماعة اليك هذه الطريقة لعل يفيدك استخدمت هذه الاكواد Dim Sewani As Integer Private Sub Form_Open(Cancel As Integer) Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() Sewani = Sewani + 1 Me.Text2 = Sewani If Sewani >= 15 Then DoCmd.Close acForm, Me.Name End If End Sub Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sewani = 0 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sewani = 0 End Sub Private Sub FormFooter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sewani = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Sewani = 0 End Sub اغلاق نموذج بعد 15 ثواني.rar

عند فتح نموذج البداية اكتب Private Sub Form_Open(Cancel As Integer) DoCmd.ShowToolbar "Ribbon", acToolbarNo End Sub

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

اتفضل @iam-hona انا غيرت الكود و استخدمت هذا الكود عند ضغط على انتر Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next If KeyCode = 13 Or KeyCode = 40 Then DoCmd.GoToRecord , , acNext ElseIf KeyCode = 38 Then DoCmd.GoToRecord , , acPrevious ElseIf KeyCode = 9 Then Me.Requery Forms!F1!tt.SetFocus End If End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub واليك مرفق بعد تعديل test8.zip

اذا تريد اخفاء الشاشة اكتب في نموذج البداية فقط

اولا : ادعوا من الله العظيم ان يشفي ابوك بشفاء ليس بعده سقم ابدا اللهم البسه ثوب الصحة والعافية عاجلا غير اجل يا ارحم الرحمين اللهم اشفه اللهم اشفه اللهم اشفه اللهم امين يا رب العالمين ثانيا : اهلا بك مجددا وفرحتنا بمشاركتك وشكرا على هذه الهدية والان مع الموضوع نعم وجربت انا انا غيرت تاريخ الجهاز الى قبل ان افتح القاعدة ظهر معي رسالة بأن خطأ في تاريخ الجهاز وهذا جيد لكن .... كن معي بعد قليل " في الاسواق " 1 هذه النقطة خذت درجة ممتاز نعم وجربت بعد تفعيل النسخة قمت بتغير اي اضافة في تاريخ الجهاز ظهر معي رسالة ان انتهى مدة النسخة ويجب ان تتصل بمبرمج وقمت بادخال نفس الرقم التسجيل السابق ما قبل ذلك لان تم تغيير في تاريخ الجهاز 2 تم التجربة على ذلك وممتاز تم تأكيد على ذلك وممتاز عطيتني اوتوماتيكيا يوم واحد فقط لا اعلم شيء عن ريجيستري شكرا لك وهذا هو ملاحظاتي : 1 / عند تقديم التاريخ اي اضافة على التاريخ بخطأ وفي ذلك الوقت فتحت القاعدة .. ان الريجيستري سيأخذ من التاريخ الجهاز وعند تعديل التاريخ وفتح القاعدة بعد ذلك سيظهر الرسالة بأن تاريخ الجهاز خطأ وهذا سيؤدي الى المشاكل للمستخدم لأن * احتمال ان يتم تغيير التاريخ عن طريق الخطأ او يكون خلل في الجهاز ويتم تغير التاريخ اذن لا نقدر بعد ذلك ان نفتح القاعدة بتاريخ صحيح 2/ لان عندي الان جهاز واحد والقاعدة هو بسيغة اي سي سي اس اي لذا ما اقدرت ان اشوف الاكواد هل استخدمت رقم اخر مثلا رقم هاردديسك او معالج او لوحة الام مع العملية لان اذا ما استخدمت معه اي يعني سيكون رقم التسجيل لكل الجهاز في يوم واحد سيكون مثل البعض وهذا خطأ حسب فهمي والعلاج 1/ استخدام شرط لكي يأخذ التاريخ من قبل الريجيستري عدا اول مرة اي مثلا اذا يكون تاريخ السابق يكون اقل من تاريخ اليوم + رقم محدد من الايام حينيئذ يأخذ التاريخ من قبل الريجيستري واذا اكبر من ذلك بيظهر رسالة لتأكيد التاريخ الجهاز هل التاريخ مضبوطة ام لا اذا نعم بيأخذ التاريخ واذا لا سيغلق القاعدة حتى يتم التعديل في تاريخ هذا سيقلل من الحدوث المشاكل للمستخدم 2/ استخدم احد ارقام هارد ديسك ام معالج ام لوحة الام او مع البعض مع تاريخ هذا والله يعلم تقبل تحياتي

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

متفق عليه

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

اهلا بك في منتداك منتدى اوفـــيســــــــــــــــنا سؤال : تستخدم اي اصدار من اكسس اذا كان اقل من 2010 ما تقدر تتوصا الى نتيجة لانها هذا شي غير متوفرة فيهم واذا تستخدم اصدار 2010 او اكبر اليك هذا واليك جدول جمع حقلين في جدول نفسه.rar تقبل تحياتي

وعليكم السلام ورحمة الله وبركاته واهلا بك في منتداك منتدى اوفـــيســــــــــــــــــــــــــنا بسيطة ان شاء الله ... وشكرا لانك وضحت مكان المشكلة بالدقيق وسبب هذا يرجع ل عمل كروب وفرز في التقرير وما عندك حقل لكي يتم الفرز عليها لذلك عملنا 1- حقل جديد في الجدول تابل 2 باسم اي دي ونوعيته ترقيم تلقائي 2- و اضفنا ذلك الحقل الى استعلام اللي هو مصدر التقرير 3- وفي التقرير عملنا فرز حسب حقل اي دي كما مبين في الصورة سببه يرجع لاضافة صورة العدسة في خلفية النموذج القي نظرتا الى النموذج واسم الصورة ما عليك الا ان تحذف الصورة واتفضل اليك قاعدتك تم العمل على كلا من المشاكل تقبل تحياتي شفان ريكاني واعتذر من السيد @Gamal.Saad لا ارى مشاركته الا بعد اضافة ردي cheque.zip

القي نظرتا الى هذا والكود Private Sub Frame9_AfterUpdate() If Frame9 = 1 Then Me.Child94.SourceObject = "معلومات خاصة" ElseIf Frame9 = 2 Then Me.Child94.SourceObject = "عنوان السكن" ElseIf Frame9 = 3 Then Me.Child94.SourceObject = "مركزه" ElseIf Frame9 = 4 Then Me.Child94.SourceObject = "مكتب" ElseIf Frame9 = 5 Then Me.Child94.SourceObject = "اسلحة" ElseIf Frame9 = 6 Then Me.Child94.SourceObject = "الاسم والشهرة" ElseIf Frame9 = 7 Then Me.Child94.SourceObject = "تعيين وترقية وسجل صحي" ElseIf Frame9 = 8 Then Me.Child94.SourceObject = "وسيلة النقل" ElseIf Frame9 = 9 Then Me.Child94.SourceObject = "اوامر الفصل" End If Me.Child94.Requery End Sub قاعدة بيانات دائرة بطاقة الهوية11.rar

اتفضل اليك رابطين بها كما تريد ان شاء الله

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

اتفضل القي نظرتا الى القاعدة بعد حذف (') abcde.rar

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

بنفس الطريقة استاذنا @رمهان القي نظرتا الى هذا لثلاث سجلات القي نظرتا الى الاستعلام q3record و استعلام التحديث باسم tahdith3record testo.rar

نعم قبل قليل انا عملت ونجحت انتظرني راح ارفق لك القاعدة عندك استعلام q1 واليك هذا الاستعلام للتحديث UPDATE t1 INNER JOIN q1 ON t1.id = q1.id SET t1.t3am = [q1]![lasttaqd], t1.taq = [q1]![taqlast], t1.t3am2 = [q1]![befortaqd], t1.taq2 = [q1]![taqbefor]; اليك القاعدة testo.rar

استاذي الحبيب لان حضرتك قلت انا قلت ولان قبل ان انشر انا عملت التجربة انا قلت هههه شكرا لك استاذي الحبيب

استخدم nz مع الكود i = Nz(DMax("yy", "t2", "empid=" & x), 0) ii = Nz(DMax("yy", "t2", "empid=" & x & "and [yy]<>" & i), 0) r = Nz(DLookup("taqq", "t2", "yy=" & i & " and empid=" & x), " ") rr = Nz(DLookup("taqq", "t2", "yy=" & ii & "and empid=" & x), " ") واشتغل 100%

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

اهلا بك مجددا اخي @Ahmed.IQ استخدم Total: VAL([CO2])+VAL([TN2]) واذا ما وفقت عليه ارفع نسخة مصغرة من قاعدة بياناتك واذا هو المطلوب اعمل علامة صح امام الجواب لكي من يتصفح الموقع يعرف ان تم الجواب على هذا السؤال تقبل تحياتي

اعمل استعلام جدولي