sary

هل من تطبيق عملي عليها او شرح واضح حتى نفهمها

اخي الكريم ضع المثال لنفيدك ويستفيد الجميع

اخي الكريم اسف لقد وعدلت على برنامجك ووضعته لك باكسس 2000 لكنني سوف اضع لك الكود هنا وما عليك الا تعديله لديك والنظر في ذلك: زر الحذف ضع الاضافه ضع هذا الكود: On Error GoTo Err_إضافة_هيئة_Click DoCmd.GoToControl "OrganNo" DoCmd.GoToRecord , , acNewRec Exit_ إض…

اخي الكريم تفضل ْïل_من_‏èل_َçٌَ.zip

ضع المثال وريح نفسك.......لانه بالمثال ستحل مشكلتك اسرع

السلام عليكم اغلاق الحقول وعدم الاضافة الا بالضغط على زر الاضافة If Me.Newrecord then field1name.Locked=False field2name.Locked=False Else field1name.Locked=True field2name.Locked=true End if ارجو لكم الفائده

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

مشكورين اخواني اخي الشقاوي17 مافائدة وضع هذه القيمه في الفلتر للنموذج [رقم_االموظف]=10009 ومشكور

على العموم مشكورين وجزاكم الله خير

بس اخي كيف تدخل البيانات عشان تظهر لك لانك ماعاد تستطيع ادخال اي شئ بهالحقل

افيدك اخي بكود عدد السجلات جميعها وهو هذا الكود =Count([المفتاح الاساسي]) تضع على النموذج مربع نص غير منضم ثم في خصائصه في مصدر عنصر التحكم تضع الكود السابق اما في وقت محدد فاعذرني ةإن شاء الله يفيدونك الشباب

اخي shz جزاك الله خير.............واثابك الله هذه مفهومه طبعا لجميع ارقام الموظفين لكن لو اعطيته رقم معين موجود ....فكيف يستدعي هذا الرقم بذاته لكن هذه والله اللي انا ما فهمتها...وش الفائده من قفل هذا الحقل تحياتي

تفضل اخي الكريم http://www.arabteam2000.com/vb/showthread....&threadid=31425

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

السلام عليكم اخواني اضع بين ايديكم هذا المثال الذي يوضح الموجود مسبقا بنوعي الدوال المذكوره اتمنى انه يفيدكم لاتنسوني من دعاءكم اخواني çمëله_ْلى_موىوï_مَè‏ç.zip

السلام عليكم اخوتي: هذا كود: Dim cnn As ADODB.Connection Dim rst As New ADODB.Recordset Set cnn = CurrentProject.Connection rst.Open "mytable", cnn With rst .Find "criteria" If Not (.EOF) Then If MsgBox("record already exists" & vbCrLf & "Press 'OK' to return …

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

الله يوفقك لكل خير ويصلح النيه والذريه

السلم عليكم ورحمة الله ارجو لكم الفائده في هذا البرنامج password2k.zip

وليسمح لي اخي ابو عزوز لما لمسته من طيبت قلبك وحبك للخير ومساعدة الاخرين وشئ في نفسي ودي اقوله لك اخي.......اهم واحد.......... قسم بآيات الله اني ادعي لك في ظهر الغيب وشفني ما اعرفك الله يرحم والديك.....ويسر لك جميع امورك.........وينور لك دروبك وانه يرزقك العل…